我见过短的目录删除代码![欣赏]

Dangyuhang 2004-12-24 03:03:36

procedure DeleteTree(path: string);
var
t : TSHFileOpStruct;
begin
with t do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(path);
pTo := nil;
fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
hNameMappings:=nil;
fAnyOperationsAborted:=False;
end;
SHFileOperation(t);
end;

...全文

284 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

hottey 2004-12-27

打赏
举报

搞．．．

micher_yan 2004-12-25

打赏
举报

c:>删除 c:\
"删除"不是内部或外部命令，也不是可运行的程序或批处理文件。
c:>删掉 c:\
"删掉"不是内部或外部命令，也不是可运行的程序或批处理文件。
c:>快点删除 c:\
"快点删除"不是内部或外部命令，也不是可运行的程序或批处理文件。
c:>真的不删吗？ c:\
"真的不删吗？"不是内部或外部命令，也不是可运行的程序或批处理文件。
c:>再不删除老子砸了你 c:\
正在删除...请稍后
c:\windows...
c:\Documents and Settings...
c:\Program Files...
c:\...

halfdream 2004-12-25

打赏
举报

呵呵。。都是用的SHELL调用。。

区别只是楼主用的SHELL 是EXPLORER。EXE
其它人是用的SHELL是CMD。EXE

l_xiaofeng 2004-12-25

打赏
举报

笑死我了我靠！

yexiaozi2004 2004-12-25

打赏
举报

如何用QUERY控件来修改数据库中的数据

比如库中的数量原来是8个,我添加了3个,要他自动增为11个在数据库中看到的

reallike 2004-12-25

打赏
举报

try..try..

aiirii 2004-12-25

打赏
举报

哈哈
风炎……
强

ksaiy 2004-12-25

打赏
举报

哦哦。。。。。

hthunter 2004-12-25

打赏
举报

楼上的，你的删的太慢了

ly_liuyang 2004-12-24

打赏
举报

2000或以上用RD就OK,没有Deltree啦

Removes (deletes) a directory.

RMDIR [/S] [/Q] [drive:]path
RD [/S] [/Q] [drive:]path

/S Removes all directories and files in the specified directory
in addition to the directory itself. Used to remove a directory
tree.

/Q Quiet mode, do not ask if ok to remove a directory tree with /S

http://lysoft.7u7.net