Buildnummer meines programmes ausgeben

[easteregg]

Unter project -> optionen ist es mir ja möglich die version meines programmes einzustellen und zusätzlich zb die buildnummer automatisch erhöhen zu lassen.

kann ich diese nummer direkt in meinem delphi abfragen zb über sowas wie "project.build" (das ist nen ersponnenes ding...)
oder geht das nur auf umständlichen wege?

[SirThornberry]

wie du die Versionsnummer eines Programmes ausliest findest du hier:
http://www.dsdt.info/tipps/?id=361
allerdings weiß ich nicht ob da die buildnummer mit dabei war.

letzendlich baut es alles auf der Funktion GetFileVersionInfo auf (mit Vorarbeit von GetFileVersionInfoSize).

[Luckie]

Delphi-Quellcode:

function GetVersion: string;
var
  VerInfoSize       : DWORD;
  VerInfo           : Pointer;
  VerValueSize      : DWORD;
  VerValue          : PVSFixedFileInfo;
  Dummy             : DWORD;
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
    Result := Format('%d.%d.%d.%d', [dwFileVersionMS shr 16,
      dwFileVersionMS and $FFFF, dwFileVersionLS shr 16, dwFileVersionLS and $FFFF]);
  FreeMem(VerInfo, VerInfoSize);
end;

Sollte aber auch schon mehrfach hier gepostet worden sein.