Lösung: (Ja, ich habs gefunden
)
Delphi-Quellcode:
function TMyApplication.GetProgramVersion(ExeFileName: String) : String;
var
FileVerInfo: TFileVersionInfo;
begin
FileVerInfo := TFileVersionInfo.Create(nil);
try
FileVerInfo.FileName := ExeFileName;
FileVerInfo.ReadFileInfo;
Result := FileVerInfo.VersionStrings.Values['FileVersion'];
finally
FileVerInfo.Free;
end;
end;
In uses muss noch resource, elfreader, versiontypes,versionresource,FileInfo
Gruß und trotzdem danke!
Gefunden auf
Link