怎么删除文件及文件夹下的所有文件,不用Shell函数和Dos命令
解决方案 »
- 完全的门外汉要硬啃一个程序,请教一些语句的意思
- 昆明的朋友们快快来吧!!!!!!!!!!
- 如何将Excel表格的数据导入到SQL2000,我用ADO连接数据库.
- ADOQuery读取EXCEL的超奇怪问题
- 从数据库中读取的字符串在报表里显示时怎么换行呀?急!谢谢!
- 急!急!急!急!急!急!急!急!急!急!急!急!急!
- 急求!!!Table 和 adotable 的区别?解决就给分-------在线等
- 工作很烦心,散分
- 请问怎么样从不同的服务器端获取存储过程的脚本?(要求用一个统一的方法)
- 续 关于TNotifyEvent
- list index out of bounds(7) 是怎么会事啊 ?
- 求0day的网站
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(ADirName+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;