[原]Delphi调用ShellAPI删除整个目录(我觉得是最快的方法)
Posted by bianbian on 2006-09-16 15:28
- var
- S: string;
- T: TSHFileOpStruct;
- begin
- S := '目录名';
- with T do
- begin
- Wnd := 0;
- wFunc := FO_DELETE;
- pFrom := PChar(S);
- pTo := nil;
- fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_NOERRORUI;
- //标志表明允许恢复，无须确认并不显示出错信息
- hNameMappings := nil;
- lpszProgressTitle := '正在删除文件夹';
- fAnyOperationsAborted := False;
- end;
- SHFileOperation(T);
- end;
遵守创作共用协议，转载请链接形式注明来自http://bianbian.org 做人要厚道