從窗口中複製使用dellaphi狀態表

Question

複製，我可以顯示當我開始複製時顯示的窗體？ 非常感謝。

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;