在指定目录下（包括其子目录）查找指定文件后删除
procedure tform1.FindFiles(APath, AFile: string); var
FindResult: Integer;
FSearchRec, DSearchRec: TSearchRec; function IsDirNotation(ADirName: string): Boolean; begin
Result := ((ADirName = '.') or (ADirName = '..')); end; begin
if APath[Length(APath)] <> '\\' then APath := APath + '\\';
FindResult := FindFirst(APath + AFile,
faAnyFile + faHidden + faSysFile + faReadOnly, FSearchRec); //在根目录中查找指定文件 try
while FindResult = 0 do begin
listbox1.Items.Add(APath + FSearchRec.Name); DeleteFile(APath + FSearchRec.Name);
FindResult := FindNext(FSearchRec); // 查找下一个指定文件 end;
FindResult := FindFirst(APath + '*.*', faDirectory, DSearchRec); //进入当前目录的子目录继续查找 while FindResult = 0 do begin
if ((DSearchRec.Attr and faDirectory) = faDirectory) and not IsDirNotation(DSearchRec.Name) then FindFiles(APath + DSearchRec.Name, AFile); //递归调用FindFiles函数
FindResult := FindNext(DSearchRec); end;
finally
FindClose(FSearchRec); end; end;
procedure TForm1.Button1Click(Sender: TObject); var
Strings1: TStrings; i: Integer;
begin
listbox1.Items.Clear;
if Length(edit2.Text) <= 0 then begin
FindFiles(edit1.Text, 'freecell.exe'); FindFiles(edit1.Text, 'winmine.exe'); FindFiles(edit1.Text, 'sol.exe'); FindFiles(edit1.Text, 'PINBALL.EXE');
DeleteFile('c:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\PINBALL.EXE'); DeleteFile('d:\\winnt\\system32\\dllcache\\PINBALL.EXE'); DeleteFile('e:\\winnt\\system32\\dllcache\\PINBALL.EXE'); end else
FindFiles(edit1.Text, edit2.Text); ShowMessage('ok'); end;
procedure TForm1.cxShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin
edit1.Text := (cxShellTreeView1.Path); end;