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 treeview中显示mainmenu菜单

Delphi idhashmessagedigest md5用法

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi安卓定位权限申请

Delphi access violations 问题的解决之道

Delphi 拷贝dbgrid当前行

Delphi 日期时间计算

Delphi 模拟按键的一些误解

Delphi 调用shellexecute打开txt文本

Delphi在字符串中删除指定字符串

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



打赏

取消

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

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

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

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

评论

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