２重起動のチェック

ま 2008-09-28 10:44:58 No: 145230

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-22 03:59:43 No: 145231

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

どうしてもファイル名を確認したいのであれば、プロセス名が一致する全てのプロセスについて、.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

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