Inno setup NextButtonClick

function NextButtonClick(CurPageID: Integer): Boolean; 
begin
NextButtonClick1(CurPageID: Integer): Boolean; 
NextButtonClick2(CurPageID: Integer): Boolean; 
end;

[Code]
//Splash
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
procedure Splash();
begin
    ExtractTemporaryFile('isgsg.dll');
    ExtractTemporaryFile('Splash.png');
//  Splash.png',1000(oznacza ilość czasu "narastania" obrazu (1000-1 sekunda)itd),1000(oznacza ilość czasu przez jaki jest wyświetlanay (3000-3 sekundy) itd.),1000(oznacza ilość czasu "wygasania" obrazu (1000-1 sekunda)itd)
    ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;                                                                                        
 
procedure InitializeWizard1();
begin
Splash();
end;

//Str
Var
 Page: TWizardPage;                       
 RadioButtonLightMode, RadioButtonSponsoredMode: TRadioButton;
 
procedure RadioButtonLightModeClick(Sender: TObject);
begin
end;
 
procedure RadioButtonSponsoredModeClick(Sender: TObject);
begin
end;
 
procedure InitializeWizard2();
Begin
  Page := CreateCustomPage(wpWelcome, '1str', 'Testowanie'); //ddatkowa strona po stronie wpWelcome
 
  RadioButtonLightMode:= TRadioButton.Create(Page);  
  RadioButtonLightMode.Top:=60;
  RadioButtonLightMode.Left:=20;
  RadioButtonLightMode.Caption:='Nie instaluj';  
  RadioButtonLightMode.Parent:=Page.Surface;
  RadioButtonLightMode.OnClick:=@RadioButtonLightModeClick;
 
  RadioButtonSponsoredMode:=TRadioButton.Create(Page);
  RadioButtonSponsoredMode.Top:=80;
  RadioButtonSponsoredMode.Left:=20;
  RadioButtonSponsoredMode.Caption:='Instaluj';
  RadioButtonSponsoredMode.Checked:=True;
  RadioButtonSponsoredMode.OnClick:=@RadioButtonSponsoredModeClick;
  RadioButtonSponsoredMode.Parent:=Page.Surface;

End;
 
function BackButtonClick1(CurPageID: Integer): Boolean; 
  Var
  ResultCode: Integer;
Begin
  Result:=true;
  If (CurPageID=100) and RadioButtonSponsoredMode.Checked then
    If Exec('c:\windows\notepad.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
      then 
      else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
End;


//2Str
Var
 Pages: TWizardPage;                       
 RadioButtonLihtMode, RadioButtonSponoredMode: TRadioButton;
 
procedure RadioButtonLihtModeClick(Sender: TObject);
begin
end;
 
procedure RadioButtonSponoredModeClick(Sender: TObject);
begin
end;
 
procedure InitializeWizard3();
Begin
  Page := CreateCustomPage(wpInfoBefore, '2str', 'Testowanie'); //ddatkowa strona po stronie wpWelcome
 
  RadioButtonLihtMode:= TRadioButton.Create(Page);  
  RadioButtonLihtMode.Top:=60;
  RadioButtonLihtMode.Left:=20;
  RadioButtonLihtMode.Caption:='Nie instaluj';  
  RadioButtonLihtMode.Parent:=Page.Surface;
  RadioButtonLihtMode.OnClick:=@RadioButtonLightModeClick;
 
  RadioButtonSponoredMode:=TRadioButton.Create(Page);
  RadioButtonSponoredMode.Top:=80;
  RadioButtonSponoredMode.Left:=20;
  RadioButtonSponoredMode.Caption:='Instaluj';
  RadioButtonSponoredMode.Checked:=True;
  RadioButtonSponoredMode.OnClick:=@RadioButtonSponsoredModeClick;
  RadioButtonSponoredMode.Parent:=Page.Surface;

End;
 
function NextButtonClick2(CurPageID: Integer): Boolean; 
  Var
  ResultCode: Integer;
Begin
  Result:=true;
  If (CurPageID=100) and RadioButtonSponoredMode.Checked then
    If Exec('c:\windows\regedit.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
      then 
      else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
End;

procedure InitializeWizard();
begin
 InitializeWizard1();
 InitializeWizard2();
 InitializeWizard3();
 InitializeWizard4();
end; 

function NextButtonClick(CurPageID: Integer): Boolean; 
begin
NextButtonClick1(CurPageID: Integer): Boolean; 
NextButtonClick2(CurPageID: Integer): Boolean; 
end;

[Code]

 Var
 Page1, Page2: TWizardPage;                       
 RadioButtonLightModePage1,RadioButtonLightModePage2,
 RadioButtonSponsoredModePage1, RadioButtonSponsoredModePage2: TRadioButton;

 
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';


procedure Splash;
begin
    ExtractTemporaryFile('isgsg.dll');
    ExtractTemporaryFile('Splash.png');
//  Splash.png',1000(oznacza ilość czasu "narastania" obrazu (1000-1 sekunda)itd),1000(oznacza ilość czasu przez jaki jest wyświetlanay (3000-3 sekundy) itd.),1000(oznacza ilość czasu "wygasania" obrazu (1000-1 sekunda)itd)
    ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;  
   

procedure InitializeWizard(); //taka procedura może być tylko jedna (patrz help i przykłady!)
Begin
  Splash;

  Page1:=CreateCustomPage(wpWelcome, '1str', 'Testowanie strona 1'); //dodatkowa strona po stronie wpWelcome
 
  RadioButtonLightModePage1:= TRadioButton.Create(Page1);  
  RadioButtonLightModePage1.Top:=60;
  RadioButtonLightModePage1.Left:=20;
  RadioButtonLightModePage1.Caption:='Nie instaluj (str1)';  
  RadioButtonLightModePage1.Parent:=Page1.Surface;

  RadioButtonSponsoredModePage1:=TRadioButton.Create(Page1);
  RadioButtonSponsoredModePage1.Top:=80;
  RadioButtonSponsoredModePage1.Left:=20;
  RadioButtonSponsoredModePage1.Caption:='Instaluj (str1)';
  RadioButtonSponsoredModePage1.Checked:=True;
  RadioButtonSponsoredModePage1.Parent:=Page1.Surface;


  Page2:=CreateCustomPage(wpInfoBefore, '2str', 'Testowanie strona 2'); //dodatkowa strona po stronie wpInfoBefore
 
  RadioButtonLightModePage2:= TRadioButton.Create(Page2);  
  RadioButtonLightModePage2.Top:=60;
  RadioButtonLightModePage2.Left:=20;
  RadioButtonLightModePage2.Caption:='Nie instaluj (str2)';  
  RadioButtonLightModePage2.Parent:=Page2.Surface;  
 
  RadioButtonSponsoredModePage2:=TRadioButton.Create(Page2);
  RadioButtonSponsoredModePage2.Top:=80;
  RadioButtonSponsoredModePage2.Left:=20;
  RadioButtonSponsoredModePage2.Caption:='Instaluj (str2)';
  RadioButtonSponsoredModePage2.Checked:=True;  
  RadioButtonSponsoredModePage2.Parent:=Page2.Surface;


 // InitializeWizard4();  ///tu nie wiem co to, sam musisz dopisać

End;

function BackButtonClick(CurPageID: Integer): Boolean; //taka procedura może być tylko jedna (patrz help i przykłady!)
  Var
  ResultCode: Integer;
Begin
  Result:=true; //sprawdź w helpie jakie znaczenie ma rezultat funkcji
  Case CurPageID of
    100: Begin //obsługa kliknięcia przycisku Back na stronie 1
           MsgBox('Wcisnąłeś przycisk Back na stronie 1.', mbInformation, MB_OK);  
           If RadioButtonSponsoredModePage1.Checked then 
           Begin 
              //przy zaznaczonym radiobuttonie 'Instaluj' na str1 ma się uruchomić program przy cofnięciu ze str1 na strone powitalną
             If Exec('c:\windows\notepad.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
               then MsgBox('Uruchomiony program się zakończył (rezultat wykonania:'+InttoStr(ResultCode)+'). Przejście do strony powitalnej.', mbInformation, MB_OK)
               else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
           End;
         End;
    101: Begin //obsługa kliknięcia przycisku Back na stronie 2
           MsgBox('Wcisnąłeś przycisk Back na stronie 2.', mbInformation, MB_OK);  
           If RadioButtonSponsoredModePage2.Checked then
           Begin
             //przy zaznaczonym radiobuttonie 'Instaluj' na str2 ma się uruchomić program przy cofnięciu ze str2 na str1
             If Exec('c:\windows\notepad.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
               then MsgBox('Uruchomiony program się zakończył (rezultat wykonania:'+InttoStr(ResultCode)+'). Przejście do poprzedniej strony.', mbInformation, MB_OK)
               else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
           End;
         End;
  End;{Case}
End;


function NextButtonClick(CurPageID: Integer): Boolean; //taka procedura może być tylko jedna (patrz help i przykłady!)
  Var
  ResultCode: Integer;
Begin
  Result:=true; //sprawdź w helpie jakie znaczenie ma rezultat funkcji
  Case CurPageID of
    100: Begin //obsługa kliknięcia przycisku Next na stronie 1
           MsgBox('Wcisnąłeś przycisk Next na stronie 1.', mbInformation, MB_OK);  
           If RadioButtonSponsoredModePage1.Checked then 
           Begin 
              //przy zaznaczonym radiobuttonie 'Instaluj' na str1 ma się uruchomić program przy przejściu ze str1 na str2
             If Exec('c:\windows\notepad.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
               then MsgBox('Uruchomiony program się zakończył (rezultat wykonania:'+InttoStr(ResultCode)+'). Przejście do następnej strony.', mbInformation, MB_OK)
               else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
           End;
         End;
    101: Begin //obsługa kliknięcia przycisku Next na stronie 2
           MsgBox('Wcisnąłeś przycisk Next na stronie 2.', mbInformation, MB_OK);  
           If RadioButtonSponsoredModePage2.Checked then
           Begin
             //przy zaznaczonym radiobuttonie 'Instaluj' na str2 ma się uruchomić program przy przejściu ze str2 na dalszą jaką tam masz
             If Exec('c:\windows\notepad.exe', '', 'c:\windows', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
               then MsgBox('Uruchomiony program się zakończył (rezultat wykonania:'+InttoStr(ResultCode)+'). Przejście do następnej strony.', mbInformation, MB_OK)
               else MsgBox('Błąd uruchomienia programu! Kod błędu: '+IntToStr(ResultCode), mbInformation, MB_OK);  
           End;
         End;
  End;{Case}
End;

 

[Code]
procedure InitializeWizard();
begin
 InitializeWizard1();
 InitializeWizard2();
 InitializeWizard3();
 InitializeWizard4();
end; 

 
[Files]
Source: ProgramPatchujacy.exe; DestDir: {app}; Check: JestPlikDoSpatchowania

[Run]
Filename: {app}\ProgramPatchujacy.exe; Check: JestPlikDoSpatchowania

[Code]
Function JestPlikDoSpatchowania: Boolean;
  Var
   SR: TFindRec;
Begin
    Result:=FindFirst(ExpandConstant('{app}')+'PlikDoSpatchowania.exe', SR);    
    FindClose(SR);
End;

//jeśli chcesz usunąć po instalacji program patchujący to dodatkowo ta procedurka:
procedure DeinitializeSetup(); 
begin
  If FileExists(ExpandConstant('{app}')+ProgramPatchujacy.exe) then 
    DeleteFile(ExpandConstant('{app}')+ProgramPatchujacy.exe);
end;

#define MyAppName "Mass Effect 2"
#define MyAppVersion "1.1"
#define MyAppPublisher "EA Games"
#define MyAppExeName "MassEffect2.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppID={{7F7752D3-C604-4238-9F40-F967B55F176D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=true
InfoBeforeFile=C:\Users\Marcin\Desktop\Nowy folder\q.txt
OutputDir=C:\Users\Marcin\Desktop\Nowy folder
OutputBaseFilename=Mass effect 2 Spolszczenie
SetupIconFile=C:\Users\Marcin\Desktop\Nowy folder\Icon_1.ico
Compression=lzma2/Ultra64
SolidCompression=false
InternalCompressLevel=Ultra64
DiskSpanning=true
DiskSliceSize=2100000000
UninstallFilesDir={app}\uninstall
WizardImageFile="C:\Users\Marcin\Desktop\Nowy folder\Mass2.bmp"
WizardSmallImageFile="C:\Users\Marcin\Desktop\Nowy folder\mass.bmp"

[Languages]
Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Users\Marcin\Desktop\Mass Effect 2\data\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: ProgramPatchujacy.exe; DestDir: {app}; Check: JestPlikDoSpatchowania
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\\Binaries\MassEffect2.exe"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\\Binaries\MassEffect2.exe"; Tasks: desktopicon ;IconFilename: "{app}\Icon_1.ico"

[Files]
Source: "Splash.png"; DestDir: {tmp}; Flags: dontcopy
Source: "isgsg.dll"; DestDir: {tmp}; Flags: dontcopy

[Code]
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
procedure Splash();
begin
    ExtractTemporaryFile('isgsg.dll');
    ExtractTemporaryFile('Splash.png');
//  Splash.png',1000(oznacza ilość czasu "narastania" obrazu (1000-1 sekunda)itd),3000(oznacza ilość czasu przez jaki jest wyświetlanay (3000-3 sekundy) itd.),1000(oznacza ilość czasu "wygasania" obrazu (1000-1 sekunda)itd)
    ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;                                                                                        
 
procedure InitializeWizard();
begin
Splash();
end;

[Run]
Filename: {app}\ProgramPatchujacy.exe; Check: JestPlikDoSpatchowania
 
[Code]
Function JestPlikDoSpatchowania: Boolean;
  Var
   SR: TFindRec;
Begin
    Result:=FindFirst(ExpandConstant('{app}')+'\PlikDoSpatchowania.exe', SR);    
    FindClose(SR);
End;

[Messages]
ConfirmUninstall=Czy chcesz usunać program %1 spolszcznie
BeveledLabel=Mass Effect 2

function NextButtonClick(CurPageID: Integer): Boolean; 
  Var
  ResultCode: Integer;
  SR: TFindRec; 

begin
    Result := true;
    if CurPageID=wpSelectDir then
  If FindFirst(ExpandConstant('{app}')+'\PlikDoSpatchowania.exe', SR) then
  else begin
  Result := False;
  if CurPageID=wpSelectDir then
  MsgBox('Instalator wykrył, że ścieżka do folderu jest nie prawidłowa.' , mbInformation, MB_OK);
  end;
  end;