引用WinINet单元
procedureTForm1.DeleteIECache;//清理IE缓存
var
lpEntryInfo:PInternetCacheEntryInfo;
hCacheDir:LongWord;
dwEntrySize:LongWord;
cachefile:string;
i:integer;
cancheqqlist:TStringList;
begin
cancheqqlist:=TStringList.Create;
cancheqqlist.Clear;
dwEntrySize:=0;
FindFirstUrlCacheEntry(nil,TInternetCacheEntryInfo(nil^),dwEntrySize);
GetMem(lpEntryInfo,dwEntrySize);
ifdwEntrySize>0then
lpEntryInfo^.dwStructSize:=dwEntrySize;
hCacheDir:=FindFirstUrlCacheEntry(nil,lpEntryInfo^,dwEntrySize);
ifhCacheDir<>0then
begin
repeat
if(lpEntryInfo^.CacheEntryType)and(NORMAL_CACHE_ENTRY)=NORMAL_CACHE_ENTRYthen
cachefile:=pchar(lpEntryInfo^.lpszSourceUrlName);
cancheqqlist.Add(cachefile);
fori:=0tocancheqqlist.Count-1do
DeleteUrlCacheEntry(pchar(cancheqqlist.Strings[i]));//执行删除
FreeMem(lpEntryInfo,dwEntrySize);
dwEntrySize:=0;
FindNextUrlCacheEntry(hCacheDir,TInternetCacheEntryInfo(nil^),dwEntrySize);
GetMem(lpEntryInfo,dwEntrySize);
ifdwEntrySize>0then
lpEntryInfo^.dwStructSize:=dwEntrySize;
untilnotFindNextUrlCacheEntry(hCacheDir,lpEntryInfo^,dwEntrySize);
end;
FreeMem(lpEntryInfo,dwEntrySize);
FindCloseUrlCache(hCacheDir);
cancheqqlist.Free;
end;
清空IE缓存-也就是清除掉IE临时文件夹
最新推荐文章于 2021-04-09 14:27:11 发布