Как скопировать директорию?

Previous  Top  Next

    
 

 

Использовать ShFileOperation

 

Code:

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;

 

 

©Drkb::03159

Взято с сайта http://blackman.wp-club.net/