• 0
Авторизация  
Евгений Корепов

Как узнать версию приложения под Android?

Вопросы

Как узнать версию приложения под Android?
 
Под Windows все просто, GetVersion(ParamStr(0)), а под Android не могу найти :(
 
function TFormMain.GetVersion(filename:String): string;
Var VerInfoSize: DWORD;
    VerInfo: Pointer;
    VerValueSize: DWORD;
    VerValue: PVSFixedFileInfo;
    Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(filename), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(filename), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
   begin
     Result := IntToStr(dwFileVersionMS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
     Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
   end;
  FreeMem(VerInfo, VerInfoSize);
end;

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

1 ответ на этот вопрос

  • 0

Например, вот так:

{for Delphi XE6/XE7: Add to "uses" module "Androidapi.Helpers"}
uses
  Androidapi.JNI.JavaTypes, FMX.Helpers.Android,
  Androidapi.JNI.GraphicsContentViewText;


var
  PackageManager: JPackageManager;
  VersionPackage,PackageName: JString;
begin
  PackageManager := SharedActivity.getPackageManager;
  PackageName := SharedActivityContext.getPackageName;
   
  VersionPackage := PackageManager.getPackageInfo(PackageName, 0).versionName;
  Label1.Text := JStringToString(VersionPackage);

p.s. Для подобных вопросов, у меня в блоге есть страничка "JNI Code Snippet"

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу