TURBO PASCAL

Новости

Программы   

Turbo Pascal 

Игры

Документация   

Странности

FAQ

Ссылки

Форум

Гостевая книга

Рассылка

Благодарности

Об авторе

75: How can I read another program's errorlevel value in TP?

 A: This question is best 
answered by an example. Here is a very
elementary program that returns errorlevel 14 on exiting.
  program faq2;
  begin
    writeln ('Hello world...');
    halt(14);
  end.
Below is the program that calls FAQ2.EXE and detects its 
errorlevel.
  {$M 2000,0,0}
  uses Dos;
  begin
    SwapVectors;
    Exec ('r:\faq2.exe', '');  (* Execution *)
    SwapVectors;
    WriteLn('...back from Exec');
    if DosError <> 0 then
      WriteLn('Dos error #', DosError)
      else
      WriteLn('Success; child process errorlevel = ', lo
(DosExitCode));
  end.
The output should be
  Hello world...
  ...back from Exec
  Success; child process errorlevel = 14

 Contents

На первую страницу

Rambler's Top100 Rambler's Top100
PROext: Top 1000

(с)Все права защищены

По всем интересующим вопросам прошу писать на электронный адрес

Hosted by uCoz