FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar Archivos | frankmch | API de Windows | 10 | 26-02-2014 01:21:31 |
Ayuda con archivos binarios usando TFileStream | Eze32 | OOP | 2 | 04-06-2013 16:18:07 |
Transferencia de archivos usando Socket | Paulao | Varios | 3 | 19-08-2008 23:56:30 |
Copiar un archivo a otra pc usando el puerto serial como comunicacion | maravert | API de Windows | 3 | 10-06-2007 17:24:42 |
Copiar archivos | jam888 | Varios | 1 | 17-04-2007 23:05:59 |
|