کپی کردن به Clipboard

[Ali Ya Amin]

یک String رو چطوری میشه روی Clipboard کپی کرد و چطوری میشه از روش خوند.
حتی اگر Unicode باشه.
ممنون میشم!

[Delphi Skyline]

کپی کردن .


uses StdCtrls;
var b:tedit;
begin
b:=tedit.create(self);
b.parent:=self;
b.visible:=false;
b.text='سلام';
b.selectall;
b.CopyToClipboard;


گرفتن .


uses StdCtrls;
var b:tedit;s:string;
begin
b:=tedit.create(self);
b.parent:=self;
b.visible:=false;
b.selectall;
b.PasteFromClipboard;
s:=b.text;
showmessage(b);


موفق باشی .

[vcldeveloper]

uses Clipbrd;

برای گرفتن متن از کلیپ برد:


var
AText : string;
begin
if Clipboard.HasFormat(CF_Text) then
AText := Clipboard.AsText;
end;

برای نوشتن متن در کلیپ برد:


Clipboard.AsText := 'Hi';