Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 26 de setembro de 2016

DELPHI - Get System Operational Version (Old GetWinVersion)

Reações: 
Função para recuperar a versão do sistema operacional (Teste realizado com a versão do Delphi 10.1 Berlin)


    Function GetOsVersionDetail: String;
    Function GetOsVersion: String;
//...

function GetOsVersion: String;
var
  AOsVersion : TOsVersion;
begin
  Result := AOsVersion.Name;
end;

function GetOsVersionDetail: String;
var
  AOsVersion : TOsVersion;
  StrL : TStringList;
begin
  StrL := TStringList.Create;
  try
    StrL.Clear;
    StrL.Add(AOsVersion.ToString);
    StrL.Add('--------------------');
    case AOsVersion.Architecture of
      arIntelX86 : StrL.Add('Architecture: IntelX86');
      arIntelX64 : StrL.Add('Architecture: IntelX64');
      arARM32    : StrL.Add('Architecture: ARM32');
      arARM64    : StrL.Add('Architecture: ARM64');
    end;


    case AOsVersion.Platform of
      pfWindows  : StrL.Add('Platform: Windows');
      pfMacOS    : StrL.Add('Platform: MacOS');
      pfiOS      : StrL.Add('Platform: iOS');
      pfAndroid  : StrL.Add('Platform: Android');
      pfWinRT    : StrL.Add('Platform: WinRT');
      pfLinux    : StrL.Add('Platform: Linux');
    end;
    StrL.Add('OS Name: ' + AOsVersion.Name);
    StrL.Add('Buid: ' + Inttostr(AOsVersion.Build));
    StrL.Add('Major Version: ' + Inttostr(AOsVersion.Major));
    StrL.Add('Minor Version: ' + Inttostr(AOsVersion.Minor));
    StrL.Add('ServicePack Major Version: ' + Inttostr(AOsVersion.ServicePackMajor));
    StrL.Add('ServicePack Minor Version: ' + Inttostr(AOsVersion.ServicePackMinor));
  finally
    Result := StrL.Text;
    FreeAndNil(StrL);
  end;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer