Question

我正在使用带有CreateProcess标记的DEBUG_ONLY_THIS_PROCESS。新进程已创建，但新运行的应用程序没有执行任何操作，当我使用任务管理器查看进程列表时，我看到的只是分配了70KB内存的exe文件的名称！

如果我创建没有DEBUG_ONLY_THIS_PROCESS标志的进程，则应用程序运行完美。

这是我的代码：

function TDebugger.StartDebug;
var
  ProcInfo: TProcessInformation;
  ProcessCreationFlags: Cardinal;
  StartupInfo: TStartupInfo;
  DE: TDebugEvent;
begin
  // == init process info
  ZeroMemory(@ProcInfo, SizeOf(TProcessInformation));
  // == init startup info
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  with StartupInfo do begin
    cb := SizeOf(TStartupInfo);
    lpDesktop := '';
    dwX := CW_USEDEFAULT;
    dwY := CW_USEDEFAULT;
    dwXSize := CW_USEDEFAULT;
    dwYSize := CW_USEDEFAULT;
    wShowWindow := SW_SHOWDEFAULT;
  end;
  // == Create the process
  ProcessCreationFlags := DEBUG_ONLY_THIS_PROCESS;
  if (not CreateProcess(PWideChar(Path), Nil, Nil, Nil, False, ProcessCreationFlags, Nil, PWideChar(CurrentDirectory), StartupInfo,
    ProcInfo)) then
      RaiseLastOSError;

end;

我认为在创建流程后我应该调用一些API函数，但我不知道它是什么。任何人都可以帮我解决这个问题吗？

其他信息：我的主应用程序是IDE，需要调试其播放器应用程序。

Answer 1

当您使用DEBUG_ONLY_THIS_PROCESS创建调试进程时，该进程实际上并未开始运行。它等待你的调试器启动它。所以，是的，你必须调用一些函数来启动和运行进程。您现在需要编写调试器！其主体是您的调试器循环。

一些可能有用的参考资料：

使用CreateProcess进行调试

1 个答案: