URL、Mailを実行する

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


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

■使用するAPI関数

■その他

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

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

ShellExecute(Form1.Handle, 'open', 'http://madia.world.coocan.jp/',
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のページへ



ホーム PV ランキング