在程序中如何将IE的主页地址修改为指定的网址?

Question

在注册表的HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\里修改Start Page就是ie的主页地址

Answer 1

參考代碼如下: (請測誡一下)procedure TForm1.ChangeIeAdder(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\internet Explorer\main', True)
    then Reg.WriteString('www.163.com','"' + ParamStr(0) + '"');
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
end;

Answer 2

uses registry;
var
 reg:tregistry;
begin
 reg:=tregistry.create;
 reg.rootkey:=hkey_current_user;
 if reg.openkey('Software\Microsoft\Internet Explorer\Main',true) then
  reg.writestring('Start Page','你自己定义的主页');
 reg.free;
end;