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

	Excel Reader (dll)
	Paradox Password Recovery
	ExcelFile Viewer
	Protected Storage Viewer
	DBISAM Password Recovery
	ABA Document Convert
	Clarion Viewer
	ABA Database Convert
	ABA Picture Convert
	MAPIMail

Contact to webmaster