删除一个目录

• 函数类型：　自定义函数

• 函数说明：

删除一个目录

• 代码如下：

 procedure DelDir(Dir: string);
var
  shFileOpStruct: TSHFileOpStruct;
begin
  with shFileOpStruct do
  begin
    Wnd := 0;
    WFunc := FO_DELETE;
    pFrom := Pchar(Dir);
    pTo := nil;
    fFlags := FOF_NOCONFIRMATION + FOF_NOERRORUI;
    // 标志表明允许恢复，无须确认并不显示出错信息
    hNameMappings := nil;
    lpszProgressTitle := '正在删除文件夹';
    fAnyOperationsAborted := False;
  end;
  SHFileOperation(shFileOpStruct);
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》