it worked well enough for me.
Basicaly
Windows 95 = 4.0
Windows 95 SR2 = 4.0
Windows 98 = 4.10
Windows NT Wkst = 4.0
Windows NT Server = 4.0
Windows NT SBS = 4.0
Windows 2000 = 5.0
You can check other things like the build etc, but I did not need to.
I really only needed to know about 98, and 2000.
Since each of them draws gradient filled captions on forms I altered the RX
Gradient Caption routines to skip it on 98, and 2000, it just makes my apps
look a bit tidier.
Chris
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Rohit Gupta
Sent: Thursday, 10 June 1999 14:01
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Windows versions
Chris,
Did that produce any workable results ? I have seen other apps use
the environment variables to figure it out.
On 9 Jun 99 at 8:41, Chris Crowe wrote:
> Hi all
>
> Can anyone (more than one would be great) create a new app and put the
code
> below in and tell me what version gets returned.
>
> I would like to see what version's get returned for Windows 95, 98, NT
3.51,
> NT 4.0, NT SBS 4.0
>
> procedure TForm1.Button1Click(Sender: TObject);
> Var
> VersionInfo : OSVERSIONINFO;
> Begin
> VersionInfo.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
> GetVersionEx(VersionInfo);
> ShowMessage('OS version = '+Format('%d.%d', [VersionInfo.dwMajorVersion,
> VersionInfo.dwMinorVersion]));
> end;
>
> Please tell me the version numbers returned, and the OS you are using it
on.
>
> Cheers Chris.
>
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
Rohit
======================================================================
CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand
PH (649) 489-2280
FX (649) 489-2290
email [EMAIL PROTECTED] or [EMAIL PROTECTED]
======================================================================
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
