View Single Post
  #3  
Old 06-10-2014, 09:01
Dante1995 Dante1995 is offline
Banned
 
Join Date: Feb 2014
Location: Black Hole
Posts: 297
Thanks: 116
Thanked 481 Times in 162 Posts
Dante1995 is on a distinguished road
Quote:
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
Code:

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
Code:
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
Code:
[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
Code:
[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

Last edited by Dante1995; 28-12-2014 at 20:54.
Reply With Quote
The Following User Says Thank You to Dante1995 For This Useful Post:
Gehrman (17-01-2023)