delphi 删除IE缓存记录

--删除IE缓存记录

uses WinInet;

procedure DeleteIECache;

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;