删除一个目录

  • 函数类型: 自定义函数

  • 函数说明:

删除一个目录


  • 代码如下:



 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;



  • 用法示例:

无 



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678