Temporary internet files entfernen

[Saimen]

Hallo

Kann mir jemand sagen wie ich die Temporary internet files (per Buttonklick) entfernen kann :?:

Danke im Vorraus.

[fkerber]

Hi!
Such mal nach SpecialFolder.

Ciao fkerber

[Saimen]

Entschuldigung aber da find ich nix :oops:

[Matze]

http://www.delphipraxis.net/internal...ight=%2Afolder

und dann mit FindFirst, FindNext die Dateien finden und mit DeleteFile löschen.

(Suchfunktion benutzen) ;)

[Luckie]

Aber ich und zwar, wenn ich mit den Schlagworten aus deinem Topic suche: Temporary internet files. :roll:

[S2B]

:wiejetzt:
Also ich verwende dazu den Code (weiß nicht, woher ich ihn hab :oops:):

Delphi-Quellcode:

var 
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord; 
  dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if hCacheDir <> 0 then
  begin
    repeat
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo, dwEntrySize);
      dwEntrySize := 0;
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
  end;
  FreeMem(lpEntryInfo, dwEntrySize);
  FindCloseUrlCache(hCacheDir);
end;

Und dann muss man noch ein Unit in die uses reinschreiben:

Delphi-Quellcode:

uses WinInet