Определение операционной системы

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

const
  { operating system constants }
  cOsUnknown = -1;
  cOsWin95 = 0;
  cOsWin98 = 1;
  cOsWin98SE = 2;
  cOsWinME = 3;
  cOsWinNT = 4;
  cOsWin2000 = 5;
  cOsWhistler = 6;

function GetOperatingSystem : integer;
var
  osVerInfo: TOSVersionInfo;
  majorVer, minorVer: Integer;
begin
  result := cOsUnknown;
  { set operating system type flag }
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT : { Windows NT/2000 }
      begin
        if majorVer <= 4 then
          result := cOsWinNT
        else
        if (majorVer = 5) and (minorVer= 0) then
          result := cOsWin2000
        else
        if (majorVer = 5) and (minorVer = 1) then
          result := cOsWhistler
        else
          result := cOsUnknown;
      end;
      VER_PLATFORM_WIN32_WINDOWS : { Windows 9x/ME }
      begin
        if (majorVer = 4) and (minorVer = 0) then
          result := cOsWin95
        else
        if (majorVer = 4) and (minorVer = 10) then
        begin
          if osVerInfo.szCSDVersion[1] = 'A' then
            result := cOsWin98SE
          else
            result := cOsWin98;
        end
        else
        if (majorVer = 4) and (minorVer = 90) then
          result := cOsWinME
        else
          result := cOsUnknown;
      end;
      else
        result := cOsUnknown;
    end;
  end
  else
    result := cOsUnknown;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetOperatingSystem));
end;

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

В коде определено перечисление TOSVersionInfo, представляющее информацию о версии операционной системы, включая основную и минорные версии, а также другие детали. Также определены константы для различных операционных систем, таких как Windows 95, 98, ME, NT, 2000 и Whistler (другое название для Windows XP).

Функция GetOperatingSystem не принимает параметров и возвращает целочисленное значение, представляющее тип операционной системы, запущенной на компьютере. Она использует функцию GetVersionEx API для получения информации о версии операционной системы и затем анализирует эту информацию для определения типа операционной системы.

Если информация о версии операционной системы указывает, что она является Windows NT/2000, функция возвращает один из трех возможных значений: cOsWinNT, cOsWin2000 или cOsWhistler (Windows XP). Если информация о версии операционной системы указывает, что она является Windows 9x/ME, функция возвращает один из четырех возможных значений: cOsWin95, cOsWin98, cOsWin98SE или cOsWinME. Если информация о версии операционной системы не соответствует ни одному из этих шаблонов, функция возвращает cOsUnknown.

Код также определяет процедуру Button1Click, которая вызывается при клике кнопки на форме. Эта процедура просто отображает сообщение с строковой репрезентацией типа операционной системы.

Альтернативное решение:

Вместо использования switch-оператор для определения типа операционной системы можно использовать словарь или карту для хранения возможных значений и соответствующих им операционных систем. Это сделает код более компактным и проще в обслуживании.

Вот пример реализации:

type
  TOperatingSystem = (cOsUnknown, cOsWin95, cOsWin98, cOsWin98SE, cOsWinME, cOsWinNT, cOsWin2000, cOsWhistler);

function GetOperatingSystem: TOperatingSystem;
var
  osVerInfo: TOSVersionInfo;
  majorVer, minorVer: Integer;
begin
  Result := cOsUnknown;

  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    Result := MapOperatingSystem(majorVer, minorVer);
  end;
end;

function MapOperatingSystem(majorVer: Integer; minorVer: Integer): TOperatingSystem;
var
  osMap: array[1..8] of TOperatingSystem;
begin
  osMap[1] := cOsWin95;
  osMap[2] := cOsWin98;
  osMap[3] := cOsWin98SE;
  osMap[4] := cOsWinME;
  osMap[5] := cOsWinNT;
  osMap[6] := cOsWin2000;
  osMap[7] := cOsWhistler;

  Result := osMap[(majorVer * 100) + minorVer];
end;

В этом коде функция GetOperatingSystem аналогична оригинальному коду. Однако вместо использования switch-оператора для определения типа операционной системы она использует функцию MapOperatingSystem для маппинга основной и минорных версий к типу операционной системы. Функция возвращает один из возможных значений для типа операционной системы.

Функция MapOperatingSystem использует массив для хранения возможных значений и соответствующих им операционных систем. Индекс массива рассчитывается умножением основной версии на 100 и добавлением минорной версии, что позволяет быстро найти соответствующую операционную систему в массиве.

Определение операционной системы - программный код на языке Pascal, предназначенный для определения типа операционной системы на компьютере.

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

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

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