Главная » 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