函数类型: 自定义函数
函数说明:
删除一个目录
代码如下:
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;
用法示例:
无
《学习大师原创文档,请勿转载,侵权必究》
|