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

質問

すみません、どなたか教えて下さい。

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

どなたかアドバイスをお願いいたします。

回答No.2

SHIMAPEE · ベストアンサー

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;
-----

お礼

ありがとうございました！！
新しいウィンドウでページを開くことができました。

ご丁寧にアドバイスいただき感謝しております。

回答No.1

SHIMAPEE

たぶん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;
-----

お礼

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