GetActiveOleObject - 例外：操作できません

私はInno Setupに問題がありますが、それは私に例外Operation Unavailableを与えます。GetActiveOleObject - 例外：操作できません

3210 Inno Setupで提供されているコード例を試してみましたが、それでも私には同じエラーが表示されています。 GetActiveOleObjectを動作させるにはどうすればよいですか？何か不足していますか？

これはInno Setup例のコードです：

{--- Word ---} 

procedure WordButtonOnClick(Sender: TObject); 
var 
    Word: Variant; 
begin 
    if MsgBox('Setup will now check whether Microsoft Word is running. Do you want to continue?', mbInformation, mb_YesNo) = idNo then 
    Exit; 

    { Try to get an active Word COM Automation object } 

    try 
    //This is where the error occurs. 
    Word := GetActiveOleObject('Word.Application'); 
    except 
    end; 

    if VarIsEmpty(Word) then 
    MsgBox('Microsoft Word is not running.', mbInformation, mb_Ok) 
    else 
    MsgBox('Microsoft Word is running.', mbInformation, mb_Ok) 
end;

おかげで早めに！以下のニュースグループへの投稿によると

出典

2012-01-26 Jon49