Библиотека визуальных компонентов JEDI: что использовать для получения информации о версии приложения

Question

Компоненты LMD (LMD Innovative) имеют компонент LMDVersionInfo, с помощью которого вы можете получить все необходимые данные о вашем приложении (информация о версии, номер сборки, авторские права...).

Имеет ли JVCL (библиотека визуальных компонентов JEDI) нечто подобное?

Answer 1

LMD .... имеет компонент LMDVersionInfo

Да, в JediVCL тоже есть нечто подобное.

И имя - тебе когда-нибудь удастся угадать это? - JV-Версия-Инфо.

https://github.com/project-jedi/jvcl/blob/master/jvcl/run/JvVersionInfo.pas

Answer 2

Или просто используйте:

procedure GetBuildInfo(var V1, V2, V3, V4: Word);
var
   VerInfoSize, VerValueSize, Dummy : DWORD;
   VerInfo : Pointer;
   VerValue : PVSFixedFileInfo;
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
  V1 := dwFileVersionMS shr 16;
  V2 := dwFileVersionMS and $FFFF;
  V3 := dwFileVersionLS shr 16;
  V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
end;


function kfVersionInfo: String;
var
  V1,       // Major Version
  V2,       // Minor Version
  V3,       // Release
  V4: Word; // Build Number
begin
  GetBuildInfo(V1, V2, V3, V4);
  Result := IntToStr(V1) + '.'
            + IntToStr(V2) + '.'
            + IntToStr(V3) + '.'
            + IntToStr(V4);
end;