清理IE历史记录问题(1分)

凡IE访问过的历史记录一般均放在“history”内，但清除此目录下文件还是不行，
因为还放在注册表内，如何用delphi编写清理掉？

对着显示器大喊：[red]清理IE历史[/red]
就可以了，铁公鸡！

近来太忙，口袋空空的。另日捧上。

查查以前的问题呀！
uses wininet;
procedure TForm1.Button1Click(Sender: TObject);
var
cache_infoInternetCacheEntryInfo;
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;

接受答案了.