کپی فایل در کلیپ بورد

[nassim_20]

میخواهم یه فایل رو در کلیپ بورد کپی کنم عین ویندوز روی فایل می ریم و کپی می کنیم

[Loveski]

سلام
می تونی از این لینک استفاده کنی
http://delphi.about.com/od/vclusing/a/tclipboard.htm

[nassim_20]

ببین من میخوهم ادرس یه فایل رو بدهم و اونرو تو کلیپبورد کپی کنم

[Hsimple11]

ببین من میخوهم ادرس یه فایل رو بدهم و اونرو تو کلیپبورد کپی کنم


uses
ShlObj, ClipBrd;

procedure CopyFilesToClipboard(FileList: string);
var
DropFiles: PDropFiles;
hGlobal: THandle;
iLen: Integer;
begin
iLen := Length(FileList) + 2;
FileList := FileList + #0#0;
hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT,
SizeOf(TDropFiles) + iLen);
if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.');
begin
DropFiles := GlobalLock(hGlobal);
DropFiles^.pFiles := SizeOf(TDropFiles);
Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
GlobalUnlock(hGlobal);
Clipboard.SetAsHandle(CF_HDROP, hGlobal);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFilesToClipboard('C:\test.Txt'#0'C:\test.Bat') ;
end;