用findfirst,findnext找到后删除
还有一种方法,调用使用
ShellExecute(handle,'open',PChar('delete e:\*.txt'),nil,nil,SW_SHOW);
还有一种方法,调用使用
ShellExecute(handle,'open',PChar('delete e:\*.txt'),nil,nil,SW_SHOW);
解决方案 »
- 怎么解决trunc的问题 trunc(2.01 * 1000) = 2009
- cxGrid 显示数据的问题
- 如何将连接数据库以及操作、查询数据库的功能封装在dll里面?
- 动态库函数访问出错
- 一个巨简单的问题!高分相送
- 辞职后的第一件事:发布中国软件专家门诊离线数据浏览器(简记:Csdn Explorer),望各位朋友支持!
- 请问:使用TIdTCPClient,如何知道服务器向它发送数据了(通过什么事件)?
- 如何控制其它应用程序窗口的位置
- opendialog.fliter 及listbox.item 的简单应用,马上给分
- 不能用serversocket向clientsocket传送数据库数据吗?
- 哪位大侠来帮帮我吧,头痛S了!!!MinutesBetween的计算误差问题
- 有没有能拖出成浮动小窗口的TToolbar 控件?
var
F:TShFileOpStruct;
begin
F.wnd:=0;
F.wFunc:=FO_DELETE;
F.pFrom:=PChar(SourceName +'\*.txt'+#0#0);
F.pTo:=PChar(''+#0#0);
F.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION;
result:= ShFileOperation(F)=0;
end;