Verlauf im Internet Explorer löschen

[mrs]

Hallo zusammen,

so langsam bin am Verzweifeln. Seit Tagen suche ich im Internet nach einem Delphi-Programm (mit Quellcode), das den Cache und den Verlauf des Internet-Explorers löschen kann. Zum Teil bin ich auch fündig geworden. So klappt das Löschen der Einträge in "Temporary Internet Files" mit dem Befehl "DeleteUrlCacheEntry" der wininet.dll eigentlich schon ganz gut.

Leider bleiben die Unterordner dieses Verzeichnisses leer (was nicht so schlimm wäre).

Was ich aber noch gar nicht gefunden habe, ist eine Routine zum Löschen des Verlaufes. Aus dem IE (Extras - Internetoptionen - "Verlauf leeren") funktioniert es tadellos.

Weiß jemand, welche Routine der IE hierzu aufruft, oder noch besser, hat jemand einen Quellcode, der das erledigt.

Für Hilfe wäre ich außerordentlich dankbar.

Gruß Reinhold

[JPK]

Hallo Reinhold

Auch ich suche verzweifelt nach einer Möglichkeit den Cache (inkl. aller Cookies) zu löschen! Kannst du bitte den Quellcode posten? Du würdest mir eine Menge arbeit ersparen... ;-)

Danke & Gruss
JP

[mrs]

<PRE>
uses
... wininet ...;
<BR>
procedure LoescheCache;
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;
</PRE&gt