Delphi - Problema.

Tengo mi Project1 que contiene mi Form1 en un CD, y quiero que al presionar un botón de ese Form se copie a la unidad C: una carpeta que tengo en ese mismo CD, ¿cómo puedo lograrlo?.

Le indicas el origen y el destino y te copia lo que tengas.

procedure CopyDirectory(Origen, Desti : string);
var
Files : integer;
FOrigen, FDesti : string;
ok : boolean;
Search : TSearchRec;
begin
Files := FindFirst(Origen + '\*.*', faAnyFile, Search);
while Files = 0 do
begin
if Search.Attr <> faDirectory then
begin
FOrigen := Origen + '\' + Search.Name;
FDesti := Desti + '\' + Search.Name;
ok := CopyFile(PChar(FOrigen),PChar(FDesti),false);
if not ok then ShowMessage('No se pudo copiar el fichero: '+
Search.Name);
end
else
begin
if (Search.Name <> '.') and (Search.Name <> '..') then
begin
ok := CreateDir(Desti + '\' + Search.Name);
if not ok then ShowMessage('No se pudo crear el directorio: '+
Search.Name)
else CopiaDirectori(Origen+'\'+Search.Name,Desti+'\'+Search.Name);
end;
end;
Files := FindNext(Search);
end;
FindClose(Search);
end;

Saludos,
Peter Investment