delphi 删除Internet临时文件


本文整理自网络,侵删。

 Category: Internet/Lan
Title: Delete the 'Temporary Internet Files'
Author: www.swissdelphicenter.ch
Date added: 15.03.2006
Hits: 1214

uses
WinInet;


procedure DeleteIECache;
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
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
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;


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

相关阅读 >>

Delphi文本文件读与写

Delphi 下载整个网站图片例子

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 通过http获取软件版本

Delphi 读取png base64编码文件生成图片

Delphi 删除文件函数支持撤销删除

Delphi xe 启动关闭start page 页错误提示

Delphi android 获取通�记录

Delphi 用wininet 单元实现 post提交数据

Delphi 得到文件夹下所有文件名

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...