5,386
社区成员
发帖
与我相关
我的任务
分享求教删除文件夹的函数
我利用DELPHI生成的可执行文件在‘C：\A’的文件夹下，我想利用该程序将该文件夹下的所有程序删除（包括该运行程序），不知道可以实现否，如果可以希望大家指点。
...全文
请发表友善的回复…
发表回复
AustinLei 2003-08-21
- 打赏
- 举报
程序删除程序本身做不到。
PrgmLover 2003-08-21
- 打赏
- 举报
可以用:
var
sr: TSearchRec;
begin
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
DeleteFile(sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
如果还有子目录就是用一下递归
var
sr: TSearchRec;
begin
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
DeleteFile(sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
如果还有子目录就是用一下递归
