注册 登陆

delphi的IE清空缓存

Written by 小锋 on 08-01-11 1:52 AM. DELPHI

以前接触过清空ie缓存的东西 后来改变了方案也就没用到了
刚抓到了一笔就贴上来了嘿嘿以便以后用到

Delphi代码
  1. 清除 IE 的 cache   
  2. uses  
  3.   
  4.   WinInet;   
  5.   
  6.   
  7. procedure DeleteIECache;   
  8.   
  9. var  
  10.   
  11.   lpEntryInfo: PInternetCacheEntryInfo;   
  12.   
  13.   hCacheDir: LongWord;   
  14.   
  15.   dwEntrySize: LongWord;   
  16.   
  17. begin  
  18.   
  19.   dwEntrySize := 0;   
  20.   
  21.   FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);   
  22.   
  23.   GetMem(lpEntryInfo, dwEntrySize);   
  24.   
  25.   if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;   
  26.   
  27.   hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);   
  28.   
  29.   if hCacheDir <> 0 then  
  30.   
  31.   begin  
  32.   
  33.     repeat  
  34.   
  35.       DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);   
  36.   
  37.       FreeMem(lpEntryInfo, dwEntrySize);   
  38.   
  39.       dwEntrySize := 0;   
  40.   
  41.       FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);   
  42.   
  43.       GetMem(lpEntryInfo, dwEntrySize);   
  44.   
  45.       if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;   
  46.   
  47.     until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);   
  48.   
  49.   end;   
  50.   
  51.   FreeMem(lpEntryInfo, dwEntrySize);   
  52.   
  53.   FindCloseUrlCache(hCacheDir);   
  54.   
  55. end;   
  56.   
  57.   
  58.   
  59. // Beispiel:   
  60.   
  61. // Example:   
  62.   
  63. procedure TForm1.Button1Click(Sender: TObject);   
  64.   
  65. begin  
  66.   
  67.   DeleteIECache;   
  68.   
  69. end;   

Tags: 缓存, cache, ie, 清空

« 上一篇 | 下一篇 »

相关文章

发表评论

评论内容 (必填):