Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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;

Статья Определение операционной системы раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
16.06.2021 04:13:52/0.0014050006866455/0