Delphi7 获取默认浏览器 打开指定网页url地址

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry,ShellAPI;

type
TForm1 = class(TForm)
lbl1: TLabel;
edt1: TEdit;
lbl2: TLabel;
edt2: TEdit;
btn1: TButton;
btn2: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var
reg: TRegistry;
s: String;

begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('HTTP\Shell\open\command',False);
s := reg.ReadString('');//读取注册表的值 如："D:\Program Files\Maxthon3\Bin\Maxthon.exe" "%1"
s := Copy(s,Pos('"',s)+1,Length(s));//提取路径信息
s := Copy(s,1,Pos('"',s)-1);
ShellExecute(handle, 'open',PChar(s), PChar('https://www.360docs.net/doc/a36840345.html,'), nil,sw_shownormal);//指定打开网页
end;

end.