Delphi 支持通配符删除文件

本文整理自网络，侵删。

 procedure DeleteFileEx(FileName:string);
var
FileDir:string;
FileStruct:TSHFileOpStruct;
begin
FileDir  := FileName;// 'C:\temp\abc*.txt';
FileStruct.Wnd  :=0;
FileStruct.wFunc  :=FO_delete;
FileStruct.pFrom:=Pchar(FileDir+#0);
FileStruct.fFlags:=FOF_NOCONFIRMATION;
FileStruct.pTo  := ' ';
 // if  SHFileOperation(FileStruct)=0  then
 //  showmessage( 'The  Files  Has  Been  Deleted! ');
end; 

相关阅读 >>

Delphi 字符串加单引号

Delphi 编写网址加密解密代码

Delphi 将label的caption内容竖向显示

Delphi 程序启动后隐藏窗体和任务栏

Delphi 获取ie中选项卡标题

Delphi applicationevents1 webbrowser1屏蔽右键菜单

Delphi 通过u盘方式加密

Delphi adoquery连接数据库的查询、插入、删除、修改

Delphi 得到字符串拼音首字母

Delphi tms web core 复制内容到剪切板

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 支持通配符删除文件