#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;
06-04
1472