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
