Saber sistema operativo en Pascal

josecollants #1 Ene '08

Wenas, alguien sabe alguna manera de averiguar el sistema operativo desde el codigo de un programa en pascal????

Y0K3S3 #2 Ene '08 MV Warrior

Espero que te sirva:

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.

http://www.freepascal.org/docs-html/rtl/dos/dosversion.html

josecollants #3 Ene '08

muchas gracias, jaja que tengo que entragar el proyecto de programacion en breve xD

MUCHAS GRACIAS!!

Y0K3S3 #4 Ene '08 MV Warrior

Denada

pd: Lo vi via google. Aprender a buscar correctamente es importante.

pd2: No lo digo pq no me guste ayudar si no pq imaginate que yo no te ayudo.Ayudarse uno mismo ahorra problemas.

Usuarios habituales