URL、Mailを実行する

ここではURL、Mailをブラウザに関連付けて実行します。

■使用するコンポーネント

■使用するAPI関数

■その他

■ソースは下記のようになります。

■URLを実行する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

ShellExecute(Form1.Handle, 'open', 'http://homepage1.nifty.com/MADIA/',
nil, nil, SW_SHOW)

end;

■Mailを実行する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

ShellExecute(Form1.Handle, 'open', 'mailto:papy@hamal.freemail.ne.jp',
nil, nil, SW_SHOW)

end;


Win32APIのページへ