取得 Project 版本号 for Android

發文回覆瀏覽次數：889

推到 Plurk!

推到 Facebook!

Main Chen
高階會員

發表：29
回覆：135
積分：127
註冊：2002-10-07

發送簡訊給我

發表時間：2014-01-06 17:19:16

IP:112.104.xxx.xxx 訂閱

轉貼：

procedure TForm1.FormCreate(Sender: TObject);

{$IFDEF ANDROID}

var jpi: JPackageInfo;

packageName: JString;

begin

Memo1.BeginUpdate;

Memo1.Lines.Add('applicationLabel : ' GetApplicationTitle);

packageName := SharedActivityContext.getPackageName;

Memo1.Lines.Add('packageName : ' JStringToString(packageName));

jpi := SharedActivityContext.getPackageManager.getPackageInfo(packageName, 0);

Memo1.Lines.Add('versionName : ' JStringToString(jpi.versionName));

Memo1.EndUpdate;

end;

{$ELSE}

begin

Memo1.Lines.Add('for Android only');

end;

{$ENDIF}

系統時間：2024-04-20 4:48:42

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！