タイトル : Re^2: 重複して起動しない様にする。 投稿日 : 2014/10/20(Mon) 15:28 投稿者 : たちばなん
ありがとうございます。 出来ました。 下記の様になりました。 Sub Check_Jufuku() '自身と同じプログラムが起動している場合、先に起動している方を終了させる Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess() Dim localByName As Process() = Process.GetProcessesByName(hProcess.ProcessName) Dim p As Process For Each p In localByName If Not hProcess.Id = p.Id Then p.CloseMainWindow() End If Next End Sub また宜しくお願いします。 |