二重起動の禁止(T)             <TOP>


二つのアプリケーションのファイル名が、同じである場合、二重起動を禁止します。

参照

二重起動の禁止(U)

 
'================================================================
'= 二重起動の禁止(T)
'=    (PrevInstance.bas)
'================================================================
If PrevInstance Then 
    A% = MessageBox(GetWindowText, "このプログラムは実行中です。", 0, 0) : End
End If