TOSVersion

type TOSVersion = record

public

type

  TArchitecture = (

  arIntelX86,

  arIntelX64,

  arARM32,

  arARM64,

  arIntelX16,

  arXTensa,

  arAVR,

  arM68k,

  arPowerPC,

  arPower64,

  arMips,

  arMipsel,

  arMips64,

  arMips64el,

  arJVM,

  arWasm32,

  arSparc,

  arSparc64,

  arRiscV32,

  arRiscV64,

  arZ80,

  arLoongArch64,

  arOther

);

  TPlatform = (

  pfWindows,

  pfMacOS,

  pfiOS,

  pfAndroid,

  pfWinRT,

  pfLinux,

  pfGo32v2,

  pfOS2,

  pfFreeBSD,

  pfBeos,

  pfNetBSD,

  pfAmiga,

  pfAtari,

  pfSolaris,

  pfQNX,

  pfNetware,

  pfOpenBSD,

  pfWDosX,

  pfPalmos,

  pfMacOSClassic,

  pfDarwin,

  pfEMX,

  pfWatcom,

  pfMorphos,

  pfNetwLibC,

  pfWinCE,

  pfGBA,

  pfNDS,

  pfEmbedded,

  pfSymbian,

  pfHaiku,

  pfIPhoneSim,

  pfAIX,

  pfJava,

  pfNativeNT,

  pfMSDos,

  pfWII,

  pfAROS,

  pfDragonFly,

  pfWin16,

  pfFreeRTOS,

  pfZXSpectrum,

  pfMSXDOS,

  pfAmstradCPC,

  pfSinclairQL,

  pfWasi,

  pfOther

);

  TDelphiPlatform = pfWindows..TPlatform.pfLinux;

public

const

  AllArchitectures = [Low(TArchitecture)..High(TArchitecture)]

  AllPlatforms = [Low(TPlatform)..High(TPlatform)]

public

  class function Check();

  class function ToString;

  property Architecture: TArchitecture; [r]

  property Build: Integer; [r]

  property Major: Integer; [r]

  property Minor: Integer; [r]

  property Name: string; [r]

  property Platform: TPlatform; [r]

  property ServicePackMajor: Integer; [r]

  property ServicePackMinor: Integer; [r]

  property PrettyName: string; [r]

  property LibCVersionMajor: Integer; [r]

  property LibCVersionMinor: Integer; [r]

end;