Originally Posted by
WillemGrooters
Ok; geprobeerd:
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm2, MainForm2);
Application.Run;
System.ExitCode := 999; // nagaan wat code nu is - en wat commandline ervan vindt;
Dat is ook geen console programma.
Je zult zien dat als je dit programma start via de commandline, je cursor direct terugkomt op de console terwijl je programma op de achtergrond doorloopt.
Als je echt een GUI programma wilt starten en zien wat er terugkomt dan moet je die met start /B /WAIT opstarten.
Ik heb b.v. dit gedaan (project8 is een gui programma met 1 form die ik direct weer sluit):
Delphi Code:
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm5, Form5);
Application.Run;
System.ExitCode := 123;
end.
Code:
C:\Debug>type test.bat
start /b /wait project8.exe
echo %ERRORLEVEL%
Code:
C:\Debug>test.bat
C:\Debug>start /b /wait project8.exe
C:\Debug>echo 123
123
Werkt dus prima.
(handmatig op de console starten met start /b /wait project.exe en dan echo %errorlevel% doen werkt ook)
Bookmarks