解决Delphi的剪贴板的AsText方法乱码的问题

1. 使用Delphi的剪贴板的AsText方法会导致非英语出现乱码,怎么解决?改用Unicode就可以了。
3. procedure SetClipboardText(AStr: string);   
4. var    // SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1);   
5.   Data: THandle;   
6.   DataPtr: Pointer;   
7.   Size: Integer;   
8.   WStr: PWideChar;   
9. begin   
10.   Size := Length(AStr) * 4;   
11.   WStr := AllocMem(Size);   
12.   try  
13.     // convert to Unicode   
14.     StringToWideChar(AStr, WStr, Size);   
15.     OpenClipboard(0);   
16.     EmptyClipboard;   
17.     Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);   
18.     try  
19.       DataPtr := GlobalLock(Data);   
20.       try  
21.         Move(WStr^, DataPtr^, Size);   
22.         SetClipboardData(CF_UNICODETEXT, Data);   
23.       finally  
24.         GlobalUnlock(Data);   
25.       end;   
26.     except   
27.       GlobalFree(Data);   
28.       raise;   
29.     end;   
30.   finally  
31.     CloseClipboard;   
32.     FreeMem(WStr);   
33.   end;   
34. end; 

转载于:https://www.cnblogs.com/MaxWoods/archive/2010/04/14/1712091.html