[XE5] Versionsinformation vs Dateiversion

[Kralle]

Moin,

ich habe jetzt eine Lösung im Forum gefunden die funktioniert:

Delphi-Quellcode:

function GetFileVersionsString_2(const p_sFilepath : string) : string;
// Quelle: http://www.delphipraxis.net/505-versionsinfo-automatisch-ins-programm-uebernehmen.html
// Author: Luckie
// Veröffentlicht:  5. Aug 2002, 20:52
//
const // Das Ergebnis soll ja nett formatiert sein :)
  sFixVerFormat = 'Fileversion: %d.%d.%d.%d / Productversion: %d.%d.%d.%d';

var
  dwVersionSize  : DWord;           // Buffer für die Grösse der Versionsinfo der abgefragten Datei
  dwDummy        : DWord;           // Dummy, Wert wird nicht benötigt
  pVerBuf        : Pointer;         // Buffer für die Versionsdaten
  pFixBuf        : PVSFixedFileInfo; // Buffer für die Versionsinfo fester Länge
  sReqdInfo      : string;          // Hier kommt rein, welcher Teil der Versionsinfo abgefragt werden soll

begin
  // Annahme: Die Datei hat keine Versionsinfo
  Result       := Format(sFixVerFormat,[0,0,0,0,0,0,0,0]);
  dwDummy      := 0;  // Dummy initialisieren
  sReqdInfo    := '\'; // Es soll die Versionsinfo fester Länge abgefragt werden
  // Mal sehen, wieviel Platz die Versionsinfo der Datei braucht
  dwVersionSize := GetFileVersionInfoSize(PChar(p_sFilepath),dwDummy);
  if dwVersionSize > 0 then
  begin // Wenn > 0, dann Versionsinfo vorhanden
    try
      pVerBuf := AllocMem(dwVersionSize); // Buffer initialisieren
      // Gesamte Versionsinformationen auslesen
      if GetFileVersionInfo(PChar(p_sFilepath),0,dwVersionSize,pVerBuf) then
      begin // Werte für Versionsinfo fester Länge extrahieren
        if VerQueryValue(pVerBuf,PChar(sReqdInfo),Pointer(pFixBuf),dwDummy) then
        begin
          // und als Ergebnis ausgeben
          Result := Format(sFixVerFormat,[
            (pFixBuf^.dwFileVersionMS and $FFFF0000) shr 16, // 1. Stelle HiWord, deshalb nach unten schieben
            pFixBuf^.dwFileVersionMS and $0000FFFF,
            (pFixBuf^.dwFileVersionLS and $FFFF0000) shr 16,
            pFixBuf^.dwFileVersionLS and $0000FFFF,

            (pFixBuf^.dwProductVersionMS and $FFFF0000) shr 16,
            pFixBuf^.dwProductVersionMS and $0000FFFF,
            (pFixBuf^.dwProductVersionLS and $FFFF0000) shr 16,
            pFixBuf^.dwProductVersionLS and $0000FFFF
           ]);
        end;
      end;
    finally // Resourcen wieder freigeben
      FreeMem(pVerBuf,dwVersionSize);
    end;
  end;
end;

Den vorderen Teil des "Result" mittels "copy" abgeschnitten und ich habe was ich brauche.

Code:

Oder man ändert einfach den Wert "Build number options" auf "Do not change build number" oder auf "Auto increment build number". Dann habe ich bei der Dateiversion die gleichen Zahlen drin wie bei der Produktversion.

Gut zu wissen.

Gruß Heiko

[RWarnecke]

Zitat von Kralle:

Den vorderen Teil des "Result" mittels "copy" abgeschnitten und ich habe was ich brauche.

Warum so umständlich ? Ändere doch einfach nur die Konstante sFixVerFormat und den entsprechenden Format-Befehl und schon haste das ganze Ding sauberer.

[Sir Rufo]

Zitat von RWarnecke:

Zitat von Kralle:

Den vorderen Teil des "Result" mittels "copy" abgeschnitten und ich habe was ich brauche.

Warum so umständlich ? Ändere doch einfach nur die Konstante sFixVerFormat und den entsprechenden Format-Befehl und schon haste das ganze Ding sauberer.

Dazu müsste man aber wohl lesen können um den Unterschied zwischen dwFileVersionMS und dwProductVersionMS zu erkennen.
Rudimentäre Englisch-Kenntnisse sind auch von Vorteil.

[RWarnecke]

Zitat von Sir Rufo:

Dazu müsste man aber wohl lesen können um den Unterschied zwischen dwFileVersionMS und dwProductVersionMS zu erkennen.
Rudimentäre Englisch-Kenntnisse sind auch von Vorteil.

[Kralle]

Hallo Sir Rufo,

Zitat von Sir Rufo:

Dazu müsste man aber wohl lesen können um den Unterschied zwischen dwFileVersionMS und dwProductVersionMS zu erkennen.

Bedeutet aber, ich verändere eine Funktion die fehlerfrei läuft - muß doch nicht sein.
Dann gehe ich lieber bei und frage den ursprünglichen Author ob ich seine Funktion etc. unverändert (+ Quellennachweis) nutzen darf und formatiere einmal das "Result".

Zitat von Sir Rufo:

Rudimentäre Englisch-Kenntnisse sind auch von Vorteil.

tja, und da wird es dann kompliziert. Einfache Texte übersetzen ja, teilweise aus dem Kontext heraus verstehen, aber für mehr reicht mein mieses Schulenglisch (Abschluß 1986) nicht mehr.

Gruß Heiko

[Sir Rufo]

Zitat von Kralle:

Hallo Sir Rufo,

Zitat von Sir Rufo:

Dazu müsste man aber wohl lesen können um den Unterschied zwischen dwFileVersionMS und dwProductVersionMS zu erkennen.

Bedeutet aber, ich verändere eine Funktion die fehlerfrei läuft - muß doch nicht sein.
Dann gehe ich lieber bei und frage den ursprünglichen Author ob ich seine Funktion etc. unverändert (+ Quellennachweis) nutzen darf und formatiere einmal das "Result".

Zitat von Sir Rufo:

Rudimentäre Englisch-Kenntnisse sind auch von Vorteil.

tja, und da wird es dann kompliziert. Einfache Texte übersetzen ja, teilweise aus dem Kontext heraus verstehen, aber für mehr reicht mein mieses Schulenglisch (Abschluß 1986) nicht mehr.

Gruß Heiko

Aber das File = Datei und Product = Produkt ist, dass weiß ja sogar meine Mutter und die hat noch nie Englisch gehabt

[Kralle]

Hallo Sir Rufo,

Zitat von Sir Rufo:

Aber das File = Datei und Product = Produkt ist, dass weiß ja sogar meine Mutter und die hat noch nie Englisch gehabt

Okay, das bekomme ich auch noch hin, aber manchmal vergisst man halt z.B. in einem deutschen Forum nach den englischen Wörten zu suchen.
Aber, meine miesen Englischkenntnisse werden OT.

Gruß HEiko

[Kralle]

Hallo,

Zitat von RWarnecke:

Zitat von Kralle:

Den vorderen Teil des "Result" mittels "copy" abgeschnitten und ich habe was ich brauche.

Warum so umständlich ? Ändere doch einfach nur die Konstante sFixVerFormat und den entsprechenden Format-Befehl und schon haste das ganze Ding sauberer.

Ich habe mich jetzt dazu entschieden beide Versionsinformationen im Programm anzuzeigen.

Gruß Heiko