Array
(
)

Copia de arquivos

Zumbi
   - 10 ago 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...


Cebikyn
   - 10 ago 2004

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

#Código

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