Sep
07
Копирование текста в Clipboard
08:54
Mishenka (05.09.05 17:23)
При копировании русского текста в Clipboard методом AsText при в ставке в других приложениях текст изображается иероглифами, при том, что с английским всё нормально. Как это исправить?
******************************
Турист (05.09.05 22:27) [4]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1125926628&n=0
При копировании русского текста в Clipboard методом AsText при в ставке в других приложениях текст изображается иероглифами, при том, что с английским всё нормально. Как это исправить?
******************************
Турист (05.09.05 22:27) [4]
uses
Clipbrd;
type
TClipboardAccess = class(TClipboard);
procedure CopyToClipboard(const aText: string);
var
wText: WideString;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
wText := aText;
TClipboardAccess(Clipboard).SetBuffer(CF_UNICODETEXT, wText[1], (Length(wText) + 1) * 2)
end else
Clipboard.AsText := aText
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyToClipboard('Русский текст')
end;
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1125926628&n=0