win98: 4.10
winnt4 server sp3: 4.0
winnt4 ws sp3: 4.0
winnt4 sbs sp3: 4.0
regards,
Steve.
-----Original Message-----
From: Chris Crowe <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Date: Wednesday, 9 June 1999 09:46
Subject: [DUG]: Windows versions
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
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
