可能有必要先測一下注冊表的這一項是否存在
if RegValueExists(HKLM, 'SOFTWARE\WOW6432Node\Microsoft\VisualStudio\14.0\VC\Runtimes\x64', 'Version')
這些代碼都放在下面這個函數里:
function InitializeSetup(): boolean;
查看注冊表的一項,看版本號是否以14開頭。因為14.0對應2015.
rtn := RegQueryStringValue(HKLM, 'SOFTWARE\WOW6432Node\Microsoft\VisualStudio\14.0\VC\Runtimes\x64', 'Version', CurVer); str := Copy(CurVer,2,2); if str = '14' then begin Result := true; end else begin Result := false; end;
