VB2008 - 俺のwiki

起動チェック

起動チェック

     Public Function FUNC_CHECK_APPL_INSTANCE() As Boolean
         Dim strPROCESS_NAME As String
         Dim strPROCESS_ROW() As System.Diagnostics.Process
         Dim intCNT As Integer
         strPROCESS_NAME = Diagnostics.Process.GetCurrentProcess.ProcessName( '自プロセス名称を取得
         strPROCESS_ROW = Diagnostics.Process.GetProcessesByName(strPROCESS_NAME) 'プロセス一覧から自プロセス名称を探索
         If IsNothing(strPROCESS_ROW) Then
             Return False 'プロセス一覧が取得できない
         End If
         intCNT = (UBound(strPROCESS_ROW) + 1) '同一名称のプロセス件数を取得
         Return (intCNT > 1) '一件超なら同一プロセスありと判断
     End Function