Versionsinformation - JclFileUtils

[ATS3788]

Hallo

Erst mal muss das Häkchen Projekt - Optionen - Versionsinformationen - Versionsinformationen in das Projekt
gesetzt werden

Funktioniert soweit echt gut.

Nur habe ich da eine Applikation 6,4MB, die ich nicht überzeugen kann,
ihre Infos preiszugeben.

Was könnte das noch sein oder kann ich das sonst noch überprüfen.

[Sir Rufo]

Im Explorer über das Kontextmenü die Eigenschaften der Exe und dann dazu die Details.
Dort sollten sich diese Informationen finden lassen.

Wenn nicht, dann stimmt da was nicht :)

[ATS3788]

Dumm gelaufen
Werde die JclFileUtils wohl mal tracen müssen
um zu schauen wo es hapert.

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

[DeddyH]

Ich würde wie angesprochen erst einmal nachschauen, was der Explorer darstellt. Sollte das schlüssig aussehen, kann man bauminas Routine versuchen oder das Ganze in eine Klasse gegossen (siehe Anhang).