删除当前目录下所有文件的方法? 请给出语句,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 删除目录function DelDirectory(const Source:string): boolean;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;再creatdir(dirname) 谁给解释一下delphi 调用dos命令的代码 关于窗体焦点,show后为什么没有焦点? DELPHI菜鸟问题 listview如何添加背景呀! 如何模拟鼠标双击标题栏? 请教如何用socket透过http代理实现与远程主机通信 求fclabel控件 Ado打开dbf表的问题(急) 在上一个网站时,发现收藏夹被塞了一堆色情网址,如何消除??? 一个关于FastReport的问题。 那位可以给我讲讲form和frame的区别? 怎么引用在另一单元中已声明过的组件???
function DelDirectory(const Source:string): boolean;
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;
再creatdir(dirname)