Versionsinformation - JclFileUtils

[baumina]

Versuchs einfach mal so, wenn dir das auch nichts liefert, stimmt echt was nicht :

Delphi-Quellcode:

{----------------------------------------------------------------------------}
// Funktion liefert die Versionsnummer, die in den Applications-Optionen
// hinterlegt ist
{----------------------------------------------------------------------------}
function ApplicationVersion: String;
var
  VerInfoSize, Dummy: DWord;
  VerInfo: Pointer;
  VerValueSize: DWord;
  VerValue: PVSFixedFileInfo;

begin
  VerInfoSize:=GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  If VerInfoSize<>0 then
  begin
    GetMem(VerInfo, VerInfoSize);
    GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do
    begin
      Result:=IntTostr(dwFileVersionMS shr 16);
      Result:=Result+'.'+IntTostr(dwFileVersionMS and $FFFF);
      Result:=Result+'.'+IntTostr(dwFileVersionLS shr 16);
//      Result:=Result+'.'+IntTostr(dwFileVersionLS and $FFFF);
    end;
    FreeMem(VerInfo, VerInfoSize);
  end
  else
    Result:='Version Inconnue';
end;