dosvrsn.pas

Пример программы для функции DosVersion.

Код примера
  {DOSVrsn.PAS}
 
  { Пример программы для функции DosVersion }
 
  Uses WinDos, WinCrt;
 
  Var Ver : Word;
 Begin
  Ver:=DosVersion;
  WriteLn('Версия DOS : ', Lo(Ver), '.', Hi(Ver));
 End.

Скачать dosvrsn.pas