5,939
社区成员
发帖
与我相关
我的任务
分享我自己的觉得最好的删除目录函数。。。
//在论坛里搜索了很多，都用到什么chdir，都不好用，
//所以自己写个最简洁的。。。贡献出来。
function Deltree(sDir: string): Boolean;
var
hFindFile: HWND;
FindFileData: WIN32_FIND_DATA;
sr: TSearchRec;
begin
sDir:= sDir + '\';
hFindFile:= FindFirstFile(pchar(sDir + '*.*'), FindFileData);
if hFindFile <> NULL then
begin
while FindNextFile(hFindFile, FindFileData) <> FALSE do
begin
if FindFileData.dwFileAttributes in [FILE_ATTRIBUTE_DIRECTORY] then
begin
if (strpas(FindFileData.cFileName) <> '.') and (strpas(FindFileData.cFileName) <> '..') then
begin
Deltree(sDir + FindFileData.cFileName);
end;
end
else begin
deletefile(sDir + FindFileData.cFileName);
end;
end;
end;
sr.FindHandle:= hFindFile;
FindClose(sr);
RemoveDir(sDir);
end;
//所以自己写个最简洁的。。。贡献出来。
function Deltree(sDir: string): Boolean;
var
hFindFile: HWND;
FindFileData: WIN32_FIND_DATA;
sr: TSearchRec;
begin
sDir:= sDir + '\';
hFindFile:= FindFirstFile(pchar(sDir + '*.*'), FindFileData);
if hFindFile <> NULL then
begin
while FindNextFile(hFindFile, FindFileData) <> FALSE do
begin
if FindFileData.dwFileAttributes in [FILE_ATTRIBUTE_DIRECTORY] then
begin
if (strpas(FindFileData.cFileName) <> '.') and (strpas(FindFileData.cFileName) <> '..') then
begin
Deltree(sDir + FindFileData.cFileName);
end;
end
else begin
deletefile(sDir + FindFileData.cFileName);
end;
end;
end;
sr.FindHandle:= hFindFile;
FindClose(sr);
RemoveDir(sDir);
end;
...全文
请发表友善的回复…
发表回复
郝人（好人） 2003-04-04
- 打赏
- 举报
mark too
Linux2001 2003-03-27
- 打赏
- 举报
其实就是循环递归删除所有文件最后删除文件夹啊。以前的帖子里面讨论过的，你仔细搜搜。
Nizvoo 2003-03-27
- 打赏
- 举报
呵呵，返回值呢？
lbsong 2003-03-27
- 打赏
- 举报
其实用API更方便
vuen 2003-03-27
- 打赏
- 举报
怎么没返回值啊？
itperson 2003-03-15
- 打赏
- 举报
研究研究！！@_@
深宇 2003-03-15
- 打赏
- 举报
mark
alphax 2003-03-15
- 打赏
- 举报
第三次进来，终于忍不住要说了
分太少了
分太少了
