delphi - ステータス フォームを表示するウィンドウからのコピーを使用する

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;