Dateiversionsinformationen auslesen

[sakura]

Ich habs gerade gebraucht und alten Code von mir hier gefunden. Jetzt kommt der zur Abwechslung auch einmal in die Code Library

Delphi-Quellcode:

function GetFileInfo( 
  var aInternalName, aFileVersion: String; FileName: AnsiString 
): Boolean; 
var 
  VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD; 
  VersionInfo, Translation, InfoPointer: Pointer; 
  VersionValue: AnsiString; 
begin 
  Result := False; 
  VerInfoSize := GetFileVersionInfoSize(PChar(FileName), GetInfoSizeJunk); 
  if VerInfoSize > 0 then 
  begin 
    GetMem(VersionInfo, VerInfoSize); 
    try 
      GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VersionInfo); 
      VerQueryValue( 
        VersionInfo, '\\VarFileInfo\\Translation', Translation, VerInfoSize 
      ); 
      VersionValue := 
        '\\StringFileInfo\\' + IntToHex(LoWord(LongInt(Translation^)), 4) + 
        IntToHex(HiWord(LongInt(Translation^)), 4) + '\\'; 
      VersionInfoSize := 0; 

      VerQueryValue( 
        VersionInfo, PChar(VersionValue + 'InternalName'), InfoPointer, 
        VersionInfoSize 
      ); 
      aInternalName := AnsiString(PChar(InfoPointer)); 

      VerQueryValue( 
        VersionInfo, PChar(VersionValue + 'FileVersion'), InfoPointer, 
        VersionInfoSize 
      ); 
      aFileVersion := AnsiString(PChar(InfoPointer)); 

    finally 
      FreeMem(VersionInfo); 
    end; 
    aInternalName := Trim(aInternalName); 
    aFileVersion := Trim(aFileVersion); 
    Result := (aInternalName <> '') and (aFileVersion <> ''); 
  end; 
end;

[sakura]

Nachtrag, wer andere Werte auslesen will, kann die folgenden Codezeilen entsprechend anpassen.

Delphi-Quellcode:

      VerQueryValue( 
        VersionInfo, PChar(VersionValue + 'InternalName'), InfoPointer, 
        VersionInfoSize 
      ); 
      aInternalName := AnsiString(PChar(InfoPointer));

......

[CalganX]

Ein Nachtrag von himitsu:

So, hier sind noch einige Werte, welche bestimmt interessant sein könnten.

Links ist der Wert, welcher verwendet werden muß und Rechts gibt's den Namen, welchen man im deutschen Delphi findet (natürlich in den Projektoptionen unter Versionsinfo).

Code:

CompanyName        Firmenname
FileDescription    Beschreibung
FileVersion        Dateiversion
InternalName       Interner Name
LegalCopyright     Copyright
LegalTrademarks    Warenzeichen
OriginalFilename   Originaldateiname
ProductName        Produktname
ProductVersion     Produktversion
Comments           Kommentare

Und zum Schluß sei noch erwähnt, dass man sich die Werte auch als WideString besorgen kann.
In diesem Fall muß man halt nur statt String/AnsiString das WideString verwenden.
Für Char/AnsiChar wird ebenfalls WideChar eingesetzt und natürlich braucht man dann noch die passenden UnicodeVersionen:

Code:

// die AnsiVarianten
GetFileVersionInfoSize
GetFileVersionInfo
VerQueryValue

GetFileVersionInfoSize[b]A[/b]
GetFileVersionInfo[b]A[/b]
VerQueryValue[b]A[/b]

// die WideVarianten
GetFileVersionInfoSize[b]W[/b]
GetFileVersionInfo[b]W[/b]
VerQueryValue[b]W[/b]

Sakura's Beispiel wird dann also zu:

Delphi-Quellcode:

Function GetFileInfo(Var aInternalName, aFileVersion: WideString; FileName: WideString): Boolean;
  Var VersionInfoSize, VerInfoSize, GetInfoSizeJunk: LongWord;
    VersionInfo, Translation, InfoPointer: Pointer;
    VersionValue: WideString;

  Begin
    Result := False;
    VerInfoSize := GetFileVersionInfoSize(PChar(FileName), GetInfoSizeJunk);
    If VerInfoSize > 0 Then Begin
      GetMem(VersionInfo, VerInfoSize);
      Try
        GetFileVersionInfo(PWideChar(FileName), 0, VerInfoSize, VersionInfo);

        VerQueryValue(VersionInfo, '\\VarFileInfo\\Translation', Translation, VerInfoSize);
        VersionValue := '\\StringFileInfo\\' + IntToHex((PLongInt(Translation)^ shl 16) 
          or (PLongInt(Translation)^ shr 16), 8) + '\\';
        VersionInfoSize := 0;

        VerQueryValue(VersionInfo, PWideChar(VersionValue + 'InternalName'), InfoPointer, VersionInfoSize);
        aInternalName := Trim(PWideChar(InfoPointer));

        VerQueryValue(VersionInfo, PWideChar(VersionValue + 'FileVersion'), InfoPointer, VersionInfoSize);
        aFileVersion := Trim(PWideChar(InfoPointer));

      Finally
        FreeMem(VersionInfo);
      End;
      Result := (aInternalName <> '') and (aFileVersion <> '');
    End;
  End;

Wenn allerdings jemand zwar die Werte als WideString erhalten, aber dennoch den Dateinamen per Ansi übergeben will, der wird vermutlich zufrieden sein, wenn er/sie zwei kleine Zeilen durch folgende ersetzt.

Delphi-Quellcode:

Function GetFileInfo(Var aInternalName, aFileVersion: WideString; FileName: AnsiString): Boolean;
GetFileVersionInfo(PAnsiChar(FileName), 0, VerInfoSize, VersionInfo);