Dateiversionsinformationen auslesen

[himitsu]

Das ist mal wieder ein winziger Nachtrag ... diesesmal für 'nen netten Beitrag vom Sakura:
Code-Library -> Library: Dateien / Laufwerke -> Dateiversionsinformationen auslesen




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);

[edit=MrSpock]Code von Olli eingesetzt. Mfg, MrSpock[/edit]
[edit=Chakotay1308]Befindet sich nun hier in der Code-Library. Mfg, Chakotay1308[/edit]