怎样在程序中删除IE历史记录？

转载于 2009-07-14 13:05:00 发布 · 61 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/myamanda/articles/1523176.html

本文提供了一段使用Delphi清除IE缓存的示例代码。通过调用FindFirstUrlCacheEntryEx、DeleteUrlCacheEntry及FindNextUrlCacheEntryEx等函数，实现了遍历并删除所有IE缓存项的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

转载于:https://www.cnblogs.com/myamanda/articles/1523176.html