Programm-Version ermitteln

[RavenIV]

hier ein kurzer Quelltext-Auszug, der bei mir funktioniert:

Delphi-Quellcode:

// Versionsinformation aus exe-File auslesen
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
  begin
    result := IntTostr (dwFileVersionMS shr 16);
    result := result + '.' + IntTostr (dwFileVersionMS and $FFFF);
    result := result + '.' + IntTostr (dwFileVersionLS shr 16);
    result := result + '.' + IntTostr (dwFileVersionLS and $FFFF);
  end;
  FreeMem (VerInfo, VerInfoSize);
end;

Verwendung:
LaVersion.Caption := 'Version ' + GetVersion; // Fileversion auslesen aus exe edit: der Quellcode stammt nicht von mir, hab ich hier in DP gefunden.