delphi XE 获取android 系统版本
{$IFDEF IOS}
uses
iOSapi.UIKit, iOSapi.Foundation, Macapi.Helpers;
{$ENDIF}
{$IFDEF ANDROID}
uses
androidapi.JNI.JavaTypes,
Androidapi.Helpers,
androidapi.JNI.Os;
{$ENDIF}
{$IFDEF ANDROID}
function GetCodename(VerString: string): string;
begin
if VerString = '1.0' then
Result := 'BASE'
else if VerString = '1.1' then
Result := 'BASE_1_1'
else if VerString = '1.5' then
Result := 'CUPCAKE'
else if VerString = '1.6' then
Result := 'DONUT'
else if VerString = '2.0' then
Result := 'ECLAIR'
else if VerString = '2.0.1' then
Result := 'ECLAIR_0_1'
else if VerString = '2.1' then
Result := 'ECLAIR_MR1'
else if VerString = '2.2' then
Result := 'FROYO'
else if VerString = '2.3' then
Result := 'GINGERBREAD'
else if VerString = '2.3.3' then
Result := 'GINGERBREAD_MR1'
else if VerString = '3.0' then
Result := 'HONEYCOMB'
else if VerString = '3.1' then
Result := 'HONEYCOMB_MR1'
else if VerString = '3.2' then
Result := 'HONEYCOMB_MR2'
else if VerString = '4.0' then
Result := 'ICE_CREAM_SANDWICH'
else if VerString = '4.0.3' then
Result := 'ICE_CREAM_SANDWICH_MR1'
else if VerString = '4.1' then
Result := 'JELLY_BEAN'
else if VerString = '4.2' then
Result := 'JELLY_BEAN_MR1'
else if VerString = '4.3' then
Result := 'JELLY_BEAN_MR2'
else if Pos('4.4',VerString) = 1 then
Result := 'KITKAT'
else Result := 'UNKNOWN';
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043040037155151 seconds