Ничего не понимаю или глюки с буфером обмена

← →
Вадим © (2003-03-12 15:02) [0]

Здравствуйте.

Создаю новый проект, на форму бросаю кнопку, в обработчике пишу:

procedure ButtonClick(..);
begin
ShowMessage(Clipboard.AsText);
end;

Запускаю свою супер-пупер программу, запускаю блокнот. В блокноте пишу "тест" (русскими символами), переключаюсь на английскую раскладку, копирую написанный текст в буфер обмена. Переключаюсь на свою программу и нажимаю кнопку. Если я все правильно понимаю, то должен буду увидеть сообщение, текст которого будет "тест", но в сообщении в место этого следующий текст: "????".
Этого не происходит, если при копировании текста из блокнота переключиться на русскую раскладку клавиатуры. Тоже самое происходит, если копировать текст из других программ (Проводник, Ворд и т.д.).
Что я делаю не правильно и что я должен сделать, чтобы получить текст, находящийся в буфере обмена без искажения?

← →
Clickmaker © (2003-03-12 15:40) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Buf: PWideChar;
hData: THandle;
Str: string;
begin
Clipboard.Open;
try
if Clipboard.HasFormat(CF_UNICODETEXT) then begin
hData := Clipboard.GetAsHandle(CF_UNICODETEXT);
Buf := PWideChar(GlobalLock(hData));
Str := WideCharToString(Buf);
GlobalUnlock(hData);
ShowMessage(Str);
end;
finally
Clipboard.Close;
end;
end;

Ничего не понимаю или глюки с буфером обмена Найти похожие ветки