不清空目录,就不能把这个目录删掉? 请教? uses ShellApi;API: SHFileOperation(); 解决方案 » 免费领取超大流量手机卡,每月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;(摘自delphi猛料,谢谢winapi兄提供的资料,真的非常好) MDI程序,子窗体的Caption如何放在父窗体的Menu上,并响应事件? ClientDataSet.FindKey?? access 日期型问题 一个考勤统计的SQL问题?数据库为MSSQL。 请问怎么样才能在richedit上画一条线???(用程序实现) 在线等待,急急急!!!!!!!!!!!!! 请问怎么样在一个过程中让窗体最大化,最小化,正常 最近作了个浏览器,想加上网络安全方面的设置,请教高手 怎样把paradox数据库的一个字段分成俩个? snap服务端和客户端如何联调 如何精减代码以实现代码复用? 问题简单,得分容易!
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;
(摘自delphi猛料,谢谢winapi兄提供的资料,真的非常好)