Buildnummer meines programmes ausgeben

[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.