將文件複製到Delphi中的剪貼板中

-5

任何人都知道如何在Delphi中複製文件？它喜歡在文件或文件夾上按Ctrl + C，然後我們可以在某處粘貼？我只知道如何通過Clipbrd Unit複製文本，但我不知道文件夾，文件夾！請幫幫我！將文件複製到Delphi中的剪貼板中

2013-09-01 Chien Tran

你問過這一次。不要再問新的問題。請修復原始問題。編輯它，我們可以重新打開它。你有沒有聽從我在那裏給你的建議？你嘗試過什麼嗎？你能證明一下嗎？ –

哦對不起！這是我第一次在這個網站上提出問題。還有一些不希望的問題 –

不是。這是你的第二個問題。這是[從Tlistview複製文件和由Teracopy粘貼]的副本（http://stackoverflow.com/questions/18533232/copy-file-from-tlistview-and-paste-by-teracopy）您接受的答案是什麼不僅僅是對另一個問題的評論。 –

剪貼板和拖動&下降有很多共同點。大多數庫支持拖動&下降也具有所有你需要的剪貼板。例如檢查這個庫： http://melander.dk/delphi/dragdrop/

它是免費的，具有完整的源代碼，並有很多的例子，包括剪貼板操作。

一個例子是的DragDrop \演示\的Unicode \ DragDropUnicode.dproj，它有彈出命令「複製到剪貼板」：

procedure TForm1.ActionFileCopyExecute(Sender: TObject); 
begin 
    if (FFiles = '') then 
    DropFileSource1.Files.Text := LoadResString(0) 
    else 
    DropFileSource1.Files.Text := FFiles; 

    DropFileSource1.CopyToClipboard; 
end;

希望它能幫助。

來源

2013-09-01 07:51:24

我試過了，但是在爲Delphi XE3編譯時發生錯誤。但是，謝謝！ –

@user：好吧，正式它不支持XE3，但實際上它需要大約10分鐘才能用於XE3：打開DragDropD2011.dpk並將其另存爲DragDropXE3.dpk，使用CF_LOCALE常量而不是CF_MAX-1（編譯器顯示），替換一些方法的定義（從相應接口的定義複製粘貼，編譯器顯示什麼接口的方法），在1-2位整數替換爲NativeInt或類似的東西（編譯器顯示位置），...和之後你將擁有強大而又方便的工具。 –

它發生此錯誤修復CF_MAX-1錯誤： [dcc32錯誤] DragDropContext.pas（66）：E2291缺少接口方法的實現IContextMenu3.HandleMenuMsg2 –

使用CF_HDROP格式存儲文件/文件夾的完整路徑，或使用CF_SHELLIDLIST格式存儲文件/文件夾的ITEMIDLIST。參考MSDN更多細節：

Shell Clipboard Formats

可替代地，文件夾/文件路徑（一個或多個）轉換爲使用SHParseDisplayName()，ILCreateFromPath()，或其它類似的功能ITEMIDLIST值（一個或多個），然後使用SHCreateDataObject()創建IDataObject從他們，然後傳遞到OleSetClipboard()。

來源

2013-09-01 06:50:32

將文件複製到Delphi中的剪貼板中

回答

相關問題