delphi - 我的程序如何判断 Delphi 是否正在运行？

Question

我听说一些自定义组件作者使用 RTL 例程来检查 Delphi 是否正在运行，以便设置共享软件限制。有谁知道这个例程是什么？检查诸如“DelphiRunning”或“IsDelphiRunning”之类的明显名称不会出现任何有用的信息。

Answer 1

这里有两种不同的想法:
- Delphi 已启动并运行
- 应用程序正在调试器下运行

测试 Delphi 是否正在运行的常用方法是检查是否存在具有特定类名(如 TAppBuilder 或 TPropertyInspector)的已知 IDE 窗口。
这两个适用于所有版本的 Delphi IIRC。

如果您想知道您的应用程序是否在调试器下运行，即通过“运行”(F9) 从 IDE 正常启动，还是在运行时附加到调试器，您只需测试 DebugHook 全局变量。
请注意，“从程序分离”不会删除 DebugHook 值，但“附加到进程”会设置它。

function IsDelphiRunning: Boolean;
begin
  Result := (FindWindow('TAppBuilder', nil) > 0) and
    (FindWindow('TPropertyInspector', 'Object Inspector') > 0);
end;

function IsOrWasUnderDebugger: Boolean;
begin
  Result := DebugHook <> 0;
end;

如果目标是在开发应用程序时限制组件试用版的使用，则两者都有缺陷:
- 具有正确类名/标题的隐藏窗口可以包含在应用程序中
- 可以在代码中手动设置DebugHook