Как скопировать все файлы вместе с подкаталогами

uses

ShellApi; procedure

TForm1.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, 'h:hook*.*' ); StrPCopy( tobuf, 'd: emp rief' ); 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

;

Другое по теме:

• Копирование файлов
• Удалить файл в корзину? Запросто!
• Получение "лицевой" иконки файла