Android Instance-get Program version number
Last Update:2016-04-20
Source: Internet
Author: User
<span id="Label3"></p><p><p></p></p><p><p></p></p><p><p>Related information: 383675978 Group number</p></p><p><p></p></p><p><p>Example Source:</p></p><pre><span style="color: #008080;"><span style="color: #008080;">1</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">Unit</span></span><span style="color: #000000;"><span style="color: #000000;">Unit1;</span></span><span style="color: #008080;"><span style="color: #008080;">2</span></span> <span style="color: #008080;"><span style="color: #008080;">3</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">Interface</span></span><span style="color: #008080;"><span style="color: #008080;">4</span></span> <span style="color: #008080;"><span style="color: #008080;">5</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">uses</span></span><span style="color: #008080;"><span style="color: #008080;">6</span></span> <span style="color: #000000;"><span style="color: #000000;">system.sysutils, system.types, system.uitypes, system.classes, system.variants,</span></span><span style="color: #008080;"><span style="color: #008080;">7</span></span> <span style="color: #000000;"><span style="color: #000000;">FMX. Types, FMX. Controls, FMX. Forms, FMX. Graphics, FMX. Dialogs,</span></span><span style="color: #008080;"><span style="color: #008080;">8</span></span> <span style="color: #000000;"><span style="color: #000000;">FMX. controls.presentation, fmx.stdctrls,</span></span><span style="color: #008080;"><span style="color: #008080;">9</span></span>xgetverno;<span style="color: #008000;"><span style="color: #008000;">//</span></span><span style="color: #008000;"><span style="color: #008000;">Get_osver Use</span></span><span style="color: #008080;"><span style="color: #008080;">Ten</span></span> <span style="color: #008080;"><span style="color: #008080;"></span> one</span> <span style="color: #0000ff;"><span style="color: #0000ff;">type</span></span><span style="color: #008080;"><span style="color: #008080;"></span> a</span>TForm1 =<span style="color: #0000ff;"><span style="color: #0000ff;">class</span></span><span style="color: #000000;"><span style="color: #000000;">(tform)</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">label1:tlabel;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">label2:tlabel;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">procedure</span></span><span style="color: #000000;"><span style="color: #000000;">formcreate (sender:tobject);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Private</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">Private Declarations</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;"></span> public</span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;">public <span style="color: #008000;">declarations</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008080;"><span style="color: #008080;"></span> a</span> <span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #008080;"><span style="color: #008080;"></span> at</span> <span style="color: #000000;"><span style="color: #000000;">form1:tform1;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Implementation</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$R *.FMX</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$R *. NMXHDPIPH.FMX ANDROID</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> in</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">procedure</span></span><span style="color: #000000;"><span style="color: #000000;">tform1.formcreate (sender:tobject);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> to</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span>Label2.text: = get_osver;<span style="color: #008000;"><span style="color: #008000;">//</span></span><span style="color: #008000;"><span style="color: #008000;">Get version number</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008080;"><span style="color: #008080;"></span> *</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span>.</pre><p><p>Third-party Source Code:</p></p><pre><span style="color: #008080;"><span style="color: #008080;">1</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">*******************************************************</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">2</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span> <span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">3</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">XE7 Android Frame</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">4</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span> <span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">5</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">Copyright (C) 2015 working Programmers</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">6</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">date: 2015.01.15</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">7</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">Source qq:2403182533</span></span><span style="color: #008080;"><span style="color: #008080;">8</span></span> <span style="color: #008000;"><span style="color: #008000;">{ </span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">9</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">*******************************************************</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">Ten</span></span> <span style="color: #008080;"><span style="color: #008080;"></span> one</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Unit</span></span><span style="color: #000000;"><span style="color: #000000;">xgetverno;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> a</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Interface</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">uses</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF mswindows</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">winapi.windows,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF ANDROID</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #000000;"><span style="color: #000000;">Androidapi.JNI.GraphicsContentViewText,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> a</span> <span style="color: #000000;"><span style="color: #000000;">Androidapi.JNI.JavaTypes,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> at</span> <span style="color: #000000;"><span style="color: #000000;">FMX. helpers.android,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">androidapi.helpers,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF IOS</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">FMX. platform.ios,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> in</span> <span style="color: #000000;"><span style="color: #000000;">iosapi.foundation,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">macapi.objectivec,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> to</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF MACOS</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">FMX. platform.mac,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> *</span> <span style="color: #000000;"><span style="color: #000000;">macapi.foundation,</span></span><span style="color: #008080;"><span style="color: #008080;"></span> $</span> <span style="color: #000000;"><span style="color: #000000;">macapi.objectivec,</span></span><span style="color: #008080;"><span style="color: #008080;">Panax Notoginseng</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #000000;"><span style="color: #000000;">system.sysutils;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">function</span></span>Get_osver:<span style="color: #0000ff;"><span style="color: #0000ff;">string</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008080;"><span style="color: #008080;"></span> a</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Implementation</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008080;"><span style="color: #008080;"></span> +</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF mswindows</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> $</span> <span style="color: #0000ff;"><span style="color: #0000ff;">procedure</span></span>Getbuildinfo (<span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #000000;"><span style="color: #000000;">V1, V2, V3, v4:word);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> $</span> <span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">verinfosize, vervaluesize, dummy:dword;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #000000;"><span style="color: #000000;">verinfo:pointer;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">vervalue:pvsfixedfileinfo;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;">Wuyi</span></span>verinfosize: = GetFileVersionInfoSize (PChar (paramstr (<span style="color: #800080;"><span style="color: #800080;">0</span></span><span style="color: #000000;">) <span style="color: #000000;">), Dummy);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">if</span></span>Verinfosize ><span style="color: #800080;"><span style="color: #800080;">0</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;"></span> then</span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> wu</span> <span style="color: #000000;"><span style="color: #000000;">Getmem (verinfo, verinfosize);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">Try</span></span><span style="color: #008080;"><span style="color: #008080;"></span> about</span> <span style="color: #0000ff;"><span style="color: #0000ff;">if</span></span>GetFileVersionInfo (PChar (paramstr (<span style="color: #800080;"><span style="color: #800080;">0</span></span>)),<span style="color: #800080;"><span style="color: #800080;">0</span></span>, verinfosize, Verinfo)<span style="color: #0000ff;"><span style="color: #0000ff;"></span> then</span><span style="color: #008080;"><span style="color: #008080;"></span> $</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span>VerQueryValue (verinfo,<span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #800000;"><span style="color: #800000;">\</span></span><span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #000000;"><span style="color: #000000;">, Pointer (vervalue), vervaluesize);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;"></span> with</span>vervalue^<span style="color: #0000ff;"><span style="color: #0000ff;"></span> do</span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> a</span>V1: = Dwfileversionms<span style="color: #0000ff;"><span style="color: #0000ff;">SHR</span></span> <span style="color: #800080;"><span style="color: #800080;"></span> -</span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span>V2: = Dwfileversionms<span style="color: #0000ff;"><span style="color: #0000ff;"></span> and</span><span style="color: #000000;"><span style="color: #000000;">$FFFF;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span>V3: = Dwfileversionls<span style="color: #0000ff;"><span style="color: #0000ff;">SHR</span></span> <span style="color: #800080;"><span style="color: #800080;"></span> -</span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span>V4: = Dwfileversionls<span style="color: #0000ff;"><span style="color: #0000ff;"></span> and</span><span style="color: #000000;"><span style="color: #000000;">$FFFF;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> $</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">finally</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">Freemem (verinfo, verinfosize);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> in</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">function</span></span>Getbuildinfoasstring:<span style="color: #0000ff;"><span style="color: #0000ff;">string</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> about</span> <span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">V1, V2, V3, v4:word;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">getbuildinfo (V1, V2, V3, V4);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> +</span>Result: = IntToStr (V1) +<span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #800000;"><span style="color: #800000;">.</span></span><span style="color: #800000;"><span style="color: #800000;">'</span></span>+ IntToStr (V2) +<span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #800000;"><span style="color: #800000;">.</span></span><span style="color: #800000;"><span style="color: #800000;">'</span></span>+<span style="color: #008080;"><span style="color: #008080;"></span> -</span>IntToStr (V3) +<span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #800000;"><span style="color: #800000;">.</span></span><span style="color: #800000;"><span style="color: #800000;">'</span></span>+<span style="color: #000000;"><span style="color: #000000;">IntToStr (V4);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;">Bayi</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">function</span></span>Get_osver:<span style="color: #0000ff;"><span style="color: #0000ff;">string</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF mswindows</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span>result:=<span style="color: #000000;"><span style="color: #000000;">getbuildinfoasstring;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IFDEF ANDROID</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #000000;"><span style="color: #000000;">packageinfo:jpackageinfo;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #000000;"><span style="color: #000000;">packagename:jstring;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;">94</span></span>Packagename: =<span style="color: #000000;"><span style="color: #000000;">sharedactivitycontext.getpackagename;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span>Packageinfo: = SharedActivityContext.getPackageManager.getPackageInfo (packagename,<span style="color: #800080;"><span style="color: #800080;">0</span></span><span style="color: #000000;"><span style="color: #000000;">);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span>result:=<span style="color: #000000;"><span style="color: #000000;">jstringtostring (packageinfo.versionname);</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;">98</span></span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;"></span> about</span> <span style="color: #008080;"><span style="color: #008080;"></span> -</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$IF Defined (IOS) or Defined (MACOS)</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">101</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">var</span></span><span style="color: #000000;"><span style="color: #000000;">appnamekey:pointer;</span></span><span style="color: #008080;"><span style="color: #008080;">102</span></span> <span style="color: #000000;"><span style="color: #000000;">appbundle:nsbundle;</span></span><span style="color: #008080;"><span style="color: #008080;">103</span></span> <span style="color: #000000;"><span style="color: #000000;">nsappname:nsstring;</span></span><span style="color: #008080;"><span style="color: #008080;">104</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">begin</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span>Appbundle: =<span style="color: #000000;"><span style="color: #000000;">Tnsbundle.wrap (TNSBundle.OCClass.mainBundle);</span></span><span style="color: #008080;"><span style="color: #008080;">106</span></span>Appnamekey: = (nsstr (<span style="color: #800000;"><span style="color: #800000;">'</span></span><span style="color: #800000;"><span style="color: #800000;">cfbundleversion</span></span><span style="color: #800000;"><span style="color: #800000;">'</span></span>)<span style="color: #0000ff;"><span style="color: #0000ff;"></span> as</span><span style="color: #000000;"><span style="color: #000000;">ilocalobject). getobjectid;</span></span><span style="color: #008080;"><span style="color: #008080;">107</span></span>Nsappname: =<span style="color: #000000;"><span style="color: #000000;">tnsstring.wrap (AppBundle.infoDictionary.objectForKey (appnamekey));</span></span><span style="color: #008080;"><span style="color: #008080;">108</span></span>result:= utf8tostring (nsappname.utf8string) +#<span style="color: #800080;"><span style="color: #800080;"></span> -</span>#<span style="color: #800080;"><span style="color: #800080;">Ten</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;">109</span></span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span><span style="color: #000000;"><span style="color: #000000;">;</span></span><span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #008000;"><span style="color: #008000;">{</span></span><span style="color: #008000;"><span style="color: #008000;">$ENDIF</span></span><span style="color: #008000;"><span style="color: #008000;">}</span></span><span style="color: #008080;"><span style="color: #008080;">111</span></span> <span style="color: #008080;"><span style="color: #008080;"></span> the</span> <span style="color: #0000ff;"><span style="color: #0000ff;">End</span></span>.</pre><p><p></p></p><p><p>Android Instance-get Program version number</p></p></span>
