https://trsek.com/pascal/index.php?title=DosExitCode&feed=atom&action=history
DosExitCode - Historie editací
2024-03-29T10:32:19Z
Historie editací této stránky
MediaWiki 1.33.0-alpha
https://trsek.com/pascal/index.php?title=DosExitCode&diff=579&oldid=prev
Zdeno Sekerák: 1 revízia: Uses DOS
2012-10-02T14:42:49Z
<p>1 revízia: Uses DOS</p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr class="diff-title" lang="cs">
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Starší verze</td>
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Verze z 2. 10. 2012, 14:42</td>
</tr><tr><td colspan="2" class="diff-notice" lang="cs"><div class="mw-diff-empty">(Žádný rozdíl)</div>
</td></tr></table>
Zdeno Sekerák
https://trsek.com/pascal/index.php?title=DosExitCode&diff=578&oldid=prev
Zdeno Sekerák v 2. 10. 2012, 14:07
2012-10-02T14:07:20Z
<p></p>
<p><b>Nová stránka</b></p><div>Vrací výstupní kód podprocesu.<br />
<br />
;Deklarace<br />
function DosExitCode: Word;<br />
<br />
;Režim<br />
:Reálný, Chráněný<br />
<br />
;Poznámky<br />
:Nižší bajt je kód, odeslaný končícím procesem.<br />
<br />
:Vyšší bajt je nastaven na:<br />
<br />
:{| class="wikitable" align="center"<br />
! Typ Ukončení !! Vyšší Bajt<br />
|-----------------------------<br />
| Normální || 0<br />
|-----------------------------<br />
| Ctrl-C || 1<br />
|-----------------------------<br />
| Chyba zařízení || 2<br />
|-----------------------------<br />
| procedura Keep || 3<br />
|}<br />
<br />
;Viz také<br />
:[[Exec]]<br />
<br />
:[[Keep]]<br />
<br />
<br />
Vzorový příklad<br />
<br />
{ DOSXCODE.PAS }<br />
{ Vzorový příklad pro DosExitCode a Exec }<br />
{$M $4000,0,0 } { 16K zásobník, žádná halda }<br />
uses Dos;<br />
var<br />
ProgramName, CmdLine: string;<br />
begin<br />
Write('Program (úplná cesta): ');<br />
ReadLn(ProgramName);<br />
Write('Příkazový řádek programu ', ProgramName, ': ');<br />
ReadLn(CmdLine);<br />
WriteLn('Do Exec...');<br />
<br />
SwapVectors;<br />
Exec(ProgramName, CmdLine);<br />
SwapVectors;<br />
<br />
WriteLn('...zpět z Exec');<br />
if DosError <> 0 then{ Chyba? }<br />
WriteLn('Chyba DOSu #', DosError)<br />
else<br />
WriteLn('Exec úspěšný. ', 'Výstupní kód synovského procesu = ', DosExitCode);<br />
end.<br />
<br />
[[Category:DOS]]<br />
[[Category:Funkce DOS]]<br />
[[Category:Procedury a funkce správy procesů]]</div>
Zdeno Sekerák