ein dosprogramm mit errorlevel beenden

[Luckie]

Zitat von Sprint:

Halt(1); bzw. Halt(0);

Ist dass den unbedingt nötig, das Programm vor eine Betonmauer zu lenken, um es anzuhalten?

So, habe mir mal die Mühe gemacht und das getestet:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ExitCode := 2;
end;

Das ist das Delphi Programm. Wie man sieht, wird der ExitCode auf zwei gesetzt.

Jetzt die Batch-Datei:

Code:

echo off
Project1.exe

if errorlevel 2 goto Fehler
if not errorlevel 2 goto Richtig

:Richtig
echo "Richtig"
goto Ende

:Fehler
echo "Errorlevel 2"
goto Ende

:Ende
Pause

Wie man sieht, soll "Errorlevel 2" ausgegeben werden, wenn der Errorlevel / ExitCode des Programmes zwei ist und "Richtig" in allen anderen Fällen.

Und hier nun die Ausgabe:

Code:

E:\Delphi\Programme>echo off
"Errorlevel 2"
Drücken Sie eine beliebige Taste . . .

Wie man sieht, setzt die globale Variable ExitCode den Errorlevel. Ändere ich den ExitCode in 0, wird zum Zweig :Richtig in der Batch-Datei gesprungen.

Tu mir also bitte einen Gefallen und nimm das Halt aus deinem Code, sonst gibt es auf den Delphi-Tagen in Kassel keinen Nachtisch für dich.