installshield 检测 IIS 和 IE

prototype CheckIIS();
//
//
//检测是否安装了iis
//
//
function CheckIIS()
NUMBER nvType, nvSize;
STRING svvalue;
begin
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if (RegDBKeyExist ("System\\CurrentControlSet\\Services\\IISADMIN" ) = 1) then
return (1);
else
return (0);
endif;
end;

//prototype Checkie(); //检测ie版本
//
//
//检测ie的版本
//
/*
function Checkie()
NUMBER nvType, nvSize;
STRING svvalue,szKey,szName;
begin
szKey="SOFTWARE\\Microsoft\\Internet Explorer";
szName="version";
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
RegDBGetKeyValueEx(szKey, szName, nvType, svvalue, nvSize );
if(svvalue="6.0.2600.0000")then
return (0);
else
return (1);
endif;
end;
*/