Copiar Archivos Usando el Api de Windows7 - 64 bit

[jose_guzman]

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.

[ecfisa]

Hola y bienvenido a Club Delphi

Como a todos iniciados te invitamos a que leas nuestra guía de estilo.

Por favor cuando incluyas código en tus mensaje usa TAG's:



Saludos

PD: Moví tu mensaje del foro "Trucos" a este por ser el adecuado.