DosVersion
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
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.