TerminateProcess ( ProcessId 〔, Code〕 )
' 起動中のプロセス"ABC"のうち最初に起動されたプロセス以外のプロセスを
' 強制終了する。
Dim pCnt ,pIdBuff ,seppId
pCnt = GetProcessCount ( "ABC" ,pIdBuff )
If pCnt > 1 Then
For i = 2 To pCnt
seppId = SeparateStr ( pIdBuff ,";" ,i )
TerminateProcess ( seppId )
Next
End If