;================================================================================ ;モジュール about ;ver 1.01 ; プログラムの説明 ; ll_mod.asが必要です ;================================================================================ ; aboutモジュール命令一覧 ; ; about プログラムのバージョンを表示するダイアログを作成 ; ; 計 1個 ;使い方 ;================================================================================ ; about "s1","s2" プログラムのバージョンを表示するダイアログを作成 ; ; s1 : アプリケーション名が入った文字列変数または文字列 ; s2 : 製作者名が入った文字列変数または文字列 ;================================================================================ ; ;<>説明 ; プログラムのバージョンを表示する時などに使われるダイアログを表示します。 ; アプリケーション名s1を"my.exeのバージョン情報#my.exe ver 1.00" ; のように#で区切ると'Microsoft my.exe ver 1.00'という表示が加わります。 ; ;<>例 ; about "loadlib.dll","tom" ; ;module始め>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #module "about" ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ;about ;................................................................................ #deffunc about str,str mref app,32 ;アプリケーション名 mref stuff,33 ;製作者 lcl_app=app ;@@@@ module handleの取得 @@@@ _get_instance prm a="HSP2" getptr p,a prm.1=p dllproc "LoadIconA",prm,2,D_USER prm.3=stat ;@@@@ active windowsの取得 @@@@ _get_active_window prm.0 getptr prm.1,lcl_app getptr prm.2,stuff dllproc "ShellAboutA",prm,4,D_SHELL return #global ;module終わり>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>