怎样引用IE的历史记录

Question

偶正在做一个类IE的浏览器，做得差不多了，但想加入像IE的历史记录那样的一个列表，可不知道怎样引用IE的历史记录，请各位大侠赐教，分不够再加，小弟在此谢过了。

Answer 1

uses registry; procedure ShowTypedUrls(Urls: TStrings); 
var 
  Reg: TRegistry; 
  S: TStringList; 
  i: Integer; 
begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then 
    begin 
      S := TStringList.Create; 
      try 
        reg.GetValueNames(S); 
        for i := 0 to S.Count - 1 do 
        begin 
          Urls.Add(reg.ReadString(S.Strings[i])); 
        end; 
      finally 
        S.Free; 
      end; 
      Reg.CloseKey; 
    end; 
  finally 
    Reg.Free; 
  end; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowTypedUrls(ListBox1.Items); 
end; (注：取IE的历史记录)