FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Copiar directorio
Tengo un formulario con un boton, de forma que cuando haga click en ese boton, tiene que copiar una carpeta que se encuentra en la misma ruta que la aplicacion al escritorio.
El programa va ir en un cd y tiene que copiar la carpeta sea cual sea la letra de unidad al escritorio de windows ya sea windows 98 o xp. Un saludo a todos. Gracias. |
#2
|
||||
|
||||
El truco 325 de trucomania te dice como copiar un directorio y sus subdirectorios y ficheros. Te lo reproduzco:
Código:
-Incluye ShellApi en el uses de tu form procedure TForm1.Button1Click(Sender: TObject); function CopiaTodo(Origen,Destino : String) : LongInt; var F : TShFileOpStruct; sOrigen, sDestino : String; begin Result := 0; sOrigen := Origen + #0; sDestino := Destino + #0; with F do begin Wnd := Application.Handle; wFunc := FO_COPY; pFrom := @sOrigen[1]; pTo := @sDestino[1]; fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION end; Result := ShFileOperation(F); end; begin CopiaTodo('c:\Delphi3\*.*','c:\kk'); end;
__________________
Saludos, Peter Investment |
#3
|
|||
|
|||
muchisimas gracias, esa funcion copia unos archivos desde una ruta de origen a otra destino ¿no?
Este va ir en raiz un cd entonces al arrancarlo, tiene que copiar una carpeta que hay en el cdrom al escritorio de windows, lo que supone dos problemas, uno que en algunos ordenadores tendran como unidad de cdrom e:, otros d: etc y el segundo problema es que cuando se ejecute en win98 el destino sera c:\windows\escritorio pero en xp c:\documents and settings....... El programa este voy a meterlo en un cd para darselo a mis clientes con las tarifas y entonces como unos tienen uno y otros otro pues.... se os ocurre algo? un saludo y gracias de nuevo |
#4
|
||||
|
||||
Para el escritorio....
Cita:
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
ok, muchas gracias
|
#6
|
|||
|
|||
hola el ejemplo me ha servido pero necesito completar algo: necesito saber como puedo copiar el contenido de una carpeta o directorio que tengo en el cd, o sea, o especificamente todo el contenido, sino una carpeta.
por ejemplo he usado este codigo para copiar desde la unidad de cd al disco c: GetLogicalDriveStrings(SizeOf(Buffer),Buffer); TmpPC := Buffer; while TmpPC[0] <> #0 do begin if GetDriveType(TmpPC) = Drive_CDROM then WinExec ('xcopy TmpPC carpeta c:\carpeta /s',sw_Hide); TargetName := 'c:\GESTIONMEDICA\GestionMedica.exe'; TmpPC := StrEnd(TmpPC)+1; end; IObject := CreateComObject(CLSID_ShellLink) ; ISLink := IObject as IShellLink; IPFile := IObject as IPersistFile; with ISLink do begin SetPath(pChar(TargetName)) ; SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ; end; SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ; SHGetPathFromIDList(PIDL, InFolder) ; LinkName := InFolder + '\Gestion Medica.lnk'; IPFile.Save(PWChar(LinkName), false) ; En la linea: WinExec ('xcopy TmpPC carpeta c:\carpeta /s',sw_Hide); no se como como especificar el nombre de la campeta que quiero que se compie desde el cd.... por favor ayuda..... y gracias. |
|
|
|