Delphi 7 启动时打开一个cmd

Question

Every time i run my Delphi application, a 'cmd' window open, and some of my users are complaining about this window, saying it crashes their computer, i want to learn WHY this cmd window open, and how make it not open.

my.dpr 文件是这样的

... 
Frm05715 in 'fontes\Frm05715.pas' {Form05715}, 
Frm99903 in 'fontes\Frm99903.pas' {Form99903}; 
{$R *.res} 
begin 
Application.Initialize; 
... 
Application.Run; 

cmd window 甚至在 Application.Initialize 之前打开，这是运行的第一行

Answer 1

正如我在评论中解释的那样，调试此问题的一种方法是在Application.Run上放置一个断点在 your.Dpr 文件中。

If the cmd window opens before the breakpoint trips, the cmd window is likely being opened in the initialization code of one of your units, which will be straightforward to debug. 您可以按照我对此 q的回答中的步骤进行操作。

如果您检查 System.Pas 中InitUnits中的Count变量的值，您可能会惊讶于它有多高，通常超过 200。但是，您可以使用二分搜索通过在行上放置断点来快速识别有罪的单元

TProc(P)();

并将其通过计数最初设置为 count / 2。一旦您确定了有问题的单元，您可以使用调试器的Trace into (F7) 命令来识别启动 Cmd window 的代码，如果从检查中不明显的话单元的初始化代码。