使用显示状态表单的窗口中的副本

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;