Versionsinfo auslesen?

[soulies]

versuchs mal damit :

Delphi-Quellcode:

 function GetFileInfo( var aInternalName, aFileVersion, aCompanyname: String; FileName: AnsiString): Boolean;
 ...
    VerQueryValue(
        VersionInfo, PChar(VersionValue + 'Companyname'), InfoPointer,
        VersionInfoSize
      );
      aCompanyname := AnsiString(PChar(InfoPointer));
  ...

und in deinem aufruf dann

Delphi-Quellcode:

 procedure ...
 var
    i_name, version, company : string ;
 begin
    GetFileInfo(i_name,version,company,[Pfad]);
    ...
 end;

cya