我的Delphi 7应用程序暂停Application.Initialize并且不返回下一行

Question

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

程序Info_Kiosk;

使用SysUtils,Forms,......(其他一些单位);

{$ R*.res}

开始
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.然后Application.Initialize在.dpr文件中的调用上设置一个断点.然后进入该程序F7.然后进入调用InitProc并跟随它,直到您到达阻止的代码.

如果您使用的是修订控制系统,则只需检查项目的旧版本并使用二进制搜索来查找引入该行为的提交.如果您不使用版本控制,请立即开始执行此操作.