清空IE缓存-也就是清除掉IE临时文件夹

引用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;