program Delete_IE_Cache;
 
 uses
   WinInet;
 
 {sc-----------------------------------------------------------------------
   Name:       DeleteIECache
   Parameters: -
 -----------------------------------------------------------------------sc}
 procedure DeleteIECache;
 var
   lpEntryInfo: PInternetCacheEntryInfo;
   hCacheDir: LongWord;
   dwEntrySize: LongWord;
 begin { DeleteIECache }
   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; { hCacheDir<>0 }
   FreeMem(lpEntryInfo, dwEntrySize);
 
   FindCloseUrlCache(hCacheDir)
 end; { DeleteIECache }
 
 
 begin
   DeleteIECache
 end.