Pascal FAQ created by SLY Golovanov, 2:5020/278.13
              (slightly corrected by Valery Votintsev 2:5021/22)
==============================================================================

Q:> Как узнать ErrorLevel,который выставила программа, запущенная через Exec()?

A: С помощью DosExitCode:

{$M 8192,0,0}
Uses Dos;
Begin
  SwapVectors;
  Exec(FExpand(FSearch('arj.exe',GetEnv('PATH'))),'x a.arj');
  SwapVectors;
  WriteLn('Код возврата=',lo(DosExitCode));
End.

---
 * Origin:  (2:5020/794.13)