ich hab da eine prozedure bei euch gefunden die funktioniert bei den ordner c:\windows\cookies wunderbar
Delphi-Quellcode:
procedure deleteallfiles(mask:string);
var
search:TSearchRec;
dir:string;
dat:string;
begin
dat:=ExtractFileName(mask);
dir:=ExtractFilePath(mask);
if dir[length(dir)]<>'' then dir:=dir+'';
if FindFirst(mask,$23,search)=0 then begin
repeat
deletefile(dir+search.Name);
until FindNext(search)<>0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
deleteallfiles('c:\Windows\cookies\*.txt');
end;
warum funktioniert die nicht bei dem ordner temporary internet files
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
deleteallfiles('c:\WINDOWS\Temporary Internet Files\*.gif'
[Edit=Sakura]DELPHI-Tags korrigiert. Bitte mal in die Hilfe schauen, um die Anwendung korrekt zu verstehen. Danke.[/Edit]