Copy file to clipboard

[Allyen1]

Can anybody tell me how to copy file to Windows clipboard?
I tried this:

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;

But it doesn't work in Nero Burning Rom. After I click "paste", it closes without any warning. And also Clipboard Viewer doesn't show the names of copied files like when copied from Explorer does.

 

[CodeGenerator]

Windows copy only the path of a file into the clipboard, you dont need to copy the content of the file. When you paste windows just use the path to find the file. So dont copy the content of the file, just copy the path to it.

Hope it helps

 

[GeppoDarkson]

Hi,
Take a look at

http://www.torry.net/draganddrop.htm

***Drag and Drop Component Suite v.3.7 ***

Maybe this will help you.

Ciao,
Geppo Darkson.