Eine echte Versionsnummer ist weitaus zuverlässiger …
Wie mach ich das dann am besten? Über den Dateinamen
vielleicht, aus dem die Versionsnummer ersichtlich ist?
Hallo J.Schloer,
Delphi, nehme ich an?
Projektoptionen / Versionsnummer. Hier kannst du alles eintragen.
Auslesen der Versionsnummer aus deinem Programm?
Z.B. so:
function GetBuildInfo(var AFilename: String; var V1, V2, V3, V4 : Word) : Boolean;
var
VerInfoSize: DWord;
VerValueSize: DWord;
Dummy: DWord;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
begin
VerInfoSize:=GetFileVersionInfoSize(PChar(AFilename),Dummy);
Result:=False;
if VerInfoSize0 then
begin
GetMem(VerInfo,VerInfoSize);
try
if GetFileVersionInfo(PChar(AFilename),0,VerInfoSize,VerInfo) then
begin
if VerQueryValue(VerInfo,'\',Pointer(VerValue),VerValueSize) then
begin
with VerValue^ do
begin
V1:=dwFileVersionMS shr 16;
V2:=dwFileVersionMS and $FFFF;
V3:=dwFileVersionLS shr 16;
V4:=dwFileVersionLS and $FFFF;
end;
Result:=True;
end;
end;
finally
FreeMem(VerInfo,VerInfoSize);
end;
end;
end;
In V1, V2, V3, V4 findest du anschließend die 4 Teile der Versionsnummer.
Um die aktuelle Version zu ermitteln, leg doch einfach in Dokument auf deinen Server. Das kannst du auslesen und mit der Version des Programms vergleichen.
Manfred
