Programmversion bei der Kompilierung auslesen?

[mjenke]

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

[merlin17]

Ich gehe von Win32 aus....

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

[Brainshock]

Hi mjenke,

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

mfg
Matthias (dein Namensverwandter )

[mjenke]

Hallo, Ihr beiden!

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


Matthias