Правила форума
DOSVrsn.PASЯзык:
Русский
English
{ Пример программы для функции DosVersion }
uses Dos, Crt;
var
Ver : Word;
begin
Ver := DosVersion;
WriteLn('Версия DOS : ', Lo(Ver), '.', Hi(Ver));
end.
var
Ver : Word;
begin
Ver := DosVersion;
WriteLn('Версия DOS : ', Lo(Ver), '.', Hi(Ver));
end.
::
::
::
