DosVersion

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.