GetCurrentVersion/de

From Lazarus wiki

Deutsch (de)

Zurück zur Seite Code Beispiele.

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion ermittelt die aktuelle Version des eigenen Programms.

uses
  Windows, SysUtils, ...;

  ...

function funGetCurrentVersion: string;
var
  lwdVerInfoSize: longword;
  lwdVerValueSize: longword;
  lwdDummy: longword;
  ptrVerInfo: Pointer;
  VersionsInformationen: PVSFixedFileInfo;

begin

  lwdVerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), lwdDummy);
  GetMem(ptrVerInfo, lwdVerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, lwdVerInfoSize, ptrVerInfo);
  VerQueryValue(ptrVerInfo, '\', Pointer(VersionsInformationen), lwdVerValueSize);

  with VersionsInformationen^ 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(ptrVerInfo, lwdVerInfoSize);

end;

...



--Olaf 05:27, 2 May 2013 (UTC)