Moin Moin.
Ich habe für mein Projekt n der
IDE die Versionsnummer für automatische Übernahme eingestellt. Die Build Nr soll automatisch erhöht werden. Start ist mit der Versionsnummer aus den 4 Elementen : 1.0.0.0
Okay, das Programm complieren. In den Projektoptionen steht jetzt 1.0.0.
1 Sehr hübsch.
Im Explorer auf die Datei geklickt, Eigenschaften>Details ergibt als Versionsnummer 1.0.0.
0
Auf der Form des Programms wird die Versionsnummer mittels folgendem Code angezeigt: (Woher der Code jetzt ist weiß ich nicht mehr)
Delphi-Quellcode:
function GetAppVersionStr:
string;
var
Exe:
string;
Size,
Handle: DWORD;
Buffer: TBytes;
FixedPtr: PVSFixedFileInfo;
begin
Exe := ParamStr(0);
Size := GetFileVersionInfoSize(PChar(Exe),
Handle);
if Size = 0
then RaiseLastOSError;
SetLength(Buffer, Size);
if not GetFileVersionInfo(PChar(Exe),
Handle, Size, Buffer)
then
RaiseLastOSError;
if not VerQueryValue(Buffer, '
\', Pointer(FixedPtr), Size)
then
RaiseLastOSError;
Result := Format('
%d.%d.%d.%d',
[LongRec(FixedPtr.dwFileVersionMS).Hi,
//major
LongRec(FixedPtr.dwFileVersionMS).Lo,
//minor
LongRec(FixedPtr.dwFileVersionLS).Hi,
//release
LongRec(FixedPtr.dwFileVersionLS).Lo])
//build
end;
Dort ergibt sich auch 1.0.0.
0.
Nochmal erzeugen. Jetzt haben wir in der
IDE Projektanzeige 1.0.0.
2, ansonsten ausserhalb überall 1.0.0.
1.
Hinkt also die Versionsnummer immer einen Nummer hinterher? Ich letztlich für Updates feststellen welche Nummer am Zielrechner steht.
creehawk