Вывод информации про ОС в Label

[KnoWabLe]

Собственно как можно через Delphi для получить информацию (ОС, ее версия + желательно архитектура(х86/x64)) как в Свойствах системы (Win+Pause/Break) и вывести ее в label? Или есть какой-нибудь алгоритм ее получения?

Спасибо.

[Аватар]

Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion в SysUtils. Примерно так:

  case Win32Platform of
  1: s:='95';
  2: s:='NT';
  else s:=Format('[%d]',[Win32Platform]);
  end;
  Label1.Caption:=Format('Windows %s %d.%d (Build %d: %s)',[s,Win32MajorVersion,Win32MinorVersion,Win32BuildNumber,Win32CSDVersion]);

[KnoWabLe]

Сообщение от Аватар

Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion в SysUtils. Примерно так:

  case Win32Platform of
  1: s:='95';
  2: s:='NT';
  else s:=Format('[%d]',[Win32Platform]);
  end;
  Label1.Caption:=Format('Windows %s %d.%d (Build %d: %s)',[s,Win32MajorVersion,Win32MinorVersion,Win32BuildNumber,Win32CSDVersion]);

Вывод информации работает спасибо, вот только у меня Windows XP, а мне вывело в Caption:"Windows NT 5.1 (Build 2600: Service Pack 3)".

[Аватар]

У меня для WIN7 выдает Windows NT 6.1 (Build 7601: Service Pack 1).
Там для Win32MajorVersion нужно разобраться что соответствует WinNT, Win2000, WinXP и Win7. Вот уже выяснили 5 - для XP, 6 - для Win7. Подправьте код

[KnoWabLe]

Сообщение от Аватар

У меня для WIN7 выдает Windows NT 6.1 (Build 7601: Service Pack 1).
Там для Win32MajorVersion нужно разобраться что соответствует WinNT, Win2000, WinXP и Win7. Вот уже выяснили 5 - для XP, 6 - для Win7. Подправьте код

Спасибо за помощь, работает.

[Аватар]

Кстати расшифровочку можно посмотреть http://www.delphisources.ru/pages/fa...s_version.html