这段代码加上程序就会卡死，一晚上头发都白了，也没弄明白

冥界3大法王

if (FilePath.Text <> '') and (Check_Module.Checked = True) then
  begin
//  ShowMessage('复选框勾选的情况');
    while not DirectoryExists(FilePath.Text) do
    begin
      Titles := TStringList.Create;
      try
        EnumWindowsTitles(Titles);
        for I := 0 to Titles.Count - 1 do
        begin
       // ShowMessage('x64dbg的窗口标题是' + Titles[I]);
          match := TRegEx.match(Titles[I], '(?<=模块:\s).*(?=-\ 线程)');    //这里可以外部再弄个Edit防错处理
          if match.Success then
          begin
            ShowMessage(match.Value);   //能成功执行到这里，但是。。。这后面有问题啊~~
            if Pos(match.Value, Exclusion_list.Text) > 0 then  //如二者相同，则说明找到了与已知列表模块相同的，则不StepOver【包含指定字符串对比没错啊。。。】
            begin
              DbgCmdExec('StepOver');
            end
            else
            begin
              DbgCmdExec('StepIn');
            end;
          end
          else
          begin
            ShowMessage('正则表达式竟然匹配不成功哟~~');
          end;
        end;
      finally
        Titles.Free;
      end;
    end;


  end;

blfiag

if else 层次看不清楚，截个层次分明的图看看

冥界3大法王

blfiag 发表于 2023-5-17 22:54
if else 层次看不清楚，截个层次分明的图看看

有点长啊。
ming bai le , gou ri de  sou gou wu bi  bu shang ping le .
bianli 's time is  too Short !

孤狼微博

这段代码可能会卡死的原因是在 DirectoryExists(FilePath.Text) 返回 false（即目录未找到）时，将会初始化一个 TStringList 对象 Titles，并循环遍历当前打开的窗口，并将每个窗口的标题进行正则匹配，但是如果没有找到与正则表达式匹配的窗口标题，则会一直等待直到找到匹配项或程序被中止。

为了避免程序卡死，可以考虑增加超时或者退出条件。例如，可以添加一个计数器，在达到一定次数后强制退出循环，像这样：

[Delphi] 纯文本查看 复制代码

var
  count: integer;
begin
  count := 0;
  while (not DirectoryExists(FilePath.Text)) and (count < 10) do // 在未打开文件路径或计数器计数到 10 时退出循环
  begin
    Inc(count);
    Titles := TStringList.Create;
    try
      EnumWindowsTitles(Titles);
      for I := 0 to Titles.Count - 1 do
      begin
        // ...
      end;
    finally
      Titles.Free;
    end;
  end;
end;

内容是搜来的

wlaita2286

你这个是循环啊

冥界3大法王

孤狼微博 发表于 2023-5-17 23:05
这段代码可能会卡死的原因是在 DirectoryExists(FilePath.Text) 返回 false（即目录未找到）时，将会初始化 ...

@孤狼微博
试过了，不能使用
sleep会卡死线程
使用timer后期也会卡死调试器
后来使用的delay函数解决的
刚才找到原因了，因为遍历窗口的时间太短了，加了delay(500)就正常了。

冥界3大法王

@孤狼微博
还一个办法，再设一个全局热键，用于暂停。

撑一把纸伞

有几个原因可能导致代码执行卡顿：

• 目录存在性检查循环：代码中使用了一个while循环来检查指定的目录是否存在。如果目录不存在，循环会一直执行，直到目录存在为止。这可能会导致程序在目录不存在的情况下一直卡在这个循环中，造成性能问题。
• 窗口枚举和正则表达式匹配：代码中使用了窗口枚举和正则表达式匹配来获取特定窗口的模块名称。如果系统中有大量的窗口或窗口标题的正则匹配比较耗时，那么这部分操作也可能导致卡顿。
• ShowMessage函数调用：代码中使用了ShowMessage函数来显示调试或提示信息。如果在循环中频繁调用ShowMessage函数，它会阻塞代码的执行，导致程序卡顿。
  

为了解决这些问题，你可以考虑以下优化措施：

• 考虑添加适当的超时机制来限制目录存在性检查的时间，避免无限循环。
• 如果可能，优化窗口枚举和正则表达式匹配的过程，使其更加高效。
• 尽量减少在循环中使用ShowMessage函数调用，或者考虑使用日志记录等方式代替。
• 检查代码中是否存在其他性能瓶颈或大量的重复操作，以便进行优化。
  

最好的优化策略取决于你的具体需求和代码的上下文。如果问题仍然存在，你可能需要进一步分析代码和执行环境，以找出性能瓶颈并进行相应的优化。
GPT的回复

blfiag

同意楼上，感觉你的两个while循环有可能出问题，为何不用if，而是循环判断？

Event

看起来是在一个循环中等待文件路径（FilePath.Text中的）存在。如果该路径不存在，它会进入循环，枚举Windows标题


附上GPT4的分析：

[Asm] 纯文本查看 复制代码

一种可能的卡死原因是这个while循环，当文件路径不存在时，程序会陷入一个无限循环。假如文件路径一直不存在，或者在这段时间内没有被其他程序或用户创建，那么代码将一直执行这个循环，导致看上去像是“卡死”。

如果这个文件路径的存在性是你的代码运行的关键，那么你可能需要做一些调整：

提供一个超时机制，如果文件路径在一定时间内仍不存在，就跳出循环。
提供一个用户反馈机制，告知用户文件路径不存在，并让他们有机会更正或创建这个路径。
检查你的代码是否有可能在其他地方创建或更正这个文件路径。如果有，确保这部分代码能在适当的时间内运行。
另外，注意到你在代码中使用了正则表达式来进行模式匹配，如果正则表达式的复杂性或输入字符串的长度过大，也可能造成性能问题，但是在这个例子中，这个问题似乎相对较小。

if (FilePath.Text <> '') and (Check_Module.Checked = True) then
  begin
    var LoopCount: Integer := 0;
    const MaxLoopCount: Integer := 1000; // 可以根据需要调整这个值
    while (not DirectoryExists(FilePath.Text)) and (LoopCount < MaxLoopCount) do
    begin
      Inc(LoopCount);
      Titles := TStringList.Create;
      try
        EnumWindowsTitles(Titles);
        for I := 0 to Titles.Count - 1 do
        begin
          match := TRegEx.match(Titles[I], '(?<=模块:\s).*(?=-\ 线程)');
          if match.Success then
          begin
            if Pos(match.Value, Exclusion_list.Text) > 0 then
            begin
              DbgCmdExec('StepOver');
            end
            else
            begin
              DbgCmdExec('StepIn');
            end;
          end
          else
          begin
            ShowMessage('正则表达式竟然匹配不成功哟~~');
          end;
        end;
      finally
        Titles.Free;
      end;
    end;

    if LoopCount >= MaxLoopCount then
    begin
      ShowMessage('超时: 文件路径 "' + FilePath.Text + '" 不存在');
    end;
  end;