Delphi清理指定的Windows文件，是一个工程建筑材料清理程序，可清理指定格式的文件，类似于清理垃圾文件。下面是主要的代码逻辑实现方法： 　　ifApplication.MessageBox('确实要删除当前文件吗？','提示',mb_YesNo)=ID_Yesthen 　　begin 　　ifFileListBox1.Items.Count>0then 　　begin 　　WithfileStructdo 　　begin 　　Wnd:=0; 　　wFunc:=FO_DELETE; 　　pFrom:=