Delphi コンソールアプリのエラーレベル

Delphi コンソールアプリをコマンドラインで実行した時のエラーレベル設定
System.ExitCode へ値を設定

view plainprint?

1. try  
2.     ExitCode := Main();  
3. except  
4.     on E: Exception do begin  
5.         Writeln(E.ClassName, ': ', E.Message);  
6.         ExitCode := 1;  
7.     end;  
8. end;  

    try
        ExitCode := Main();
    except
        on E: Exception do begin
            Writeln(E.ClassName, ': ', E.Message);
            ExitCode := 1;
        end;
    end;