Как скопировать каталог

← →
DjVirus (2003-04-15 08:32) [0]

Как скопировать целиком каталог со всеми подкаталогами? Если кому не трудно то вышлите мне на мыло эту процедуру(желательно с примером).

← →
Babay (2003-04-15 08:48) [1]

можно воспользоваться функциями windows например так

uses .... shellapi;
.....

procedure TForm1.Button2Click(Sender: TObject);
Var T:TSHFileOpStruct;
begin
t.pFrom:=PChar("d:\tools"#0#0);
t.pTo:=PChar("d:\tt"#0#0);
t.Wnd:=Handle;
t.wFunc:=FO_COPY;
t.fFlags:=0;// смотри подробнее в хелпе
SHFileOperation(t);// смотри подробнее в хелпе
end;

Как скопировать каталог Найти похожие ветки