Copia de arquivos

Question

tem como eu copiar um arquivo para um lugar �X� e aparecer a janelinha de copia do windows ou eu tenho que criar uma???????se tiver como eu poderia fazer......

Cebikyn · Answer

vc pode fazer das duas maneiras, se quiser usar a janela do windows, fa�a assim:

uses 
  ShellApi; 

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer); 
var 
  shellinfo: TSHFileOpStructA; 
begin 
  with shellinfo do 
  begin 
    wnd   := Application.Handle; 
    wFunc := Flags; 
    pFrom := PChar(fromFile); 
    pTo   := PChar(toFile); 
  end; 
  SHFileOperation(shellinfo); 
end; 

// Exemplo: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShellFileOperation(�c:\afile.txt�, �d:\afile2.txt�, FO_COPY); 
  // para moverao inv�s de copiar: FO_MOVE 
end;

agora, se quiser criar a sua, consulte:
http://www.swissdelphicenter.ch/en/showcode.php?id=330