FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
||||
|
||||
Mírate esta función:
Copia ficheros con Progreso. Código:
procedure CopyFiles(const Source,Destination: String); var SHFileOpStruct : TSHFileOpStruct; begin if FileExists(Source) then begin FillChar(SHFileOpStruct,SizeOf(TSHFileOpStruct),#0); with SHFileOpStruct do begin Wnd:=Application.Handle; wFunc:=FO_COPY; fFlags:=FOF_ALLOWUNDO; hNameMappings:=nil; pFrom:=PChar(Source+#0+#0); pTo:=PChar(Destination+#0+#0); end; ShFileOperation(SHFileOpStruct); end; end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|