如何用delphi设置IE为默认浏览器，

[lostmoon]

如何用delphi设置IE为默认浏览器，

[tataishan]

修改注册表

[pengxuan]

var
  Reg: TRegistry;
begin
  Result := false;
  Reg := TRegistry.Create;
  try
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      Reg.OpenKey('ROOT\http\shell\open\command',false);
      Reg.WriteString('','C:\Program Files\Internet Explorer\iexplore.exe');
      Result := true;
    except
      //
    end;
  finally
    Reg.Free;
  end;

[lostmoon]

有错误啊！

[wztimes]

[Quote=引用 3 楼 的回复:]
Delphi(Pascal) code

var
Reg: TRegistry;
begin
Result := false;
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('ROOT\http\shell\open\command',f……
[/Quote]

毛用啊, 是不是还得重启, 那就没意义了