GetProcessCount ( ProcessName 〔, ProcessIdBuff〕 )
' プロセス"ABC"のプロセスID一覧を作成する。
Dim pCnt ,pIdBuff ,seppId
pCnt = GetProcessCount ( "ABC" ,pIdBuff )
For i = 1 To pCnt
seppId = SeparateStr ( pIdBuff ,";" ,i )
Message ( Target_File ,_SCF_+"PIDLIST.TXT" ,seppId )
Next
Dim PLName, Pname, PnameWork, Rc, IdBuff
PLName ="ABCDEFGHIJKL"
Pname = "ABCDEFGHIJKL.exe"
' まず,通常の指定方法(プロセス名を指定)で実行する。
Rc = GetProcessCount(PLName, IdBuff)
' 起動数が0の場合,プロセスがローカルシステムアカウントから
' 起動されている場合を考慮した処理を行う。
If Rc = 0 Then
If Len(Pname)> 15 Then
PnameWork = Left(Pname, 15)
End If
Rc = GetProcessCount(PnameWork, IdBuff)
End If