PowerBuilder 2022 R3 で追加された OpenURL は廃止された Inet オブジェクトの HyperLinkToUrl を置き換えることができますが、OS の規定として設定されたブラウザーにかかわらず、Edge でページが開かれてしまいます。既定のブラウザーで URL を開く代替手段としては Windows API の ShellExecute を使用する方法があります。

方法

グローバル外部関数、またはローカル外部関数として、以下のように Windows API ShellExecute を宣言します。

Function long ShellExecute( longptr hwnd,  string lpOperation, string lpFile, string lpParameters,  string lpDirectory,  integer nShowCmd) Library "shell32.dll" alias for "ShellExecuteW"

コマンドボタンの Click イベントには以下のようにコードを記述し、ShellExecute でデフォルトの Web ブラウザでテクニカルブログのトップページ (https://www.powerbuilder.jp/technical/techblog/) を開いています。

string ls_null, ls_url, ls_applicationDir
longptr ll_handle
 
setnull(ls_null)
ls_applicationDir = ""
 
ls_url = "https://www.powerbuilder.jp/technical/techblog/"
ll_handle = Handle(Parent)
ShellExecute( ll_handle, "Open", ls_url, ls_null, ls_applicationDir, 1)