如何删除一个非空的目录?
解决方案 »
- 这个问题,让我已经失去了女朋友。
- 控件的哪个属性是用来判断自身大小变化的
- 请大家给点意见
- timer控件的使用?
- delphi编译好程序后,能否知道使用正版还是盗版delphi编译的?
- 初学问题:ToolBar如何显示Caption值??
- ado+oracle问题!!!!!!!!
- delphi webbrowser 如何控制访问远程网页之前 先访问本地页面 访问出错也访问本地页面
- [请教}如何将多层目录下的多个TXT文件中的内容合并到一个文件中并打印?
- Delphi重安装失败,请帮我,急!!!_依旧!
- 获得一个目录下的所有文件名称?
- 运行select后,在DBGrid中,从一行移到另一行会触发什么事件?
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;