DOSVrsn.PAS

Language:
Русский
English

   {DOSVrsn.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the DOSVersion function.}

  uses WinDos, WinCrt;  {Add WinCrt }

  var
    Ver: Word;
  begin
    Ver := DosVersion;
    Writeln('This is DOS version ', Lo(Ver), '.',
  Hi(Ver));
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //