调用默认浏览器打开指定网页

uses ShellAPI,Registry;

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(application.handle, 'open',PChar(s), PChar('http://www.ccqgn.com'), nil,sw_shownormal);//指定打开网页
end;
 

 

 

转载于:https://www.cnblogs.com/tk-del/archive/2012/07/19/2599341.html