Я не могу заставить ExitCode работать для приложения форм VCL. Вот мое тестовое приложение. Он был создан из меню File/New в среде Delphi 2007 IDE. Единственное изменение заключается в том, что я добавил строку ExitCode := 42;
в конце.
program Test;
uses
Forms,
Unit27 in 'Unit27.pas' {Form27};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm27, Form27);
Application.Run;
ExitCode := 42;
end.
Теперь, когда я запускаю его из командной строки, %ERRORLEVEL%
не устанавливается:
>.\Test.exe
>echo %ERRORLEVEL%
0
Я ожидал, что значение в %ERRORLEVEL%
должно быть 42, но оно не обновляется.
Я попробовал тот же эксперимент в консольном приложении, и это сработало нормально. Почему он не работает для моего GUI-приложения?