文件名称：Delphi清理Windows指定文件.rar
文件大小：9KB
文件格式：RAR
更新时间：2022-07-30 11:59:57
Delphi源码-算法实例
Delphi清理指定的Windows文件，是一个工程建筑材料清理程序，可清理指定格式的文件，类似于清理垃圾文件。下面是主要的代码逻辑实现方法： if Application.MessageBox('确实要删除当前文件吗？','提示',mb_YesNo) = ID_Yes then begin if FileListBox1.Items.Count>0 then begin With fileStruct do begin Wnd := 0; wFunc := FO_DELETE; pFrom := Pchar(Trim(FileListBox1.FileName)); fFlags := FOF_ALLOWUNDO; pTo := Nil; end; if SHFileOperation(fileStruct) = 0 then begin ShowMessage('删除成功。'); end else ShowMessage('删除失败。'); end; end;
【文件预览】：
srcfans.com
----清理()
--------Project2.res(876B)
--------Unit1.ddp(51B)
--------Unit1.dcu(5KB)
--------Project2.dsk(7KB)
--------Unit1.dfm(2KB)
--------Project2.dpr(188B)
--------Project2.cfg(434B)
--------Project2.dof(2KB)
--------Unit1.pas(1KB)