uses
  WinInet;
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;
創作者介紹

神鵰蝦

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()