Function DosVersion : Word;
DosVersion returns the DOS version number. On LINUX systems, it returns the Linux version (The first 2 numbers, e.g Linux version 2.1.76 will give you DosVersion 2.1)
None.
Program Example1;
uses Dos;
{ Program to demonstrate the DosVersion function. }
var
OS : string[32];
Version : word;
begin
{$IFDEF LINUX}
OS:='Linux';
{$ENDIF}
{$IFDEF DOS}
OS:='Dos';
{$ENDIF}
Version:=DosVersion;
WriteLn('Current ',OS,' version is ',Lo(Version),'.',Hi(Version));
end.