windows - 我的 Delphi 7 应用程序在 Application.Initialize 上停止并且不返回到下一行

Question

我在 Delphi 7 上创建了一个应用程序。我的应用程序从昨天开始运行良好。我不知道昨天发生了什么导致我的应用程序在源代码中的 Application.Initialize 行停止并且在我跟踪程序时不返回到下一行。当生成的文件在另一台机器上正确运行时，我无法从 widows niether 运行创建的可执行文件。这是编译器停止的代码:

program Info_Kiosk;

uses SysUtils, Forms, ... (some other units) ;

{$R *.res}

begin
Application.Initialize;

Application.CreateForm(Tfrm_Main, frm_Main);

任何帮助将不胜感激

Answer 1

TApplication.Initialize 的实现如下所示:

procedure TApplication.Initialize;
begin
  if InitProc <> nil then TProcedure(InitProc);
end;

因此，查看您的代码以查找分配给 InitProc 的任何内容。

另一种方法是使用调试器来帮助您。启用调试 DCU。然后在 .dpr 文件中对 Application.Initialize 的调用设置一个断点。然后使用 F7 进入该过程。然后进入对 InitProc 的调用并继续执行直到到达阻塞的代码。

如果您使用的是版本控制系统，您可以简单地检查项目的旧版本并使用二进制搜索来查找引入该行为的提交。如果您不使用版本控制，请立即开始使用。