Правильное копирование в буфер обмена

Есть некий "русский текст", его необходимо правильно скопировать в буфер обмена, независимо от раскладки клавиатуры.
Как это можно реализовать???

стандартным

...
Clipboard.asText:=russian_text;
...

не получается.
нужно что-то делать с локалями или раскладкой...

Еще локаль нужно копировать (CF_LOCALE)

Антохин,

раньше, использовал такой вод код когда-то... сейчас не знаю, надо ли это, но в принципе будет работать

[source delphi]
var
..
pch, pch1: PChar;
..
case uMsg of
WM_COPY:
...
// Переключаем клавиатуру " в русский режим" , иначе - проблемы с кодировкой
getmem(pch, 100);
getmem(pch1, 100);
getkeyboardlayoutname(pch);
strcopy(pch1, pch);
while pch <> '00000419' do
begin
activatekeyboardlayout(hkl_next, 0);
getkeyboardlayoutname(pch);
if strcomp(pch, pch1) = 0 then
// Круг замкнулся - нет такого языка '00000419'
strcopy(pch, '00000419');
end;

// Данные - в буфер!!!
Clipboard.AsText := 'блаблабла';

while strcomp(pch, pch1) <> 0 do
begin // Возвращаем режим клавиатуры
activatekeyboardlayout(hkl_next, 0);
getkeyboardlayoutname(pch);
end;
freemem(pch);
freemem(pch1)
...
[/source]

a_titeev
Антохин, раньше, использовал такой вод код когда-то... сейчас не знаю, надо ли это, но в принципе будет работать [source delphi] ... activatekeyboardlayout(hkl_next, 0); ... [/source]

нормальный метод, но здесь сработает если добавлено 2 раскладки клавиатуры...

видел ещё метод через "ручное" выделение памяти, то есть выделили память, запихали туда текст и буфер "направили" в эту выделенную область.

Maxim Rusov
Еще локаль нужно копировать (CF_LOCALE)

как её скопировать и куда?)

  type
    TMyClipboard = class(TClipboard);

  procedure StrToClipboard(const AStr :string);
  var
    vLangID :LANGID;
  begin
    with TMyClipboard(Clipboard) do begin
      Open;
      try
        AsText := AStr;
        vLangID := GetUserDefaultLangID;
        SetBuffer(CF_LOCALE, vLangID, SizeOf(vLangID));
      finally
        Close;
      end;
    end;
  end;

Maxim Rusov,

всё работает, а почему у стандартного Clipboard нет метода SetBuffer???

Есть, но он protected. Не знаю, почему.

Maxim Rusov,

возможно из-за политик безопасности.
но тогда почему при наследовании он стал паблик???

Антохин
возможно из-за политик безопасности.

При чем здесь политики. Обычная недоработка, в VCL их пруд пруди.

Антохин
но тогда почему при наследовании он стал паблик???

Это трюк такой, позволяет получить доступ к protected свойствам.