InnoSetup判断是否需要安装vc_redist.x64

ontheway-xx

于 2024-06-11 18:07:16 发布

阅读量79

点赞数 2

分类专栏： InnoSetup 文章标签：开发语言

本文链接：https://blog.csdn.net/ZaiLuShang2121/article/details/139605593

版权

InnoSetup 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

#define VcRedistVersion	GetFileVersion('vc_redist.x64.exe')

function GetVcRedistVersionKey(): String;
var vcRedistVersion: String;//vc_redist.x64版本
var p: Integer;
var tmp : String;
var mainVersion : String;
begin
    //获取exe版本号
    vcRedistVersion := '{#VcRedistVersion}';
    p := Pos('.', vcRedistVersion);
    mainVersion := copy(vcRedistVersion, 1, p);
    tmp := copy(vcRedistVersion, p+1, length(vcRedistVersion));
    p := Pos('.', tmp);
    mainVersion := mainVersion + copy(tmp, 1, p-1);

    //拼接注册表KEY值
    Result := 'SOFTWARE\Classes\Installer\Dependencies\VC,redist.x64,amd64,';
    Result := Result + mainVersion;
    Result := Result + ',bundle';
end;

function NeedInstallVcRedist: Boolean;
begin
	if RegValueExists(HKLM, GetVcRedistVersionKey(), 'Version') = false then
	begin
		Result := True;
        Exit;
	end;

	Result := False;
end;