如何获取浏览器的“前进和后退”记录？(70分)

小弟正在写一个包含浏览器功能的程序，但不知道如何获取浏览器的当前浏览历史记录。各位高人望告之，送上70分。

IE的历史记录保存为文件格式，如何获得这些文件的建立时间和访问次数？

首先在uses部分包括WinInet单元，你会发现里面有这样一个函数：
function GetUrlCacheEntryInfo(lpszUrlName: PAnsiChar;
var lpCacheEntryInfo: TInternetCacheEntryInfo;
var lpdwCacheEntryInfoBufferSize: DWORD): BOOL; stdcall;
但这种声明方式不易使用(你可以试一下)，但可以改成如下声明：
function MyGetUrlCacheEntryInfo(lpszUrlName: PAnsiChar;
lpCacheEntryInfo: PInternetCacheEntryInfo;
lpdwCacheEntryInfoBufferSize: PDWORD): BOOL; stdcall; external 'wininet.dll' name 'GetUrlCacheEntryInfoA';

下面是一个简单的范例，希望能对你有所帮助。

procedure ShowCacheInfo;
var
dwCacheEntryInfoBufferSize: DWORD;
lpCacheEntryInfo: PInternetCacheEntryInfo;
begin
//第一次调用，返回需要的字节数在dwCacheEntryInfoBufferSize中
dwCacheEntryInfoBufferSize := 0;
MyGetUrlCacheEntryInfo('http://www.scmp.net/', lpCacheEntryInfo,
@dwCacheEntryInfoBufferSize);

//由第一次调用得到的返回值，分配足够的内存空间，然后第二次调用
GetMem(lpCacheEntryInfo, dwCacheEntryInfoBufferSize);
try
//如果调用成功，返回的信息在lpCacheEntryInfo中
if MyGetUrlCacheEntryInfo('http://www.scmp.net/', lpCacheEntryInfo,
@dwCacheEntryInfoBufferSize) then
begin
//lpCacheEntryInfo是指向INTERNET_CACHE_ENTRY_INFOA结构的指针，参考WinInet
//单元内INTERNET_CACHE_ENTRY_INFOA结构的定义，那里面有你想要的一切，下面将
//显示点击次数。
ShowMessage(IntToStr(lpCacheEntryInfo.dwHitRate));
end;
finally
freemem(lpCacheEntryInfo);
end;
end;

end.

请问如何获得ie中历史的信息

用IUrlHistoryStd2 接口可以实现，在VC的文档中没有这个接口的描述，不过你可以取看VC的源程序和头文件。

如下面是在记录中添加50条

IUrlHistoryStg2* pUrlHistoryStg2 = NULL;
HRESULT hr = CoCreateInstance(CLSID_CUrlHistory,
NULL, CLSCTX_INPROC, IID_IUrlHistoryStg2,
(void**)&pUrlHistoryStg2);
if (SUCCEEDED(hr))
{
char a[200];
char b[200];
strcpy(a,"www.csdn.net");
strcpy(b,"test");
hr=pUrlHistoryStg2->AddUrl((LPCOLESTR)(&a),(LPCOLESTR)(&b),0);
pUrlHistoryStg2->Release();
}

我是说如何获取后退按钮的下拉菜单显示的浏览记录。