Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#7: How can I detect a current version of MS Windows?

var
  OSVersionInfo : TOSVersionInfo;
begin
  OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
  if GetVersionEx(OSVersionInfo) then
    with OSVersionInfo do
    begin
      WinVerLabel.Caption := Format('%s%s%s%s%s%s%s%s',
                        ['Windows: ', IntToStr(dwMajorVersion), '.',
                         IntToStr(dwMinorVersion), ' (Build ',
                         IntToStr(dwBuildNumber), szCSDVersion, ')']);
      case dwPlatformId of
        0: WinPlatformLabel.Caption := 'Platform: Win32s on Windows 3.1';
        1: WinPlatformLabel.Caption := 'Platform: Win32 on Windows 95';
        2: WinPlatformLabel.Caption := 'Platform: Windows NT';
      end;
    end;
end;

Published: August 5, 1999

See also

	Database Information Manager
	SMDBGrid
	SMReport
	ABA Spreadsheet Convert
	Paradox Viewer
	Metafile Convert
	Excel Reader (dll)
	Paradox ActiveX
	Paradox to MS Access converter
	ABA Database Convert

Contact to webmaster