LMD组件(LMD Innovative)具有LMDVersionInfo组件,您可以通过该组件获取有关您的应用程序的所有相关数据(版本信息,版本号,版权......)。
JVCL(JEDI Visual Component Library)有类似的东西吗?
答案 0 :(得分:0)
或只是使用:
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;
答案 1 :(得分:0)
LMD ....有LMDVersionInfo组件
是的,JediVCL也有类似的事情。
这个名字是 - 你能设法猜到吗? - Jv-Version-Info。
https://github.com/project-jedi/jvcl/blob/master/jvcl/run/JvVersionInfo.pas