Version zur Laufzeit abfragen.

[marabu]

Noch ein Weg - speziell, wenn keine Release und Build Nummern ausgegeben werden:

Delphi-Quellcode:

uses
  SysUtils;
var
  Version: Cardinal;
  sVersion: string;
begin
  Version := GetFileVersion(ParamStr(0));
  sVersion := Format('Version %d.%d', [LongRec(Version).Hi, LongRec(Version).Lo]));
end;

Grüße vom marabu