如何把已有的几个网址替换到IE的地址栏中

Question

在注册表中添加呀！看看下面的贴子，正好说的是如何删除地址栏中的网址，现在你反着做不就行了：http://www.csdn.net/expert/topic/98/98785.shtm

Answer 1

获得IE对象，然后获得其下的IHTMLWindow2 接口，然后访问接口的history 属性

Answer 2

TechnoFantasy
能说的详细些吗？最好有代码
thank you !

Answer 3

看看这个例子：
http://go8.163.com/~aton/history.zip

Answer 4

{
对不起，上次没讲清楚，给你一个例程：以下已在Win98+Delphi5.0中调试通过
通过操作注册表在IE地址栏中添加你需要的URL地址
新建一项目,在窗体中添加Edit1、Button1
为Button1添加OnClick事件,uses 单元中加入Registry
程序运行后，按Button1即可将Edit1中的URL地址添加
为IE地址栏中的第一个。
需要说明，这些添加只有重新进入IE才有效。IE的默认URL地址存放在
HKEY_CURRENT_USERSoftware\Microsoft\Internet Explorer\Main\Start Page
下，用同样的方法也可以设置
}
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Registry;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
  inf: TRegKeyInfo;
  i: Word;
  keystr: string;
begin
  //准备使用注册表
  reg := TRegistry.Create;
  with reg do
  begin
    //操作此根目录
    RootKey:=HKEY_CURRENT_USER;
    //打开存放URL地址的主健
    if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\',True) then
      //将该健值下的URL地址序号向后移动一个数,
      //注意:URLxx的序号要连续,否则不能完全显示
      //把你需要设置的URL地址认为栏中的第一个
      begin
        GetKeyInfo(inf);
        for i:=inf.NumValues downto 1 do
        begin
          keystr:=ReadString('url'+IntToStr(i));
          WriteString('url'+IntToStr(i+1),keystr);
        end;
        WriteString('url1',Edit1.Text);
        CloseKey;
        Free;
      end;
  end;
end;end.

Answer 5

Bald_eagle(青山):你白痴呀,"管理"