JEDIビジュアルコンポーネントライブラリ：アプリケーションバージョン情報を取得するために使用するもの

Question

LMDコンポーネント（LMD Innovative）には、アプリケーションに関するすべての関連データ（バージョン情報、ビルド番号、著作権...）を取得するためのLMDVersionInfoコンポーネントがあります。

JVCL（JEDIビジュアルコンポーネントライブラリ）には何か類似していますか？

Answer 1

LMDは.... LMDVersionInfoコンポーネント

はい、JediVCLはあまりにも同じようなことがありました。

名前は - それを推測することはできますか？ - Jv-Version-Info。

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;