Pascal / dos / DosVersion

AddDisk, DiskFree, DiskSize, DosExitCode, � DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, FindFirst, FindNext, FSearch, FSplit, GetCBreak, GetDate, GetEnv, GetFAttr, GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,

Funcion: DosVersion()
Sintaxis:

function DosVersion: Word;

Descripcion: DosVersion regresa el sistema operativo o version e kernel.

Observacion: En sistemas donde la version consiste en mas de dos numeros, solo los primeros dos numeros seran retornados. por ejemplo linux version 2.1.76 deberia regresados DosVersion 2.1 . Algundos sistemas operativo, como FreeBSD, no tienen llamadas al sistema para regresar la version del kernel, en este caso un valor 0 sera retornado.
Ejemplo:

Program Example1;
uses Dos;
 
{ Program to demonstrate the DosVersion function. }
 
var
  OS      : string[32];
  Version : word;
begin
{$IFDEF LINUX}
  OS:='Linux';
{$ENDIF}
{$ifdef FreeBSD}
  OS:='FreeBSD';
{$endif}
{$ifdef NetBSD}
  OS:='NetBSD';
{$endif}
{$ifdef Solaris}
  OS:='Solaris';
{$endif}
{$ifdef QNX}
  OS:='QNX';
{$endif}
 
{$IFDEF DOS}
  OS:='Dos';
{$ENDIF}
  Version:=DosVersion;
  WriteLn('Current ',OS,' version is ',Lo(Version),'.',Hi(Version));
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal