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. |
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. |
La franja horaria es GMT +2. Ahora son las 06:36:02. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi