Delphi 实现删除 IE 历史记录

最新Delphi 实现删除 IE 历史记录

以下是三零网为大家整理的最新Delphi 实现删除 IE 历史记录的文章，希望大家能够喜欢!

 

uses wininet;

procedure TForm1.Button1Click(Sender: TObject);
var
cache_info:PInternetCacheEntryInfo;
cbSizeOf_Cache_info:dword;
hw:hwnd;
buf:tstrings;
begin
new(cache_info);
hw:=FindFirstUrlCacheEntryEx(nil,0,NORMAL_CACHE_ENTRY or URLHISTORY_CACHE_ENTRY,0,cache_info,@cbSizeOf_Cache_info,nil,nil,nil);
if hw<>0 then
begin
DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);
while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do
DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);
end;
FindCloseUrlCache(hw);
dispose(cache_info);
end;

 

延伸阅读:
·Delphi 实现删除本身程序
·Delphi 删除自身的程序
·Delphi 删除注册的ODBC 示例
·Delphi 禁止 DBGrid 按delete删除记录
·delphi 四种方法删除数据库重复记录示例
·【delphi sql语句】delphi常用SQl 语句：新建,删除,修改表结构
·Delphi删除或移动正在使用的文件
·Delphi编写的简易文件管理器代码
·Delphi 实现目录的复制、删除和移动
·Delphi想TStringGrid中添加和删除行的方法
·Delphi ListView 按标题删除项目
·Delphi 删除文件的扩展名
·Delphi删除指定驱动器的卷标，成功返回true