delphi清除ie缓存的方法
来源:互联网 发布:微信里的数据能清除吗 编辑:程序博客网 时间:2024/05/01 18:55
清除 IE 的 cache
uses
WinInet;
procedure DeleteIECache;
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
CacheFile:String; //这块代码是选择性地清理网站Cookies;
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
{
CacheFile:=lpEntryInfo^.lpszSourceUrlName;
if Pos('baidu',CacheFile) > 0 then
begin
Application.ProcessMessages;
end
else
begin
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
end;
} //这块代码是选择性地清理网站Cookies;
{
if Pos('Cookies',lpEntryInfo^.lpszLocalFileName)=0 then
begin
Memo.Lines.Add(lpEntryInfo^.lpszLocalFileName); //测试列举;
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
end;
} //这块代码删除Temporary Internet Files目录下Cookies以外的所有文件,
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;
// Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteIECache;
end;
- delphi清除ie缓存的方法
- C#清除缓存、清除IE临时文件缓存cookies的方法
- 简单的清除IE缓存的方法
- JS清除IE浏览器缓存的方法
- JS清除IE浏览器缓存的方法
- JS清除IE浏览器缓存的方法
- C# 清除IE缓存方法
- C# 清除IE缓存方法
- C#清除IE临时文件缓存cookies的方法
- js中自动清除ie缓存方法
- js中自动清除ie缓存方法
- js中自动清除ie缓存方法
- js中自动清除ie缓存方法
- js中自动清除ie缓存方法
- js中自动清除ie缓存方法
- 清除缓存的方法
- VB清除IE缓存
- JS 清除IE缓存
- 创业公司CEO每天应该做的13件事
- 测试用例三
- 有关autorun.inf的U盘和移动硬盘病毒清除方法(图)(自创)
- C语言标准库函数 qsort 详解
- ArcGIS API for iOS开发教程三 使用MapView
- delphi清除ie缓存的方法
- JSON --- JAVA 使用方法
- ArcGIS API for iOS开发教程四 使用GraphicsLayer
- Javascript 为控件传值
- 价值上万元金色旋风2010建站培训课程整理,免费下载
- Windows Azure Marketplace DataMarket概述
- ArcGIS API for iOS开发教程(五)数据查询
- New web site...
- libmemcached编译错误,环境CentOS32位,libmemcached1.4.8