Delphi Windows APK versiyon öğrenme

[ercan_elo_bil]

merhaba,

Delphi Windows da APK versiyonu öğrenirim?
mağlesef aşağıdaki kod çalışmıyor

var
VerInfoSize, VerValueSize, Dummy: DWORD;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(AppName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(AppName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
V1 := (dwFileVersionMS shr 16) mod $100;
V2 := (dwFileVersionMS and $FFFF) mod $100;
V3 := (dwFileVersionLS shr 16) mod $100;
V4 := (dwFileVersionLS and $FFFF) mod $100;
end;
FreeMem(VerInfo, VerInfoSize);

[ertank]

Merhaba,

APK ile kastınız anladığım kadarıyla EXE/DLL gibi dosyaların "Dosya sürümü" (File version) bilgisi. Eğer doğru anladı isem aşağıdaki şekilde bu bilgiyi okumanız mümkün olabilir:

Kod: Tümünü seç

uses
  Winapi.Windows,   // PVSFixedFileInfo definition
  System.SysUtils;  // TFileName


function FileVersion(const FileName: TFileName; const Prefix: string = 'v'): String;
var
  VerInfoSize: Cardinal;
  VerValueSize: Cardinal;
  Dummy: Cardinal;
  PVerInfo: Pointer;
  PVerValue: PVSFixedFileInfo;
begin
  Result := '';
  VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
  GetMem(PVerInfo, VerInfoSize);
  try
    if GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, PVerInfo) then
      if VerQueryValue(PVerInfo, '\', Pointer(PVerValue), VerValueSize) then
        with PVerValue^ do
          Result := Prefix + Format('%d.%d.%d.%d', [
            HiWord(dwFileVersionMS), //Major
            LoWord(dwFileVersionMS), //Minor
            HiWord(dwFileVersionLS), //Release
            LoWord(dwFileVersionLS)]); //Build
  finally
    FreeMem(PVerInfo, VerInfoSize);
  end;
end;

[ercan_elo_bil]

merhaba,

şöyle serverda Android uygulama(app.apk gibi) var bu dosyanın aynı exe gibi sürüm bilgisi oluyor windows da öğrenemiyorum, yukarıdaki kod işe yaramıyor.
yani windows da android uygulamanın(app.apk gibi) versiyonunu nasıl öğrenirim?

[ertank]

Merhaba,

Sorunuz ve örnek verdiğiniz kod yanlış anlaşılmaya sebebiyet veriyor.

APK dediğiniz özünde ZIP dosyasıdır. İçinden bilgi öğrenmek için öncelikle ilgili dosya(ları) bir yere açmanız gerekir. Aradığınız bilgi AndroidManifest.xml içinde mevcut. Bilgim dahilinde APK içindeki AndroidManifest.xml dosyası metin dosyası olmuyor. Başka bir deyişle basitçe okunabilir değil.

Kendi adıma APK içindeki AndroidManifest.xml dosyasını Window işletim sistemi altında programlama ile okuma adına hiç çalışma yapmadım.