有谁知道用程序如何访问和删除IE的历史记录，要求给出源码，愿意全部分值奉送!!!

Question

如得到今天有哪些网页被访问过？代码详细的可另加分!

Answer 1

有一部分的历史记录在注册表里，你可以直接用DELPHI操作注册表，删掉记录。
另外文件夹里也有一部分。
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
  "c:\windows\History"
  具体可能有所不同。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  cache_info:PInternetCacheEntryInfo;
  cbSizeOf_Cache_info:dword;
  hw:hwnd;
  buf:tstrings;
begin
  buf:=tstringlist.Create;
  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);
    buf.Add(cache_info.lpszSourceUrlName);
    while FindNextUrlCacheEntryEx(hw,cache_info,@cbSizeOf_Cache_info,nil,nil,nil) do
      buf.Add(cache_info.lpszSourceUrlName);
      DeleteUrlCacheEntry(cache_info.lpszSourceUrlName);
  end;
  FindCloseUrlCache(hw);
  dispose(cache_info);
  showmessage(buf.Text);
  buf.Free;
end; 

Answer 3

to norxi:
  老兄：你的原码我试过，一执行FindFirstUrlCacheEntryEx函数，它总是返回0，不知为什么？还有我该如何得到今天的历史记录？