みなさんこんにちは
お世話になります。
Delphi の ヘルプで バージョン情報をクリックすると
フォームが開きますが、このフォームでボーランドの
アドレスをクリックすると、エクスプローラーが起動して
ボーランドのホームページにジャンプするのですが
これと同じ処理をするにはどうすればよいのでしょうか?
私はこのようにして実現しています。
uses
UrlMon;
procedure TForm1.Label1Click(Sender: TObject);
begin
HlinkNavigateString(nil,'http://www.hogehoge.com/');
end;
ShellAPIをusesして
ShellExecute(0, 'open', 'http://www.hogehoge.com/', nil, nil, SW_SHOW);
でもOKです。
どうもありがとうございます。
ShellExecuteで対応できましたぁ!
ツイート | ![]() |