delphi - 使用 Windows 中的副本显示状态表单

Question

使用delphi，我可以在开始复制时显示什么表单？非常感谢。

Answer 1

您应该使用该SHFileOperation功能。

procedure TForm1.Button1Click(Sender: TObject);
var
  shfileop: TSHFileOpStruct;
begin
  shfileop.Wnd := Handle;
  shfileop.wFunc := FO_COPY;
  shfileop.pFrom := PChar('C:\myfile.txt'#0);
  shfileop.pTo := PChar('C:\Copy of myfile.txt'#0);
  shfileop.fFlags := 0;
  SHFileOperation(shfileop);
end;