Guten Morgen!

Weiss jemand, wie man die Programmversion, die man in den Projektoptionen (Versionsinfo) einstellt, auslesen kann?

Ich gebe diese Programmversion an einigen Stellen in meinem Programm aus und habe mir eine Variable gesetzt, damit ich sie nur an einer Stelle ändern muss. Lieber wäre es mir natürlich, wenn ich die Programmversion angebe, die in den Projektoptionen eingestellt ist.


Matthias

Ich gehe von Win32 aus....

zusammenfalten · markieren

Delphi-Quellcode:

var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
  V1, V2, V3, V4: Word;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    V1 := dwFileVersionMS shr 16;
    V2 := dwFileVersionMS and $FFFF;
    V3 := dwFileVersionLS shr 16;
    V4 := dwFileVersionLS and $FFFF;
  end;
  FreeMem(VerInfo, VerInfoSize);

V1.V2.V3.V4 ist die Version aus der PE-Exe;

thomas

Hi mjenke,

schau mal hier bei swissdelphicenter:
...Versionsinformationen aus einer Datei auslesen?
oder
..die Dateiversion auslesen?

mfg
Matthias (dein Namensverwandter )

Hallo, Ihr beiden!

Vielen Dank für die schnelle Antwort! Hat super funktioniert!


Matthias