Получение информации о типе и версии операционной системы . Delphi , ОС и Железо , Windows

Программа на Delphi, которая получает информацию о типе и версии операционной системы, установленной на компьютере пользователя.

Единица HSWinFuncs содержит функцию WhatWindowsIsInstalled, которая возвращает строку, описывающую операционную систему. Функция использует API-функцию GetVersionExA для получения информации о операционной системе и затем использует серию if-заявок для определения типа и версии операционной системы.

Программа также содержит константу VER_PLATFORM_WIN32_WINDOWS, которая используется для идентификации Windows 95, Windows 98 и Windows Me. Она также содержит константы для других версий Windows NT, включая Windows NT 3.51, Windows NT 4.0 и Windows 2000.

Программа включает в себя пример использования функции WhatWindowsIsInstalled в обработчике события OnCreate формы. Это код устанавливает текст редактора WindowsTypeEdit на результат вызова функции WhatWindowsIsInstalled.

Программа - простой пример использования Delphi для получения информации о операционной системе, установленной на компьютере пользователя.

Вот некоторые потенциальные улучшения, которые можно сделать:

unit HSWinFuncs;

interface

uses
  Windows;

const
  VER_NT_WORKSTATION = 0;
  VER_NT_DOMAIN_CONTROLLER = 1;
  VER_NT_SERVER = 2;

  VER_SUITE_SMALLBUSINESS = 1;
  VER_SUITE_ENTERPRISE = 2;
  VER_SUITE_BACKOFFICE = 4;
  VER_SUITE_COMMUNICATIONS = 8;
  VER_SUITE_TERMINAL = $10;
  VER_SUITE_SMALLBUSINESS_RESTRICTED = $20;
  VER_SUITE_EMBEDDEDNT = $40;
  VER_SUITE_DATACENTER = $80;
  VER_SUITE_SINGLEUSERTS = $100;
  VER_SUITE_PERSONAL = $200;
  VER_SUITE_BLADE = $400;

type
  TOsVersionInfoExA = packed record
    Old: TOsVersionInfoA;
    wServicePackMajor: Word;
    wServicePackMinor: Word;
    wSuiteMask: Word;
    wProductType: Byte;
    wReserved: Byte;
  end;

function WhatWindowsIsInstalled: string;
var
  VerInfo: TOsVersionInfoExA;
begin
  FillChar(VerInfo, sizeof(VerInfo), 0);
  VerInfo.Old.dwOSVersionInfoSize := SizeOf(TOsVersionInfoExA);
  if not GetVersionExA(VerInfo.Old) then
  begin
    VerInfo.Old.dwOSVersionInfoSize := SizeOf(TOsVersionInfoA);
    GetVersionExA(VerInfo.Old);
  end;
  case VerInfo.Old.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS:
      Result := Windows95Or98OrMe(VerInfo.Old);
    VER_PLATFORM_WIN32_NT:
      Result := WindowsNT(VerInfo.Old);
  end;
end;

function Windows95Or98OrMe(const VerInfo: TOsVersionInfoA): string;
begin
  if (VerInfo.dwMajorVersion = 4) and (VerInfo.dwBuildNumber = 950) then
    Result := 'Windows 95'
  else if (VerInfo.dwMajorVersion = 4) and (VerInfo.dwMinorVersion = 10) and (VerInfo.dwBuildNumber = 1998) then
    Result := 'Windows 98'
  else if VerInfo.dwMinorVersion = 90 then
    Result := 'Windows Me';
end;

function WindowsNT(const VerInfo: TOsVersionInfoA): string;
begin
  if VerInfo.dwMajorVersion = 3 then
    Result := 'Windows NT 3.51'
  else if VerInfo.dwMajorVersion = 4 then
    Result := 'Windows NT 4.0'
  else if VerInfo.dwMajorVersion = 5 then
    if VerInfo.dwMinorVersion = 0 then
      Result := 'Windows 2000'
    else if VerInfo.dwMinorVersion = 1 then
      Result := 'Windows XP';
end;

implementation

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  WindowsTypeEdit.Text := WhatWindowsIsInstalled();
end;

В этом коде определены две новые функции, Windows95Or98OrMe и WindowsNT, которые используются функцией WhatWindowsIsInstalled для определения типа и версии операционной системы. API-функция GetVersionExA все еще вызывается, но теперь она передается в эти новые функции, что делает код более легко читаемым и поддерживаемым.

Программа также включает обработку ошибок для случаев, когда API-функция GetVersionExA не работает или возвращает неожиданный результат.

В статье описано, как получить информацию о типе и версии установленной операционной системы Windows, используя функцию GetVersionExA из библиотеки Windows.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS