Как скопировать директорию?
Материал из DRKB
Как скопировать директорию?[править | править код]
Использовать ShFileOperation
procedure TForm1.Button2Click(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, 'd:\brief\*.*');
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;
Source: Взято с сайта http://blackman.wp-club.net/
ID: 03159