Копирование папок

← →
BJValentine © (2003-05-27 11:22) [0]

Есть ль в виндах функция копирования целых папок и подпапок в них?

← →
Polevi © (2003-05-27 11:24) [1]

SHFileOperation

← →
Мое имя (2003-05-27 13:54) [2]

Удалено модератором
Примечание: Offtopic

← →
Stas © (2003-05-27 16:09) [3]

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:\temp\brief" );
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;

Спасибо

Копирование папок Найти похожие ветки