TWebBrowserでリンクを既定のブラウザで開くには (ID:39290)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでどうでしょう。 確認はDelphi2010+Windows7。 WebBrowser1・・・表示用。 WebBrowser2・・・Width:=0;Height:=0にしておく。NewWindow用 usesにShellApiを追加。 procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var a: TObject; begin //新しいウィンドウを開くとき、WebBrowser2に表示を任せる WebBrowser2.RegisterAsBrowser := True; ppDisp := WebBrowser2.Application; Cancel := False; end; procedure TForm1.WebBrowser2BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin //WebBrowser2で開かれる前に渡されるURLでShellExecute。WebBrowser2のNavigateはキャンセル。 ShellExecute(0, 'open', PChar(String(URL)), nil, nil, SW_NORMAL); Cancel := True; end;