blob: 5f437a3c5a1e840373baf77bf9e1fa1ab97dde97 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
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.
|
