デバッグ時と実行時の識別はできますか？

質問

多重起動の防止のため、WEBページを参考にしてメインFormのLoad時に、下記のコードで2個目以降起動しないようにしています。

'2重起動の防止
Dim pn As String = Process.GetCurrentProcess.ProcessName
If Process.GetProcessesByName(pn).GetUpperBound(0) > 0 Then
　　MessageBox.Show("すでに起動しています")
　　Me.Close()
　　Exit Sub
End If

　これはうまく行くのですが、デバッグ実行のときに時々起動しないことがあります。　EXEでの実行時にこのようなことはないので、デバッグ時のみこの部分を機能しないようと思っています。　参照可能な内部変数などご存知ないでしょうか。

回答No.1

noname#111860 · ベストアンサー

よく使う手法としましては、
「プロジェクト」-[Project1 のプロパティ]

で、「実行可能ファイルの作成」のところにある。
「条件付コンパイル引数」に値を設定しておきます。

使い方は、こちらを参考。
http://msdn.microsoft.com/ja-jp/library/x435tkbk(VS.80).aspx

お礼

すばやい回答ありがとうございます。

　下記のコードで期待どおりの動作を確認しました。　思っていたことがそのまま出来たので拍子抜けするくらいです。

#If DEBUG Then
　　MessageBox.Show("デバッグモードです")
#Else
　　'2重起動の防止
　　Dim pn As String = Process.GetCurrentProcess.ProcessName
　　If Process.GetProcessesByName(pn).GetUpperBound(0) > 0 Then
　　　　MessageBox.Show("すでに起動しています")
　　　　Me.Close()
　　　　Exit Sub
　　End If
#End If

　オプションチェックボックスのDEBUGをデフォルトのチェックしないままでよかったです。（そうでないと、実行時もDEBUGモードと識別される）

　ところで、マイクロソフトのドキュメントページは正確なのですが理解できてない人が読むと、混乱しそうですね。（判っている人がリファレンスとして利用するにはよいのですが・・・）

回答No.2

noname#111860

>下記のコードで期待どおりの動作を確認しました。　

確認できて何よりです。

>　ところで、マイクロソフトのドキュメントページは正確なのですが理解できてない人が読むと、混乱しそうですね。

失礼いたしました。
このあたりは、質問内容で使用されている語句から、
経験者であると思い込み、
マイクロソフトのＨＰを紹介してしまいました。
この点は今後の回答方法にも参考にさせていただきたいと思います。
ご指摘ありがとうございます。