INNOセットアップを使用してIISの既存のインストールを検出する方法？

Question

ユーザーがすでにIISのバージョンをインストールしているかどうかを判断する方法を探しています。彼がいなければ、私はIISインストールスクリプトを実行します。

私は私が例外処理句を知っている：

try 
    IIS := CreateOleObject('IISNamespace'); 
    except 
    RaiseException(ExceptionType, ‘IIS not installed. Setup will now install IIS on your machine. ’#13#13'(Error ‘’’+ExceptionParam+’’’ occured)’); 
    end; 

が、何らかの理由で、私のコンパイラのバージョンは、RaiseExceptionを認識していないようです。私も含めて試しました

uses 
SysUtils; 

しかし、コンパイラはSysUtilsも認識しません。 IISが既にインストールされているかどうかを調べるために見ることができるレジストリキーのようなものがありますか？
ご協力いただければ幸いです。

Answer 1

Rishi RaiseException関数を2つのパラメータで使用していますが、この関数は2つのパラメータのみをサポートしています。この

var 
IIS : variant; 
begin  
    try 
    IIS := CreateOleObject('IISNamespace'); 
    except 
    RaiseException('IIS not installed. Setup will now install IIS on your machine'); 
    end; 
end; 

Answer 2

のように、この機能を使用して

procedure RaiseException(const Msg: String); 

試みは、特定のファイルがこのディレクトリの下に存在するかどうかをチェックする必要がありますので、常にの％windir％\ system32 \ inetsrvににインストールIIS。たとえば、IIS 6/7の場合、このフォルダにw3wp.exeが存在する必要があります。

Answer 3

試してみてください。

[CustomMessages] 
iis_title=Internet Information Services (IIS) 


[Code] 
function iis(): boolean; 
begin 
    if not RegKeyExists(HKLM, 'SYSTEM\CurrentControlSet\Services\W3SVC\Security') then 
     MsgBox(FmtMessage(CustomMessage('depinstall_missing'), [CustomMessage('iis_title')]), mbError, MB_OK) 
    else 
     Result := true; 
end 

。