Přidáno 529 bajtů,
2. 10. 2012, 15:08 Vrací čísllo verze DOSu.
;Deklarace
function DosVersion: Word;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:V nižším bajtu výsledku je hlavní číslo verze, ve vyšším bajtu vedlejší číslo.
Vzorový příklad
{ DOSVrsn.PAS }
{ Vzorový příklad pro funkci DOSVersion. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
var
Ver: Word;
begin
Ver := DosVersion;
Writeln('Toto je DOS verze ', Lo(Ver), '.', Hi(Ver));
end.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Funkce DOS]]