二重起動の禁止(Ⅰ) <TOP>
二つのアプリケーションのファイル名が、同じである場合、二重起動を禁止します。
参照
'================================================================ '= 二重起動の禁止(Ⅰ)
'= (PrevInstance.bas) '================================================================ If PrevInstance Then A% = MessageBox(GetWindowText, "このプログラムは実行中です。", 0, 0) : End End If