删除IE临时文件

2006 年 07 月 10 日

13812 次浏览

1861字数

uses &nbsp;WinInet; procedure DeleteIECache; //清理IE缓存 var &nbsp;lpEntryInfo: PInternetCacheEntryInfo; &nbsp;hCacheDir: LongWord; &nbsp;dwEntrySize: LongWord; &nbsp;cachefile: string; &nbsp;i: integer; &nbsp;cancheqqlist: TStringList; begin &nbsp;cancheqqlist := TStringList.Create; &nbsp;cancheqqlist.Clear; &nbsp;dwEntrySize := 0; &nbsp;FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize); &nbsp;GetMem(lpEntryInfo, dwEntrySize); &nbsp;if dwEntrySize &gt; 0 then &nbsp;&nbsp;&nbsp;lpEntryInfo^.dwStructSize := dwEntrySize; &nbsp;hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize); &nbsp;if hCacheDir &lt;&gt; 0 then &nbsp;begin &nbsp;&nbsp;&nbsp;repeat &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if (lpEntryInfo^.CacheEntryType) and (NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cachefile := pchar(lpEntryInfo^.lpszSourceUrlName); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if pos('Delphibbs.com', cachefile) &gt; 0 then //符合条件的清除 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cancheqqlist.Add(cachefile); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for i := 0 to cancheqqlist.Count - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DeleteUrlCacheEntry(pchar(cancheqqlist.Strings[i])); //执行删除 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FreeMem(lpEntryInfo, dwEntrySize); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dwEntrySize := 0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetMem(lpEntryInfo, dwEntrySize); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if dwEntrySize &gt; 0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lpEntryInfo^.dwStructSize := dwEntrySize; &nbsp;&nbsp;&nbsp;until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize); &nbsp;end; &nbsp;FreeMem(lpEntryInfo, dwEntrySize); &nbsp;FindCloseUrlCache(hCacheDir); &nbsp;cancheqqlist.Free; end;