Debugger3.CurrentProcess プロパティ

[アーティクル]
08/09/2011

アクティブなプロセスを取得するか、または設定します。

名前空間: EnvDTE90
アセンブリ: EnvDTE90 (EnvDTE90.dll 内)

構文

'宣言
Property CurrentProcess As Process
    Get
    Set

Process CurrentProcess { get; set; }

property Process^ CurrentProcess {
    Process^ get ();
    void set (Process^ value);
}

abstract CurrentProcess : Process with get, set

function get CurrentProcess () : Process
function set CurrentProcess (value : Process)

プロパティ値

型: EnvDTE.Process
Process オブジェクト。

実装

Debugger2.CurrentProcess

解説

アクティブプロセスとは、デバッガーによって表示されるデータを定義するプロセスです。デバッガーは一度に複数のプロセスをデバッグできますが、アクティブにできるプロセスは常に 1 つだけです。詳細については、「複数プロセスのデバッグ」を参照してください。

例

CurrentProcess プロパティを使用する方法の例を次に示します。

このプロパティをテストするには

ターゲットアプリケーションを開きます。アドインを実行します。

デバッグ中のプロセスはありません。
ターゲットアプリケーションにブレークポイントを設定します。アプリケーションをデバッグモードで実行します。
ブレークポイントでプログラムが停止したら、アドインを実行します。

プロセスはデバッグされています。

public static void CurrentProcess(EnvDTE80.DTE2 dte)
{
    // Setup debug Output window.
    Window w =  
   (Window)dte.Windows.Item(EnvDTE.Constants.vsWindowKindOutput);
    w.Visible = true;
    OutputWindow ow = (OutputWindow)w.Object;
    OutputWindowPane owp = ow.OutputWindowPanes.Add("Current Process 
    Test");
    owp.Activate();

    owp.OutputString("Current Process Info: ");
    EnvDTE90.Debugger3 debugger = (EnvDTE90.Debugger3)dte.Debugger;
    EnvDTE90.Process2 process = (EnvDTE90.Process2)debugger.CurrentProcess;

    if (process == null)
        owp.OutputString("No process is being debugged");
    else
        owp.OutputString("Process ID = " + process.ProcessID +
                         "  Process Name = " + process.Name);
}

Sub ShowCurrentProcess()
    ' This function displays the current debugger
    ' mode in the output window.
    Dim ow As OutputWindow
    ow = dte.Windows.Item(Constants.vsWindowKindOutput).Object

    Dim proc As EnvDTE90.Process3
    proc = dte.Debugger.CurrentProcess

    If (proc Is Nothing) Then
        ow.ActivePane.OutputString("No process is being debugged")
    Else
        ow.ActivePane.OutputString("" + Str(proc.ProcessID) + ": " + _
        poc.Name + vbCrLf)
    End If
End Sub