Saber versión de Windows con condicionales de compilacion

[cloayza]

Estimado Aguml, haber si esto le sirve de guía...

Código Delphi [-]
procedure TForm5.FormCreate(Sender: TObject);
Const
   ArrArquitecture:array[TOSVersion.TArchitecture] of  string=('arIntelX86', 'arIntelX64', 'arARM32', 'arARM64');
   ArrPlatform:array[TOSVersion.TPlatform] of string=('pfWindows', 'pfMacOS', 'pfiOS', 'pfAndroid', 'pfWinRT', 'pfLinux');

begin
     vle.Strings.Add(format('Architecture=%s',[ArrArquitecture[TOSVersion.Architecture]]));
     vle.Strings.Add(format('Platform=%s',[ArrPlatform[TOSVersion.Platform]]));

     vle.Strings.Add(format('Build=%d',[TOSVersion.Build]));
     vle.Strings.Add(format('Major=%d',[TOSVersion.Major]));
     vle.Strings.Add(format('Minor=%d',[TOSVersion.Minor]));
     vle.Strings.Add(format('ServicePackMajor=%d',[TOSVersion.ServicePackMajor]));
     vle.Strings.Add(format('ServicePackMinor=%d',[TOSVersion.ServicePackMinor]));

     vle.Strings.Add(format('Descripción=%s',[TOSVersion.ToString]));
end;

Saludos cordiales