可能有必要先测一下注册表的这一项是否存在
if RegValueExists(HKLM, 'SOFTWAREWOW6432NodeMicrosoftVisualStudio14.0VCRuntimesx64', 'Version')
这些代码都放在下面这个函数里:
function InitializeSetup(): boolean;
查看注册表的一项,看版本号是否以14开头。因为14.0对应2015.
rtn := RegQueryStringValue(HKLM, 'SOFTWAREWOW6432NodeMicrosoftVisualStudio14.0VCRuntimesx64', 'Version', CurVer); str := Copy(CurVer,2,2); if str = '14' then begin Result := true; end else begin Result := false; end;