删除非空目录

最新推荐文章于 2024-08-24 23:53:15 发布

yuxiaoyu.

最新推荐文章于 2024-08-24 23:53:15 发布

阅读量142

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/huking/archive/2010/08/05/1793234.html

本文介绍了两种在Delphi中删除文件夹的方法：一种使用SHFileOperation进行递归删除；另一种通过FindFirst和FindNext遍历目录并逐个删除文件，最后移除目录。

function DeleteDirectory(mSource: string): Boolean;
var
vSHFileOpStruct: TSHFileOpStruct;
begin
FillChar(vSHFileOpStruct, SizeOf(vSHFileOpStruct), 0);
with vSHFileOpStruct do
begin
Wnd := Application.Handle;
wFunc := FO_DELETE;
pFrom := PChar(mSource + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := SHFileOperation(vSHFileOpStruct) = 0;
end; { DeleteDirectory }

procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteDirectory( 'C:\temp ');
end;

procedure DelDir(SourcePath: String);
var
sr: TSearchRec;
begin
SourcePath:=IncludeTrailingPathDelimiter(SourcePath);
if FindFirst(SourcePath + '*.* ', faAnyFile, sr) = 0 then
begin
repeat
DeleteFile(SourcePath + sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
RemoveDir(SourcePath);
end;
end;

转载于:https://www.cnblogs.com/huking/archive/2010/08/05/1793234.html