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

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

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 507 • TDictionary Custom Sort 6 528 • Fast Watermark Sources 6 316 • 3D Designer 9 260 • Sik Screen Capture 6 651 • Patch Maker 7 026 • Айболит (remote control) 7 034 • ListBox Drag & Drop 5 904 • Доска для игры Реверси 97 258 • Графические эффекты 7 238 • Рисование по маске 6 538 • Перетаскивание изображений 5 406 • Canvas Drawing 5 775 • Рисование Луны 5 484 • Поворот изображения 5 010 • Рисование стержней 3 565 • Paint on Shape 2 824 • Генератор кроссвордов 3 702 • Головоломка Paletto 2 984 • Теорема Монжа об окружностях 3 787 • Пазл Numbrix 2 498 • Заборы и коммивояжеры 3 177 • Игра HIP 2 144 • Игра Go (Го) 2 084 • Симулятор лифта 2 457 • Программа укладки плитки 2 124 • Генератор лабиринта 2 600 • Проверка числового ввода 2 274 • HEX View 2 605 • Физический маятник 2 216