delphi - 通过 SHFileOperation() 进行文件复制 - 使用的基本标志

Question

我找到了一些使用 SHFileOperation() 复制文件的代码，但我对 SHFILEOPSTRUCT structure 中可用的所有标志感到困惑.

这就是我正在做的事情。我有一个递归过程，根据我的设置掩码用所有文件填充 TStringList 。我单步执行 TStringList 并传递 FileFrom 和 FileTo 的完整路径。

F.Wnd:=frmMain.Handle;
F.wFunc:=FO_COPY;
F.pFrom:=PChar(FileFrom+#0);
F.pTo:=PChar(FileTo+#0);
Err:=ShFileOperation(F);

这就是我想做的。

1. 如果文件大于 10mb，则我想显示 Windows 的进度对话框，如果文件较小，则不显示任何内容。

2. 能够中止复制过程，无需单击进度对话框中的“X”，因为在复制大量较小文件时，该对话框可能不会显示。我有一个“取消”按钮和一个 bool 值“CancelClicked”，但我不知道如何从 SHFileOperation() 返回“Abort”。

我知道我可以将整个文件夹传递给 SHFileOperation() 并让它递归操作，但我需要处理每个文件上的其他内容，因此单步执行 TStringList 是我需要的方式，但我愿意接受建议。

最后是问题:

对于 10mb 以下的大小，我需要设置什么 fFlags？

对于超过 10mb 的大小，我需要设置什么 fFlags？

if ThisFileSize < 10000000 then
  F.fFlags:=F.fFlags or ... else
  F.fFlags:= ...;

<小时/>

此代码不会复制，但注释行会复制。

lpCopyProgress:=@MyCopyProgressCallback;
Err:=0;
StopCopy:=False;
if not CopyFileEx(PChar(FileFrom),PChar(FileTo),lpCopyProgress,nil,@StopCopy,0) then
//          if not CopyFile(PChar(FileFrom),PChar(FileTo),False) then
begin
  Err:=GetLastError;
  if Err = ERROR_REQUEST_ABORTED then
    Break;
end;

Answer 1

使用SHFileOperation()时，您可以使用FOF_SILENT标志来防止显示标准进度对话框。

但是，一旦 SHFileOperation() 开始运行，就无法通过编程方式中止该操作。为此，请使用 CopyFileEx()或CopyFile2()相反。

这两个函数都允许您以两种不同的方式中止复制:

• 它们都接受指向 BOOL 变量的指针作为输入。如果您的代码在函数运行时将该 BOOL 变量设置为 TRUE，则复制将中止。

• 它们都接受指向回调函数的指针以进行进度报告。在复制的各个阶段都会调用回调。如果回调返回值 CANCEL 或 STOP，则复制将中止(在 CANCEL 的情况下，目标文件将被删除，而 STOP 允许稍后恢复文件)。

无论哪种方式，这两个函数都不会自动显示 Windows 自己的进度对话框，但您可以display it manually使用IProgressDialog界面。或者，您可以显示自己的自定义对话框。

处理多个文件时，在每个单独的文件上显示/隐藏进度对话框并不是一个好的用户体验。创建和销毁对话框会浪费操作系统的开销。对于用户来说，潜在的闪烁在视觉上并不有趣。您应该在需要时显示该对话框一次，然后保持其可见并更新，直到最后一个文件完成。

尝试这样的事情:

var
  // this is redundant since IProgressDialog has its own
  // Cancel button, this is just an example to demonstrate
  // cancellation in code...
  CancelClicked: BOOL = FALSE;

function MyCopyProgressCallback(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: LARGE_INTEGER; dwStreamNumber: DWORD; dwCallbackReason: DWORD; hSourceFile, hDestinationFile: THandle; lpData: Pointer): DWORD; stdcall;
var
  msg: WideString;
begin
  msg := WideFormat('Transferred %d of %d bytes', [TotalBytesTransferred.QuadPart, TotalFileSize.QuadPart]);
  IProgressDialog(lpData).SetLine(2, PWideChar(msg), False, PPointer(nil)^);
  if IProgressDialog(lpData).HasUserCancelled then
    Result := PROGRESS_CANCEL
  else
    Result := PROGRESS_CONTINUE;
end;

...

var
  FileFrom: string;
  FileTo: string;
  I: Integer;
  ProgressDialog: IProgressDialog;
begin
  ...

  CancelClicked := FALSE;

  OleCheck(CoCreateInstance(CLSID_ProgressDialog, nil, CLSCTX_INPROC_SERVER, IProgressDialog, ProgressDialog));
  try
    ProgressDialog.SetTitle('Processing files');
    ProgressDialog.SetCancelMsg('Canceling, please wait...', PPointer(nil)^);
    ProgressDialog.SetProgress(0, TheStringList.Count);
    ProgressDialog.StartProgressDialog(frmMain.Handle, nil, PROGDLG_MODAL or PROGDLG_AUTOTIME or PROGDLG_NOMINIMIZE, PPointer(nil)^);
    ProgressDialog.Timer(PDTIMER_RESET, PPointer(nil)^);

    for I := 0 to TheStringList.Count-1 do
    begin
      FileFrom := ...;
      FileTo := ...;

      ProgressDialog.SetLine(1, PWideChar(WideString(FileFrom)), True, PPointer(nil)^);
      ProgressDialog.SetLine(2, '', False, PPointer(nil)^);
      if ProgressDialog.HasUserCancelled then
        Break;

      ...

      if not CopyFileEx(PChar(FileFrom), PChar(FileTo), @MyCopyProgressCallback, Pointer(ProgressDialog), @CancelClicked, 0) then
      begin
        if GetLastError = ERROR_REQUEST_ABORTED then
          Break;

        // something else happened during the copy, so
        // you can decide whether to stop the loop here
        // or just move on to the next file...
      end;

      ...

      ProgressDialog.SetProgress(I+1, TheStringList.Count);
    end;
  finally
    ProgressDialog.StopProgressDialog;
    ProgressDialog := nil;
  end;

  ...

end;

或者，您可以使用 IFileOperation接口(interface)代替。这允许您:

• 使用其 CopyItem() 提前对所有文件路径进行排队。和 CopyItems()方法。

• 使用其 PerformOperations() 一次执行所有排队的副本方法。

• 实现IFileOperationProgressSink接口(interface)和Advise()它接收进度更新。这包括在复制每个单独文件之前 ( PreCopyItem() ) 和之后 ( PostCopyItem() ) 执行您自己的操作的选项。从 IFileOperationProgressSink 方法返回的任何错误都将中止整个复制序列。

• 让它自动显示标准的 Windows 进度对话框。它将延迟显示对话框，直到复制序列运行超过几秒钟。如果您快速复制一堆小文件，则不需要显示对话框，但一旦发生明显的延迟，将为当前文件和后续文件显示对话框，直到序列完成。如果您想自定义行为，可以实现 IOperationsProgressDialog接口(interface)并将其传递给IFileOperation::SetProgressDialog()方法。