HSP3標準ライブラリ:about.as

HSP2.xで使えていたabout命令のHSP3用移植版（？）です。 バージョン情報ダイアログを表示します。

/*------------------------------------------------------------------------------
        About   HSP3標準ライブラリ     バージョン情報ダイアログを表示する
--------------------------------------------------------------------------------

        書式      :
                About "s1","s2"
                "s1"            アプリケーション名が入った文字列変数または文字列。
                "s2"            製作者名が入った文字列変数または文字列。

        解説      :
                バージョン情報ダイアログボックスを表示します。
                プログラムのバージョンを表示する時などに使われるダイアログを表示します。
                アプリケーション名s1を"HSP3のバージョン情報#HSP 3.00 beta2"のように
                #で区切ると、区切り前はタイトルに、区切り後は内容に表示されます。

--------------------------------------------------------------------------------

        具体例     :
                gsel 0,-1
                About "HSP3用 About命令 ver.1.01","Ma2"
                end

------------------------------------------------------------------------------*/
        #module "aboutdlg"

        #define IDI_MAIN 128

        #uselib "user32.dll"
        #func LoadIcon "LoadIconA" int, sptr

        #uselib "Shell32.dll"
        #func ShellAbout "ShellAboutA" int,sptr,sptr,int

        #deffunc About str appli_name , str staff_name
        LoadIcon hinstance, IDI_MAIN
        ShellAbout hWnd,appli_name,staff_name,stat
        return

        #global