16,551
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bskay 2002-01-07
- 打赏
- 举报
format /q/u
长弓落日 2002-01-07
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var dirinfo:tsearchrec;r:integer;
begin
r:=SysUtils.FindFirst('c:\test\*.*',faanyfile,dirinfo);
while r=0 do
begin
if ((dirinfo.attr and fadirectory<>fadirectory)and (dirinfo.attr and favolumeid<>favolumeid)) then
if deletefile(pchar('c:\test\'+dirinfo.name))=false then
showmessage('unable to delete:c:\test\'+dirinfo.name);
r:=findnext(dirinfo);
end;
sysutils.findclose(dirinfo);
if removedirectory('c:\test')=false then
showmessage('unable to delete:c:\test');
end;
var dirinfo:tsearchrec;r:integer;
begin
r:=SysUtils.FindFirst('c:\test\*.*',faanyfile,dirinfo);
while r=0 do
begin
if ((dirinfo.attr and fadirectory<>fadirectory)and (dirinfo.attr and favolumeid<>favolumeid)) then
if deletefile(pchar('c:\test\'+dirinfo.name))=false then
showmessage('unable to delete:c:\test\'+dirinfo.name);
r:=findnext(dirinfo);
end;
sysutils.findclose(dirinfo);
if removedirectory('c:\test')=false then
showmessage('unable to delete:c:\test');
end;
oyf888 2001-12-29
- 打赏
- 举报
实在不行可以用FORMAT [d:], 不过其它目录可能也被删除了
shesh 2001-12-29
- 打赏
- 举报
用中断13打开,然后搜索到目录,大前一个字节改为E5,哈哈.
whiskers 2001-12-29
- 打赏
- 举报
RemoveDirectory
meteorsword 2001-12-29
- 打赏
- 举报
deltree/y
zhouyanchuan 2001-12-29
- 打赏
- 举报
kill函数
sinfee 2001-12-29
- 打赏
- 举报
呵呵，选中后按delete键后按确定!!
