J'ai créer une application et je voudrais faire son isntallation, pour se faire j'utilise Inno Setup.

Mon soucis est que pour fonctionner mon application a besoin de la présence du gestionnaire de services Internet (IIS) et d'interbase, pour savoir cela j'ai créer un bout de code :

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean; 
var 
  Next, NextOk, back: Boolean; 
begin 
  if (not BackClicked and (CurPage = wpWelcome)) then 
begin 
  ScriptDlgPageOpen(); 
      ScriptDlgPageSetCaption('Vérification de l''installation du Gestionnaire de Services Internet (IIS)'); 
      ScriptDlgPageSetSubCaption1('L''appliaction recherche actuellement le Gestionnaire de Services Internet (IIS) ...'); 
      back:=false; 
      repeat 
        nextok:=true; 
    next:=fileexists('C:\WINNT\system32\inetsrv\metabase.bin'); 
    if next=false then begin 
      back:=(outputmsg('Veuillez installer le Gestionnaire de Services Internet sur l''ordinateur depuis votre CD-ROM Windows',true)=false); 
  //OpenFile (C:\WINNT\System32\appwiz.cpl); Ecran ajout Suppression programme 
  //OpenFile (C:\WINNT\System32\ibmgr.cpl); Ecran Ib Manager 
  nextok:=false; 
    end; 
  until nextok or terminated() or back; 
    if not BackClicked then 
      Result := Next 
    else 
     Result := not Next; 
     ScriptDlgPageClose(not Result); 
end else result := true; 
  if (not BackClicked and (CurPage = wpWelcome)) then 
begin 
  ScriptDlgPageOpen(); 
      ScriptDlgPageSetCaption('Vérification de l''installation du moteur de base de données'); 
      ScriptDlgPageSetSubCaption1('L''appliaction recherche la présence du moteur de base de données ...'); 
      back:=false; 
  repeat 
        nextok:=true; 
    next:=fileexists('C:\WINNT\System32\ibmgr.cpl'); 
    if next=false then begin 
      back:=(outputmsg('Veuillez installer le moteur de base de données interbase sur votre ordinateur',true)=false); 
  nextok:=false; 
    end; 
  until nextok or terminated() or back; 
    if not BackClicked then 
      Result := Next 
    else 
     Result := not Next; 
     ScriptDlgPageClose(not Result); 
end else result := true; 
end; 

function NextButtonClick(CurPage: Integer): Boolean; 
begin 
  Result := ScriptDlgPages(CurPage, False); 
end; 

function BackButtonClick(CurPage: Integer): Boolean; 
begin 
  Result := ScriptDlgPages(CurPage, True); 
end;