一个按钮单步一下没问题，加个循环就卡死了

冥界3大法王

procedure TForm1.Button3Click(Sender: TObject);
begin
  repeat
    if not DirectoryExists('c:\cc') then
    begin
      DbgCmdExec('StepOver');   //只这一句没问题的
      sleep(1000);
    end;
  until DirectoryExists('c:\cc');
end;




换一种循环体，仍旧卡死：

      while not DirectoryExists(Edit1.Text) do // 如果文件夹不存在则执行选择的StepOver或StepIN
      begin
        // DbgCmdExec(PAnsiChar(AnsiString(ComboBox1.Text)));
        DbgCmdExec('StepOver');
        sleep(StrToInt(间隔时间.Text));
      end;

冥界3大法王

明白了，扔了一个timer就工作了。

oktongguo

如果文件夹一直不存在，就在循环里出不来。是不是创建文件夹的部分出了问题？

冥界3大法王

常识性问题该打。