delphi定时遍历删除目录

来源：百度知道 编辑：UC知道 时间：2024/06/27 12:41:22
目录名未知，要删除其下指定的未知文件

随便查查手册就知道了，哎
var
ASearchRec:TSearchRec;
begin
if MessageBox(handle,pchar('真的要删除临时文件?'),'确认',4)=IDYES then
begin
if FindFirst('指定的目录\*',faAnyFile,ASearchRec)=0 then
DeleteFile(ASearchRec.Name);
while( FindNext(ASearchRec)=0 )do
DeleteFile('指定的目录'+ASearchRec.Name);
FindClose(ASearchRec);
end;
end;