Как скопировать непустую директорию, т.е. со всем ее содержимым?

← →
Ler (2003-05-19 17:27) [0]

Уважаемые Мастера!
Подскажите плиз.
Как скопировать непустую директорию, т.е. со всем ее содержимым

← →
MBo © (2003-05-19 17:39) [1]

findfirst рекурсивно или SHFileOperation

← →
Ler (2003-05-19 18:15) [2]

С "findfirst-findnext рекурсивно" все понятно, а что такое SHFileOperation ???

← →
MBo © (2003-05-19 18:28) [3]

Хелп и FAQ

uses ShellApi; если не ошибаюсь

procedure TCopyForm.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "ПУТЬ ОТКУДА КОПИРОВАТЬ");
StrPCopy( tobuf, "ПУТЬ КУДА КОПИРОВАТЬ");
With OpStruc do
begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION {or FOF_RENAMEONCOLLISION};
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

Как скопировать непустую директорию, т.е. со всем ее содержимым? Найти похожие ветки