JEDI 시각적 구성 요소 라이브러리 : 응용 프로그램 버전 정보를 얻는 데 사용할 내용

Question

LMD 구성 요소 (LMD Innovative)에는 응용 프로그램 (버전 정보, 빌드 번호, 저작권 ...)에 대한 모든 관련 데이터를 가져올 수있는 LMDVersionInfo 구성 요소가 있습니다.

JVCL (JEDI Visual Component Library)과 비슷한 기능이 있습니까?

Answer 1

LMD는 ....

예, JediVCL이 비슷한 일을 너무 가지고 LMDVersionInfo 구성 요소

있습니다.

그리고 이름은 - 당신이 그것을 추측 할 수 있습니까? - 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;