Copia de arquivos

10/08/2004

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...


Zumbi

Respostas

10/08/2004

Cebikyn

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


Responder Citar