InstallShield 判断IIS是否安装

export prototype BOOL JudgeIIS();
function BOOL JudgeIIS()
 object objIIS_Root;
begin
 set objIIS_Root = CoGetObject("IIS://localhost/W3SVC/1/Root", "");
 if !IsObject(objIIS_Root) then
  return FALSE;
 else 
  return TRUE;
 endif;
end;