[R.i.m.s.k.y.]

Stealthmax, самому реализовывать

Код:

Function InitializeSetup: Boolean;
var i : integer;
Begin
  for i:=2 to ParamCount do begin
  if ( Pos(LowerCase('/silent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true;
  if ( Pos(LowerCase('/verysilent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true;
  end;
  if isSilent then begin
    MsgBox('Тихая установка не поддерживается', mbInformation, MB_OK);
    Result := False;
    exit;
  end;
end;