• ベストアンサー

Delphi5のボタンクリックでWebページを開きたい

すみません、どなたか教えて下さい。 Delphi5で開発中なんですが、ボタンクリックであるWebページを開きたいと思います。 Webページは新しいウィンドウで開き、Delphiのアプリケーションが終了してもWebは閉じない設定にしたいです。 どなたかアドバイスをお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • SHIMAPEE
  • ベストアンサー率75% (154/203)
回答No.2

ANo.1 お礼への回答です。 >新しいウィンドウでWebページを開くことは可能でしょうか?? CreateProcess関数を使ってみてはどうでしょうか。開くプログラムは決めうちでIEでよいのでしたら例えば下記のように。関連付けられたプログラムにするのでしたらFindExecutable関数でパスを求められます。 ----- procedure TForm1.Button1Click(Sender: TObject); var Str: string; Si:TStartupInfo; Pi:TProcessInformation; begin Str:='http://oshiete.goo.ne.jp/'; GetStartupInfo(Si); CreateProcess(nil,PChar('"C:\Program Files\Internet Explorer\iexplore.exe" '+Str), nil,nil,false,0,nil,nil,si,pi); end; -----

user10
質問者

お礼

ありがとうございました!! 新しいウィンドウでページを開くことができました。 ご丁寧にアドバイスいただき感謝しております。

その他の回答 (1)

  • SHIMAPEE
  • ベストアンサー率75% (154/203)
回答No.1

たぶんDelphi5でもWin32APIのShellExecute関数が使えると思います。 ----- uses ... ShellApi;  : procedure TForm1.Button1Click(Sender: TObject); var hinst: integer; Str: string; begin Str:='http://oshiete.goo.ne.jp/'; hinst:=ShellExecute(Handle,'Open',PChar(Str),'','',SW_SHOW); ShowMessage(' ShellExecute Code = '+InttoStr(hinst)); end; -----

user10
質問者

お礼

ありがとうございました!! Webページを開くことができました。 ただ、他のWebページが立ち上がっている場合、そのWebページに開かれてしまい、今まで表示していたページが消えてしまいます。 新しいウィンドウでWebページを開くことは可能でしょうか??

関連するQ&A

専門家に質問してみよう