Copiar Archivos Usando el Api de Windows7 - 64 bit
Saludos, basado en un codigo de este foro, estoy usando una variacion para copiar archivos de una carpeta
a otra (Uso Delphi7)...
//*******************************************************************************//
uses ShellApi;
{$R *.dfm}
procedure CopyFiles(Origen, Destino: String);
var buffer: Array [0..1000] of Char;
p: PChar;
Fo: TSHFileOpStruct;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p, Pchar(Origen)) + 1;
FillChar(Fo, sizeof(Fo), #0);
With Fo do begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @Buffer;
pTo := Pchar(Destino);
fFlags := FOF_FILESONLY or FOF_CONFIRMMOUSE or FOF_MULTIDESTFILES;
end;
SHFileOperation(Fo);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFiles('C:\Users\Display_64x.theme.rar','C:\Display_64x.theme.rar');
end;
//*******************************************************************************//
Con el unico inconveniente, que al mostrarse la ventana de copiar archivos con las opciones para sobreescribir, rechazar o conservar ambos, el icono del archivo copiado no se muestra, como normalmente lo haria windows.
Se que es un detalle apenas. Espero puedan ayudarme.
|