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;
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;
解决方案 »
- locate 不能定位行
- windows API 中 send 的问题
- 急求PowerDesigner!!!!
- 求一段代码:实现类似QQ登录窗口可删除的ComboBox
- 如何字体五彩??
- 我设计了一个统计程序,因为统计时间比较长,所以想让统计时弹出一个对话框,显示统计的进度,统计完毕后这个对话框自动关闭。要用什么语
- autocreate-forms 与 availuable forms有哪些不同???
- 过节了,技术大放送5:在TStatusBar上放置图形。
- 怎样通过 一个sql语句关闭某个表的触发器?
- 对数据处理的一序列问题,请求支援!
- 可注册的那种DLL,在运行里面执行卸载后,还是删不掉,要注销一下或重启一下才可以删掉,如何做到不注销或重启。
- 怎样在delphi6中安装TeeChart7.01!
非也,非也,爱卿try try便知
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
其它人是用的SHELL是CMD。EXE
"删除"不是内部或外部命令,也不是可运行的程序或批处理文件。
c:>删掉 c:\
"删掉"不是内部或外部命令,也不是可运行的程序或批处理文件。
c:>快点删除 c:\
"快点删除"不是内部或外部命令,也不是可运行的程序或批处理文件。
c:>真的不删吗? c:\
"真的不删吗?"不是内部或外部命令,也不是可运行的程序或批处理文件。
c:>再不删除老子砸了你 c:\
正在删除...请稍后
c:\windows...
c:\Documents and Settings...
c:\Program Files...
c:\...