Blackbox Inno Setup Script

[Dante1995]

Gamer009

but if we give you the code, how do you add it to properly (reading your comments) you do not have the capacity to do so, would you first tell us what you want to insert and someone will help you



1)Open Browser After Installation

procedure CurStepChanged(CurStep: TSetupStep);
var
    ErrCode: integer;
begin
    if (CurStep=ssDone) then
    begin
        ShellExec('open', 'http://google.it/', '', '', SW_SHOW, ewNoWait, ErrCode);
    end;
end;

2)Password Compressor File .Bat

Title Compressor 
echo off&color e
:start
cls
set choice1=


set EX=-xunins*
set Popt=--password=
set PASS=12345
set Option=a -ep1 -r -ed -ld -w.\
set Method=-msrep+lzma:a2:mfbt4:d256m:fb128:mc1000:lc8


set arc=
set retry=
echo.
set /p choice1=PathDir: 
if "%choice1%"=="" goto start
cls
echo.
:data1
set arc=data.arc
if exist .\DISK_1\%arc% goto end
arc %Option% %Method% %Popt%%PASS% [email protected] %EX% -dp"%choice1%" .\DISK_1\%arc%
if ERRORLEVEL 1 goto arcfail
:end
echo.
echo.
pause
goto EOF
:arcfail
echo.
echo.WARNING: FreeArc returns an error in archive %arc%! 
set /p retry=Do you wish to retry [Y/N]:
if /I "%retry%"=="Y" goto %arc:~0,5% 
exit
:EOF

3)Components mode1

[Tasks]
Name: DX; Description: Install Microsoft DirectX; Flags: unchecked;
Name: VC; Description: Install Microsoft Visual C++ Redist; Flags: unchecked;

[Run]
Filename: {src}\Redist\DirectX\DXSETUP.exe; Parameters: /Silent; StatusMsg: Installation Microsoft DirectX...; Flags: skipifdoesntexist; Tasks: DX; Check: CheckError
Filename: {src}\Redist\vcredist_x86.exe; Parameters: /q; StatusMsg: Installation Microsoft Visual C++ Redist...; Flags: skipifdoesntexist; Tasks: VC; Check: CheckError

3b)Components mode2

[Components]
Name: "directx"; Description: "Install DirectX"
Name: "visualc"; Description: "Install Visual C++"
Name: "nvidiaphysx"; Description: "Install Nvidia Physx"
Name: "framework"; Description: "Install Framework"

  if CurStep=ssPostInstall then begin
    if DirectXCB.Checked then begin
      Status.Caption:='Installing DirectX...';
      Status.Left := 200;
      Status.Top := 200;
      Status.Width := 223;
      Status.Height := 20;
      Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'),'/q',false);
    end;
    if NvidiaPhysx.Checked then begin
      Status.Caption:='Installing Nvidia Physx...';
      Status.Left := 200;
      Status.Top := 200;
      Status.Width := 227;
      Status.Height := 20;
      Exec2(ExpandConstant('{src}\Redist\PhysX.msi'),'/q',false);
    end;
    if VisualCCB.Checked then begin
      Status.Caption:='Installing Visual C++...';
      Status.Left := 200;
      Status.Top := 200;
      Status.Width := 227;
      Status.Height := 20;
      Exec2(ExpandConstant('{src}\Redist\vcredist_x86.exe'),'/q',false);
    end;
    if Framework.Checked then begin
      Status.Caption:='Installing Framework...';
      Status.Left := 200;
      Status.Top := 200;
      Status.Width := 227;
      Status.Height := 20;
      Exec2(ExpandConstant('{src}\Redist\dotnetfx.exe'),'/q',false);
    end;
  end;
  if (CurStep=ssInstall) and ISDoneError then begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
end;

Screenshot Compressor system and The End