２重起動のチェック

ま  2008-09-28 01:44:58  No: 145230  IP: 192.*.*.*

vb.net からoutloockを起動するとき、2重チェックを行い
起動していれば、起動しないようにしたいのですが、プロセス名では
出来ないので、outloock.exeが起動しているかチェックする方法は
ありますか？
プロセス名だと
 dim strProcessName As String   
 insProcess = Process.GetProcessesByName(strProcessName)
  If UBound(insProcess) > 0 Then
     MsgBox(strProcessName & "、はすでに起動しています")
  End If
でできるみたいです。

編集 削除
shazbot  2008-11-21 18:59:43  No: 145231  IP: 192.*.*.*

プロセス名でできるので、それでいいのでは・・・？

どうしてもファイル名を確認したいのであれば、プロセス名が一致する全てのプロセスについて、.MainModule.FileName  でファイル名を確認すればいいと思います。

Dim strProcessName As String = プロセス名
Dim ps() As Process = Process.GetProcessesByName(strProcessName)
Dim p As Process

For Each p In ps
      debug.writeline("ファイル名: " & p.MainModule.FileName)
Next

こんな具合でどうでしょうか。

編集 削除