Главная » Delphi » Основная » Копирование текста в Clipboard

Копирование текста в Clipboard

08:54
Mishenka (05.09.05 17:23)
При копировании русского текста в 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