在delphi中怎样删除一个文件夹(很可能里面有很多子文件夹和文件)?
------------------------------------------------------------------
期待着您得回应
------------------------------------------------------------------
期待着您得回应
解决方案 »
- 做系统登录的用户身份验证然后登录主窗体问题,本人新手,要设计一个管理信息系统。
- Delphi翻译成C# 很简短 大家帮下忙
- dll传递三方控件的问题
- 如何抓取像豪杰和realone播放窗口的图像,用普通方法捉的图像为空的
- 请问端口函数port怎么用?
- 想实现在图片上移动就换图片,鼠标移开换回原图片效果,换的时候老是闪烁,大家有好的思路吗?
- 请给一个中等规模Delphi消息示例代码,有注释的。
- 我想问一下,哪里有InstallShield for Delphi这个软件下载的
- 为什么非要卸载钩子?
- 怎么改变DBGrid控件中特定行的的背景颜色和字符颜色?急用!!!
- 急,帮忙!!一条SQL语句送分100
- 两条sql 语句的区别?(大家帮忙过来看一下)
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;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(Directory+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;