windows – 切换JIT调试器？

注册您的应用程序

HKLMSOFTWAREMicrosoftWindows NTCurrentVersionAeDebug

如果是64位操作系统,也可以使用以下密钥

HKLMSOFTWAREWow6432NodeMicrosoftWindows NTCurrentVersionAeDebug

使用值添加/修改名为Debugger的字符串：

"C:..Win32DebugProject1.exe" %ld %ld

一个非常简单的应用：

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('BDS 16');
  ComboBox1.Items.Add('BDS 15');
  ComboBox1.Items.Add('WinDbg');
  ComboBox1.Items.Add('VS');
  // etc..
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  proc: THandle;
begin
  Assert(ParamCount >= 2);
  proc := OpenProcess(SYNCHRONIZE,False,StrToInt(ParamStr(1)));
  case ComboBox1.ItemIndex of
    0: ShellExecute(0,'','C:..RAD Studio9.0binbds.exe',PChar(Format('/attach:%s;%s',[ParamStr(1),ParamStr(2)])),SW_SHOWNORMAL);
    1 : // etc..
    2: ShellExecute(0,'C:Program Files (x86)..windbg.exe',PChar(Format('-p %s -e %s -g',SW_SHOWNORMAL);
    3: ShellExecute(0,'C:Windowssystem32VSJitDebugger.exe',PChar(Format('-p %s -e %s',SW_SHOWNORMAL);
    //..
  end;
  if Bool(proc) then begin
    WaitForSingleObject(proc,INFINITE);
    Application.Terminate;
  end;
end;