Delphi 如何清理IE缓存和cookies

答案:2 悬赏:0 手机版

解决时间 2021-03-04 23:41

提问者网友：听门外雪花风
2021-03-04 16:29

Delphi 如何清理IE缓存和cookies
请给个示范谢谢

DeleteIECache(Edit1.Text);
调用过程中 edit1.txt是干什么用的？

最佳答案

五星知识达人网友：愁杀梦里人
2021-03-04 16:53

再追加100也不为过.

procedure DeleteIECache(httpStr: string); // 清理IE缓存,IE.cookies
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
cachefile: string;
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
if (lpEntryInfo^.CacheEntryType) and (NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY then
cachefile := pchar(lpEntryInfo^.lpszSourceUrlName);
if pos(httpStr, cachefile) > 0 then //清除特定网站的cookies.例如baidu.com
DeleteUrlCacheEntry(pchar(cachefile)); //执行删除操作
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteIECache(Edit1.Text);
end;

全部回答

1楼网友：天凉才是好个秋
2021-03-04 16:59

你好！ edit1.text是网站的网址，例如baidu.com 这个是人家的函数带的参数。如有疑问，请追问。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息