Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Programmversion bei der Kompilierung auslesen? (https://www.delphipraxis.net/39267-programmversion-bei-der-kompilierung-auslesen.html)

mjenke 31. Jan 2005 09:03


Programmversion bei der Kompilierung auslesen?
 
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.

:P
Matthias

merlin17 31. Jan 2005 09:07

Re: Programmversion bei der Kompilierung auslesen?
 
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 31. Jan 2005 09:12

Re: Programmversion bei der Kompilierung auslesen?
 
Hi mjenke,

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

mfg
Matthias (dein Namensverwandter :lol:)

mjenke 31. Jan 2005 09:34

Re: Programmversion bei der Kompilierung auslesen?
 
Hallo, Ihr beiden!

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

:-D
Matthias


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz