主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

我无法删除目录,有什么问题......... 找到类似的分支


Filat   (2002-07-17 21:20) [0]

从FAQ中我采用了以下代码:
function TMain_kb.DeleteDir(Dir:String):boolean;
VAR
发现:整数;
SearchRec:TSearchRec;
开始
结果:=假;
如果IOResult <> 0那么
ChDir(Dir);

{if IOResult <> 0 then} < - 如果删除括号,堆栈溢出????

开始
ShowMessage(“我无法进入目录:”+ Dir);
退出;
结束;
找到:= FindFirst(“*。*”,FaAnyFile,SearchRec);
而Found = 0
开始
if(SearchRec.Name <>“。”)和(SearchRec.Name <>“..”)然后
if(SearchRec.Attr和faDirectory)<> 0然后开始
如果不是DeleteDir(SearchRec.Name)然后退出;
结束其他
如果不是DeleteDir(SearchRec.Name)然后开始
ShowMessage(“我无法删除文件:”+ SearchRec.Name);;
退出;
结束;
找到:= FindNext(SearchRec);
结束;
FindClose(SearchRec);
ChDir(“..”);
RmDir(Dir);
结果:= IOResult = 0;
结束;

执行该函数时,它到达ShowMessage(“我无法进入目录:”+ Dir);
和一切,如何强制删除目录D:\ Program Files \ Kl_n \ 20020717 < -
在ShowMessage中,字符串D:\ Program Files \ Kl_n \
建议。



Song   (2002-07-17 21:33) [1]

所以你没有运行ChDir()命令。 一般很奇怪。
使用ShFileOperation() - 5行代替所有这些文本。



Юрий Зотов   (2002-07-17 22:35) [2]

如果目录当前是程序的当前目录,则该目录可能不会退出。



Filat   (2002-07-18 10:59) [3]

- >>歌曲©
我已经在几个例子中使用了ShFileOperation(),但它们对我不起作用,我需要插入一些mabubuch,但是哪一个?

- >> Yuri Zotov©
20020717目录是在当前日期创建的,即 新日期,新目录,里面 - 工作日,当前或过去的表格。 最后,我将把它归档,将归档文件传输到archives目录,然后删除这个目录。
如果在删除目录之前一切都是TTable:= False; 这足以将其删除,或者可能存在更多陷阱......

谢谢。



Song   (2002-07-18 13:35) [4]

2Filat©(18.07.02 10:59)
ShellAPI的?



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上









内存:0.56 MB
时间:0.024 c
7-95582
ALXN
2002-05-14 11:08
2002.07.29
PgUp PgDn Keys


1-95431
维克多s72
2002-07-16 16:57
2002.07.29
TChart - > SaveToBitmapFile


14-95561
Tahion
2002-06-25 10:15
2002.07.29
如何使表单出现?


7-95584
菲拉特
2002-05-14 13:56
2002.07.29
如何从Internet Explorer关闭弹出窗口?


4-95600
质子
2002-05-18 22:54
2002.07.29
Win9x监视器中的刷新率





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский