复制文件夹

uses shellAPI;

    procedure TForm1.Button1Click(Sender: TObject);

    var

       lpFileOp: TSHFileOpStruct;

    begin

      with lpFileOp do

      begin

        Wnd:=Self.Handle;

        wfunc:=FO_COPY;

        pFrom:=pchar('C:\AAA');

        pTo:=pchar('D:\AAA');

        fFlags:=FOF_ALLOWUNDO;

        hNameMappings:=nil;

        lpszProgressTitle:=nil;

        fAnyOperationsAborted:=True;

     end;

     if SHFileOperation(lpFileOp)<>0 then

     ShowMessage('删除失败');

    end;

转载于:https://www.cnblogs.com/28088191/archive/2008/06/14/1221953.html