control.exe /name Microsoft.System
msinfo32.exe
winver.exe

//コマンドプロンプト専用
ver
systeminfo

//=============================================================================
//  CheckWin32Versionを使用したWindowsのバージョンによる条件分岐
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LVersion : String;
begin
  if CheckWin32Version(10, 0) then begin
    LVersion := 'Windows 10';
  end else
  if CheckWin32Version(6, 3) then begin
    LVersion := 'Windows 8.1';
  end else
  if CheckWin32Version(6, 2) then begin
    LVersion := 'Widows 8';
  end else
  if CheckWin32Version(6, 1) then begin
    LVersion := 'Widows 7';
  end else
  if CheckWin32Version(6, 0) then begin
    LVersion := 'Widows Vista';
  end else
  if CheckWin32Version(5, 1) then begin
    LVersion := 'Widows XP';
  end else
  if CheckWin32Version(5, 0) then begin
    LVersion := 'Widows 2000';
  end else
  if CheckWin32Version(4, 90) then begin
    LVersion := 'Widows ME';
  end else
  if CheckWin32Version(4, 10) then begin
    LVersion := 'Widows 98, 98SE';
  end else
  if CheckWin32Version(4, 0) then begin
    LVersion := 'Widows 95';
  end else begin
    LVersion := 'Unknown Version';
  end;

  MessageBox(Handle, PChar(LVersion), 'Windows Version', MB_ICONINFORMATION);
end;

implementation

{$R *.dfm}

type
  TOSVERSIONINFOEX = packed record
    dwOSVersionInfoSize : Cardinal;
    dwMajorVersion      : Cardinal;
    dwMinorVersion      : Cardinal;
    dwBuildNumber       : Cardinal;
    dwPlatformId        : Cardinal;
    szCSDVersion        : array [0..127] of Char;
    wServicePackMajor   : WORD;
    wServicePackMinor   : WORD;
    wSuiteMask          : WORD;
    wProductType        : Byte;
    wReserved           : Byte;
  end;

//=============================================================================
//  GetVersionEx関数を使用したWindowsのバージョンの取得
//  TOSVERSIONINFOEX構造体のメンバから取得する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LGetVersionEx : function(var LPOSVERSIONINFO: TOSVERSIONINFOEX): Boolean; stdcall;
  LDLLHandle    : THandle;
  LVersion      : TOSVersionInfoEx;
  LMajor        : Cardinal;
  LMinor        : Cardinal;
  LBuild        : Cardinal;
  LCSDVersion   : String;
  LText         : String;
  LRetFlag      : Boolean;
begin
  LRetFlag   := False;
  LDLLHandle := LoadLibrary('kernel32.dll');

  if LDLLHandle <> 0 then begin
    try
      {$IFDEF UNICODE}
      @LGetVersionEx := GetProcAddress(LDLLHandle, 'GetVersionExW');
      {$ELSE}
      @LGetVersionEx := GetProcAddress(LDLLHandle, 'GetVersionExA');
      {$ENDIF}

      if @LGetVersionEx <> nil then begin
        LVersion.dwOSVersionInfoSize := SizeOf(LVersion);
        FillChar(LVersion.szCSDVersion, SizeOf(LVersion.szCSDVersion), #0);

        if LGetVersionEx(LVersion) then begin
          LRetFlag    := True;
          LMajor      := LVersion.dwMajorVersion;
          LMinor      := LVersion.dwMinorVersion;
          LBuild      := LVersion.dwBuildNumber;
          LCSDVersion := LVersion.szCSDVersion;

          LText := IntToStr(LMajor) + '.' + IntToStr(LMinor) + '.' + IntToStr(LBuild)
                 + sLineBreak + LCSDVersion;
        end;
      end;
    finally
      FreeLibrary(LDLLHandle);
    end;
  end;

  if not LRetFlag then begin
    MessageBox(Handle, 'Unknown Version', 'Windows Version', MB_ICONINFORMATION);
  end else begin
    MessageBox(Handle, PChar(LText), 'Windows Version', MB_ICONINFORMATION);
  end;
end;

implementation

{$R *.dfm}

  function RtlGetVersion(var AVersion: TOSVersionInfoExW): Integer;
    stdcall; external 'ntdll.dll';

//=============================================================================
//  RtlGetVersion関数を使用したWindowsのバージョンの取得
//  TOSVersionInfoExW構造体のメンバから取得する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LVersion    : TOSVersionInfoExW;
  LMajor      : Cardinal;
  LMinor      : Cardinal;
  LBuild      : Cardinal;
  LCSDVersion : String;
  LText       : String;
begin
  LVersion.dwOSVersionInfoSize := SizeOf(LVersion);
  FillChar(LVersion.szCSDVersion, SizeOf(LVersion.szCSDVersion), #0);

  if RtlGetVersion(LVersion) = 0 then begin
    LMajor      := LVersion.dwMajorVersion;
    LMinor      := LVersion.dwMinorVersion;
    LBuild      := LVersion.dwBuildNumber;
    LCSDVersion := LVersion.szCSDVersion;

    LText := IntToStr(LMajor) + '.' + IntToStr(LMinor) + '.' + IntToStr(LBuild)
           + sLineBreak + LCSDVersion;
    MessageBox(Handle, PChar(LText), 'Windows Version', MB_ICONINFORMATION);
  end;
end;

implementation

{$R *.dfm}

type
  TOSVERSIONINFOEXW = packed record
    dwOSVersionInfoSize : Cardinal;
    dwMajorVersion      : Cardinal;
    dwMinorVersion      : Cardinal;
    dwBuildNumber       : Cardinal;
    dwPlatformId        : Cardinal;
    szCSDVersion        : array [0..127] of WideChar;
    wServicePackMajor   : WORD;
    wServicePackMinor   : WORD;
    wSuiteMask          : WORD;
    wProductType        : Byte;
    wReserved           : Byte;
  end;

//=============================================================================
//  RtlGetVersion関数を使用したWindowsのバージョンの取得
//  TOSVersionInfoExW構造体のメンバから取得する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LRtlGetVersion : function (var AVersion: TOSVersionInfoExW): Integer; stdcall;
  LDLLHandle     : THandle;
  LVersion    : TOSVersionInfoExW;
  LMajor      : Cardinal;
  LMinor      : Cardinal;
  LBuild      : Cardinal;
  LCSDVersion : String;
  LText       : String;
  LRetFlag    : Boolean;
begin
  LRetFlag   := False;
  LDLLHandle := LoadLibrary('ntdll.dll');

  if LDLLHandle <> 0 then begin
    try
      @LRtlGetVersion := GetProcAddress(LDLLHandle, 'RtlGetVersion');
      if @LRtlGetVersion <> nil then begin
        LRetFlag := True;

        LVersion.dwOSVersionInfoSize := SizeOf(LVersion);
        FillChar(LVersion.szCSDVersion, SizeOf(LVersion.szCSDVersion), #0);

        if LRtlGetVersion(LVersion) = 0 then begin
          LMajor      := LVersion.dwMajorVersion;
          LMinor      := LVersion.dwMinorVersion;
          LBuild      := LVersion.dwBuildNumber;
          LCSDVersion := LVersion.szCSDVersion;

          LText := IntToStr(LMajor) + '.' + IntToStr(LMinor) + '.' + IntToStr(LBuild)
                 + sLineBreak + LCSDVersion;
          ShowMessage(LText);
        end;
      end;
    finally
      FreeLibrary(LDLLHandle);
    end;
  end;

  if not LRetFlag then begin
    ShowMessage('このパソコンでは使用できません。');
    Close;
  end;
end;

end.

implementation

{$R *.dfm}

type
  TOSVERSIONINFOEXW = packed record
    dwOSVersionInfoSize : Cardinal;
    dwMajorVersion      : Cardinal;
    dwMinorVersion      : Cardinal;
    dwBuildNumber       : Cardinal;
    dwPlatformId        : Cardinal;
    szCSDVersion        : array [0..127] of WideChar;
    wServicePackMajor   : WORD;
    wServicePackMinor   : WORD;
    wSuiteMask          : WORD;
    wProductType        : Byte;
    wReserved           : Byte;
  end;

  TRtlGetVersion = function (var AVersion: TOSVersionInfoExW): Integer; stdcall;

var
  LRtlGetVersion : TRtlGetVersion;

//=============================================================================
//  RtlGetVersion関数を使用したWindowsのバージョンの取得
//  TOSVersionInfoExW構造体のメンバから取得する
//
//  グローバルでType宣言で定義した関数を使用する例
//  TRtlGetVersionとしているが,この名前は任意
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LDLLHandle     : THandle;
  LVersion       : TOSVersionInfoExW;
  LMajor         : Cardinal;
  LMinor         : Cardinal;
  LBuild         : Cardinal;
  LCSDVersion    : String;
  LText          : String;
  LRetFlag       : Boolean;
begin
  LRetFlag   := False;
  LDLLHandle := LoadLibrary('ntdll.dll');

  //以下省略(上のコードと同じ)

//=============================================================================
//  TOSVersionによるWindowsのバージョンの取得
//  メジャー,マイナーバージョン番号等も独立して取得可能
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LVersion : String;
  LText    : String;
begin
  LText := TOSVersion.Name + sLineBreak + TOSVersion.ToString;
  MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WbemScripting_TLB, ActiveX;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    function GetWMIPropSetEnum(ASQLText: WideString): IEnumVariant;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  Win32_OperatingSystemクラスからVersionプロパティの値を取得
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LIEmunVariant : IEnumVariant;
  LobjTemp      : OleVariant;
  LValue        : LongWord;
  LwmiPropSet   : ISWbemPropertySet;
  LwmiProperty  : ISWbemProperty;
  LText         : String;
begin
  //プロパティのセットのコレクションを取得
  LIEmunVariant := GetWMIPropSetEnum('Win32_OperatingSystem');

  //OSの情報はおそらく1つだけなので実際には1回しかループしない
  while LIEmunVariant.Next(1, LobjTemp, LValue) = 0 do begin
    //プロパティのセットを取得
    LwmiPropSet := (IUnknown(LobjTemp) as ISWBemObject).Properties_;
    //Versionプロパティを取得
    LwmiProperty := LwmiPropSet.Item('Version', 0);

    LText := LwmiProperty.Name + sLineBreak + LwmiProperty.Get_Value;
    MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
  end;
end;

//-----------------------------------------------------------------------------
//  WMIのクエリを実行してプロパティのセットのコレクションを取得するルーチン
//-----------------------------------------------------------------------------
function TForm1.GetWMIPropSetEnum(ASQLText: WideString): IEnumVariant;
var
  LISWbemLocator  : ISWbemLocator;
  LISWbemService  : ISWbemServices;
  LSWbemObjectSet : ISWbemObjectSet;
begin
  //WMIのオブジェクトを生成
  LISWbemLocator := CoSWbemLocator.Create;
  //WMIサービスに接続
  LISWbemService := LISWbemLocator.ConnectServer(
                     '',
                     'root\cimv2',
                     '',
                     '',
                     '',
                     '',
                     0,
                     nil);
  //クエリーを実行して、プロパティのセットのオブジェクトを取得
  LSWbemObjectSet := LISWbemService.ExecQuery(
                     'Select * From ' + ASQLText,
                     'WQL',
                     wbemFlagReturnImmediately,
                     nil);


  //プロパティのセットのコレクションを取得
  Result := LSWbemObjectSet._NewEnum as IEnumVariant;
end;

end.

//=============================================================================
//  Win32_OperatingSystemクラスからVersionプロパティの値を取得
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LIEmunVariant : IEnumVariant;
  LobjTemp      : OleVariant;
  LValue        : LongWord;
  LText         : String;
begin
  //プロパティのセットのコレクションを取得
  LIEmunVariant := GetWMIPropSetEnum('Win32_OperatingSystem');

  //OSの情報はおそらく1つだけなので実際には1回しかループしない
  while LIEmunVariant.Next(1, LobjTemp, LValue) = 0 do begin
    //Versionプロパティを取得
    LText := LobjTemp.Version;
    LText := 'Verstion' + sLineBreak + LText;

    MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
  end;
end;

implementation

uses
  ActiveX,
  ComObj;

{$R *.dfm}

//=============================================================================
//  Win32_OperatingSystemクラスからVersionプロパティの値を取得
//
//  IEnumVariantの使用にはusesにActiveXが必要
//  CreateOleObjectの使用にはusesにComObjが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LSQLText        : WideString;
  LISWbemLocator  : OleVariant;
  LISWbemService  : OleVariant;
  LSWbemObjectSet : OleVariant;
  LIEmunVariant   : IEnumVariant;
  LobjTemp        : OleVariant;
  LValue          : LongWord;
  LText           : String;
begin
  LSQLText := 'Win32_OperatingSystem';

  //WMIのオブジェクトを生成
  LISWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  //WMIサービスに接続
  LISWbemService := LISWbemLocator.ConnectServer('', 'root\cimv2');
  //クエリーを実行して、プロパティのセットのオブジェクトを取得
  LSWbemObjectSet := LISWbemService.ExecQuery('SELECT * FROM ' + LSQLText);
  //プロパティのセットのコレクションを取得
  LIEmunVariant := IUnknown(LSWbemObjectSet._NewEnum) as IEnumVariant;


  //実際には1回しかループしない
  while LIEmunVariant.Next(1, LobjTemp, LValue) = 0 do begin
    //Versionプロパティを取得
    LText := LobjTemp.Version;
    LText := 'Verstion' + sLineBreak + LText;

    MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
  end;
end;

//=============================================================================
//  自分自身が互換モードで動作しているかを調査
//  互換モードで動作している場合はその種類を取得して表示
//
//   TRegistryの使用にはusesにRegistryが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LAppFullPath  : String;
  LRegistry     : TRegistry;
  LRegKeyName   : String;
  LRegItemValue : String;
begin
  LAppFullPath := Application.ExeName;

  LRegistry := TRegIniFile.Create;
  try
    LRegistry.Access  := KEY_READ;
    LRegistry.RootKey := HKEY_CURRENT_USER;
    LRegKeyName       := 'Software\Microsoft\Windows NT\CurrentVersion\'
                       + 'AppCompatFlags\Layers';

    LRegItemValue := '';
    if LRegistry.OpenKey(LRegKeyName, False) then begin
      LRegItemValue := LRegistry.ReadString(LAppFullPath);
    end;

    if LRegItemValue = '' then begin
      MessageBox(Handle, '互換モードは未設定です', '互換モード', MB_ICONINFORMATION);
    end else begin
      MessageBox(Handle, PChar(LRegItemValue), '互換モード', MB_ICONINFORMATION);
    end;
  finally
    FreeAndNil(LRegistry);
  end;
end;