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

- В кого бы вы выстрелили, если бы оказались в одном лифте с Садамом Хусейном, Гитлером, Сталиным и Билл Гейтсом и у вас был бы только один револьвер с двумя патронами? - В Билл Гейтса два раза, чтобы наверняка…

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 650 • TDictionary Custom Sort 6 656 • Fast Watermark Sources 6 436 • 3D Designer 9 376 • Sik Screen Capture 6 766 • Patch Maker 7 165 • Айболит (remote control) 7 169 • ListBox Drag & Drop 6 020 • Доска для игры Реверси 97 633 • Графические эффекты 7 346 • Рисование по маске 6 638 • Перетаскивание изображений 5 502 • Canvas Drawing 5 884 • Рисование Луны 5 620 • Поворот изображения 5 116 • Рисование стержней 3 697 • Paint on Shape 2 920 • Генератор кроссвордов 3 822 • Головоломка Paletto 3 064 • Теорема Монжа об окружностях 3 871 • Пазл Numbrix 2 548 • Заборы и коммивояжеры 3 278 • Игра HIP 2 247 • Игра Go (Го) 2 176 • Симулятор лифта 2 559 • Программа укладки плитки 2 187 • Генератор лабиринта 2 687 • Проверка числового ввода 2 334 • HEX View 2 670 • Физический маятник 2 313