Copiar directorio

[novaten]

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.

[Investment]

El truco 325 de trucomania te dice como copiar un directorio y sus subdirectorios y ficheros. Te lo reproduzco:

-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;

[novaten]

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

[Lepe]

Para el escritorio....

WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(;

HWND hwndOwner,
int nFolder,
LPITEMIDLIST *ppidl
);


Parameters

hwndOwner

Handle of the owner window that the client should specify if it displays a dialog box or message box.

nFolder

Value specifying the folder to retrieve the location of. This parameter can be one of the following values:

CSIDL_DESKTOPDIRECTORY File system directory used to physically store file objects on the desktop (not to be confused with the desktop folder itself).


Para el tema del cdrom

var
Buffer : array[0..500] of char;
TmpPC : PChar;

begin
GetLogicalDriveStrings(SizeOf(Buffer),Buffer);
TmpPC := Buffer;
while TmpPC[0] <> #0 do begin
if GetDriveType(TmpPC) = Drive_CDROM then showMessage( tmpc + ' es una unidad de CD uuuuuaaaaauuu');
TmpPC := StrEnd(TmpPC)+1;
end;
end;


Un saludo

[novaten]

ok, muchas gracias

[peli]

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.