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 |
Re: Programmversion bei der Kompilierung auslesen?
Ich gehe von Win32 aus....
Delphi-Quellcode:
V1.V2.V3.V4 ist die Version aus der PE-Exe;
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); :-) thomas |
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:) |
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