Как узнать платформу

Delphi , ОС и Железо , Windows

private
  { Private declarations }
  procedure OSInfo;
...

procedure TForm1.OSInfo;
var
  BRes : boolean;
  lpVersionInformation : TOSVersionInfo;
  c : string;
begin
  lpVersionInformation.dwOSVersionInfoSize :=
  SizeOf(TOSVersionInfo);
  BRes := GetVersionEx(lpVersionInformation);
  if BRes then
    with lpVersionInformation do
      case dwPlatformId of
        VER_PLATFORM_WIN32_WINDOWS :
          if dwMinorVersion=0 then
            c := 'Windows 95'
          else
            c := 'Windows 98';
        VER_PLATFORM_WIN32_NT :
          c := 'Windows NT';
        VER_PLATFORM_WIN32s :
          c := 'Win 3.1 with Win32s'
      end;
  Form1.Caption:=c;
end;

Программа на Delphi!

Код предназначен для извлечения информации о платформе операционной системы (OS) и отображения ее как заголовка в основном окне.

Работает следующим образом:

1. Процедура TForm1.OSInfo объявляется, которая будет вызвана для получения информации о OS.
2. В этой процедуре:
   • Переменная типа Boolean BRes объявляется для хранения результата вызова функции GetVersionEx.
   • Создается экземпляр структуры TOSVersionInfo и сохраняется в переменной lpVersionInformation. Размер этой структуры устанавливается с помощью функции SizeOf.
   • Функция GetVersionEx вызывается с аргументом lpVersionInformation. Эта функция извлекает информацию о операционной системе, включая ее идентификатор платформы (dwPlatformId) и номера версий.
   • Если вызов GetVersionEx выполнен успешно (т.е., BRes равен True), процедура извлекает идентификатор платформы из lpVersionInformation с помощью оператора case. В зависимости от идентификатора платформы:
     • Если он равен VER_PLATFORM_WIN32_WINDOWS, код проверяет, является ли минорный номер версии 0, и устанавливает строку заголовка в either 'Windows 95' или 'Windows 98'.
     • Если он равен VER_PLATFORM_WIN32_NT, строка заголовка устанавливается в 'Windows NT'.
     • Если он равен VER_PLATFORM_WIN32s, строка заголовка устанавливается в 'Win 3.1 with Win32s'.
   • Наконец, свойство Caption основного окна (Form1) обновляется с извлеченной информацией о OS.

Чтобы запустить эту программу, просто скомпилируйте и запустите ее на вашем компьютере, поддерживающем Delphi (Windows, macOS или Linux). Заголовок будет обновлен для отображения информации о платформе и версии OS.

Статья описывает способ получения информации о платформе компьютера, используя процедуру GetVersionEx и обработку полученных данных в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::