在Delphi 7

Question

我想用IFileOperation CopyItem複製文件從一個目錄到另一個目錄 是有一個簡單的例子，在Delphi 7中使用IFileOperation？

Answer 1

在我原來的答覆的時間，在 TFileOperation CopyItem Delphi search先打是 nice blog post由布魯諾·馬丁斯Stuani使用 IFileOperation及其 CopyItem方法。
該帖子包含Delphi示例代碼。

編輯： 與從2010年的Delphi，所述IFileOperation接口在ShlObj單元定義。
這取決於在該單元不少其他東西，所以它不是一個快速的「複製粘貼」在這裏（除了一個事實，即單位受版權保護）。

--jeroen

Answer 2

我發現MSDN documentation和它包括一個例子。下面是翻譯成德爾福的例子：

uses ActiveX, ComObj, ShlObj; 

function TForm1.CopyItem(const aSrcItem, aDest, aNewName: string): HRESULT; 
const 
    CLSID_FileOp: TGUID = '{3ad05575-8857-4850-9277-11b85bdb8e09}'; 
var 
    lFileOperation: IFileOperation; 
    psiFrom: IShellItem; 
    psiTo: IShellItem; 
begin 
    // 
    // Initialize COM as STA. 
    // 
    Result := CoInitializeEx(nil, COINIT_APARTMENTTHREADED or COINIT_DISABLE_OLE1DDE); 
    if Succeeded(Result) then 
    begin 

    // 
    // Create the IFileOperation interface 
    // 
    Result := CoCreateInstance(CLSID_FileOp, nil, CLSCTX_ALL, IFileOperation, 
          lFileOperation); 
    if Succeeded(Result) then 
    begin 
     // 
     // Set the operation flags. Turn off all UI from being shown to the 
     // user during the operation. This includes error, confirmation, 
     // and progress dialogs. 
     // 
     Result := lFileOperation.SetOperationFlags(FOF_NO_UI); 
     if Succeeded(Result) then 
     begin 
     // 
     // Create an IShellItem from the supplied source path. 
     // 
     Result := SHCreateItemFromParsingName(aSrcItem, 
             nil, 
             IShellItem, psiFrom); 
     if Succeeded(Result) then 
     begin 
      if aDest <> '' then 
      begin 
      // 
      // Create an IShellItem from the supplied 
      // destination path. 
      // 
      Result := SHCreateItemFromParsingName(aDest, 
              nil, 
              IShellItem, psiTo); 
      end; 

      if Succeeded(Result) then 
      begin 
      // 
      // Add the operation 
      // 
      Result := lFileOperation.CopyItem(psiFrom, psiTo, aNewName, nil); 

      psiTo := nil; 
      end; 

      psiFrom := nil; 
     end; 

     if Succeeded(Result) then 
     begin 
      // 
      // Perform the operation to copy the file. 
      // 
      Result := lFileOperation.PerformOperations; 
     end; 
     end; 

     // 
     // Release the IFileOperation interface. 
     // 
     lFileOperation := nil; 
    end; 

    CoUninitialize; 
    end; 
end; 

免責聲明： IFileOperation.CopyItem可從Windows Vista和更高。所以上面的例子只適用於Delphi 2010（和2009？）。由於我使用的是Delphi 7，因此我無法編譯它，因爲我缺少ShlObj單元的最新版本。從Delphi使用COM很容易，因此轉換示例並不是什麼大問題。我搜索了IFileOperation的CLSID，所以我不知道它是否是正確的。

如果你真的希望這用Delphi 7工作，你必須有IFileOperation的定義。 Jeroen提供的鏈接具有IShellItem的定義，但不適用於IFileOperation。如果你知道某人有一個Delphi 2010的版本，你可以問他ShlObj.pas（但它是有版權的，所以你必須Shobjidl.h自己翻譯或等待別人去做，你可以檢查的項目JEDI）。

當這一切似乎很複雜，嘗試Windows API調用，CopyFile。