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 的代碼，如果從檢查中不明顯的話單元的初始化代碼。