Win98:
'OS version = 4.10'
Grant Black
Software Developer
SmartMove (NZ) Ltd
Phone: +64 9 361-0219 extn 719
Fax : +64 9 361-0211
Email: [EMAIL PROTECTED]
> -----Original Message-----
> From: Chris Crowe [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 09, 1999 8:42 AM
> To: Multiple recipients of list delphi
> 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
