1 578
editací
Změny
bez shrnutí editace
Vrací výstupní kód podprocesu.
;Deklarace
function DosExitCode: Word;
;Režim
:Reálný, Chráněný
;Poznámky
:Nižší bajt je kód, odeslaný končícím procesem.
:Vyšší bajt je nastaven na:
:{| class="wikitable" align="center"
! Typ Ukončení !! Vyšší Bajt
|-----------------------------
| Normální || 0
|-----------------------------
| Ctrl-C || 1
|-----------------------------
| Chyba zařízení || 2
|-----------------------------
| procedura Keep || 3
|}
;Viz také
:[[Exec]]
:[[Keep]]
Vzorový příklad
{ DOSXCODE.PAS }
{ Vzorový příklad pro DosExitCode a Exec }
{$M $4000,0,0 } { 16K zásobník, žádná halda }
uses Dos;
var
ProgramName, CmdLine: string;
begin
Write('Program (úplná cesta): ');
ReadLn(ProgramName);
Write('Příkazový řádek programu ', ProgramName, ': ');
ReadLn(CmdLine);
WriteLn('Do Exec...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('...zpět z Exec');
if DosError <> 0 then{ Chyba? }
WriteLn('Chyba DOSu #', DosError)
else
WriteLn('Exec úspěšný. ', 'Výstupní kód synovského procesu = ', DosExitCode);
end.
[[Category:DOS]]
[[Category:Funkce DOS]]
[[Category:Procedury a funkce správy procesů]]
;Deklarace
function DosExitCode: Word;
;Režim
:Reálný, Chráněný
;Poznámky
:Nižší bajt je kód, odeslaný končícím procesem.
:Vyšší bajt je nastaven na:
:{| class="wikitable" align="center"
! Typ Ukončení !! Vyšší Bajt
|-----------------------------
| Normální || 0
|-----------------------------
| Ctrl-C || 1
|-----------------------------
| Chyba zařízení || 2
|-----------------------------
| procedura Keep || 3
|}
;Viz také
:[[Exec]]
:[[Keep]]
Vzorový příklad
{ DOSXCODE.PAS }
{ Vzorový příklad pro DosExitCode a Exec }
{$M $4000,0,0 } { 16K zásobník, žádná halda }
uses Dos;
var
ProgramName, CmdLine: string;
begin
Write('Program (úplná cesta): ');
ReadLn(ProgramName);
Write('Příkazový řádek programu ', ProgramName, ': ');
ReadLn(CmdLine);
WriteLn('Do Exec...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('...zpět z Exec');
if DosError <> 0 then{ Chyba? }
WriteLn('Chyba DOSu #', DosError)
else
WriteLn('Exec úspěšný. ', 'Výstupní kód synovského procesu = ', DosExitCode);
end.
[[Category:DOS]]
[[Category:Funkce DOS]]
[[Category:Procedury a funkce správy procesů]]