掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ブラウザを二重起動するには？ (ID:14358)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
レジストリからデフォルトブラウザのフルパスを取得して起動するとうまくいきました。 uses Registry; function GetDefaultBrowser:string; const Key='\http\shell\open\command'; var Reg: TRegistry; begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CLASSES_ROOT; if Reg.OpenKey(Key,false) then result := Reg.ReadString('') else result := 'Error'; finally Reg.Free; end; end; function OpenURLbyNewDefaultBrowser(URL:string):Boolean; var s:string; begin result := false; s := GetDefaultBrowser; if s <> 'Error' then begin s := s + ' '+ URL; result := WinExec(PChar(s),SW_NORMAL) > 31; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenURLbyNewDefaultBrowser('http://www.google.co.jp/') then ShowMessage('成功') else ShowMessage('失敗'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.