刪除文件夾的函数

如下函数可以直接刪除一個文件夾,包括子文件夾及文件;

uses ShellAPI;

Function DelTree(DirName : string): Boolean;

var

  SHFileOpStruct : TSHFileOpStruct;

  DirBuf : array [0..255] of char;

begin

  try

   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;

   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;

   StrPCopy(DirBuf, DirName) ;

   with SHFileOpStruct do begin

    Wnd := 0;

    pFrom := @DirBuf;

    wFunc := FO_DELETE;

    fFlags := FOF_ALLOWUNDO;

    fFlags := fFlags or FOF_NOCONFIRMATION;

    fFlags := fFlags or FOF_SILENT;

   end;

    Result := (SHFileOperation(SHFileOpStruct) = 0) ;

   except

    Result := False;

  end;

end;