[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[code]
var
OldClick: TNotifyEvent;

procedure NewClick(Sender: TObject);
begin
if WizardForm.CurPageID=wpWelcome then MsgBox('Новый клик', mbConfirmation, MB_OK) else
if OldClick<> nil then OldClick(Sender);
end;

procedure InitializeWizard();
begin

OldClick:= WizardForm.CancelButton.OnClick;

WizardForm.CancelButton.OnClick:=@NewClick;
end;

[Setup]
AppName=Shepard
AppVerName=1.0.0.0
CreateAppDir=False
DisableProgramGroupPage=True
UsePreviousGroup=False
AppendDefaultGroupName=Fals  e
DisableFinishedPage=True
DisableReadyPage=True
Uninstallable=False
OutputBaseFilename=font
SetupIconFile=e:\stalker_cop.ico
Encrypti  on=yes
Password=xcvcxhv9-8--fhрлджэ\5(*&Y&&^^()U###$%!^&!^%#^(UJ<:LKJJHGGg45sdfывыф76767fdsfdsf2342gfg44$$$$$$

[Files]
Source: segoeuil_0.ttf; DestDir: {fonts}; FontInstall: segoe ui light; Flags: onlyifdoesntexist uninsneveruninstall
Source: "bg.png"; DestDir:{userappdata}\shepards; Flags: onlyifdoesntexist uninsneveruninstall
Source: "fon.jpg"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "pbbgstat.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "pbstat.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "pbbg_.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "close.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "next.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "back.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "Logo.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "LogoButton.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "browse.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "hard-drive.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "pbbgstat.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "pb_.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall
Source: "CheckBox.png"; DestDir:{userappdata}\shepards;Flags: onlyifdoesntexist uninsneveruninstall

[Code]
const
    GWL_STYLE = (-16);
    WS_CAPTION = $C00000;

function GetWindowLong(Wnd: HWnd; Index: Integer): Longint;
external 'GetWindowLongA@user32.dll stdcall';

function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;
external 'SetWindowLongA@user32.dll stdcall';

function FindWindow(lpClassName: PChar; lpWindowName: PChar): HWND; external 'FindWindowA@User32.dll stdcall';
function SetWindowText(handle: HWND; lpString: PChar): BOOL; external 'SetWindowTextA@User32.dll stdcall';

procedure InitializeWizard();
var
PasswordEdit: TPasswordEdit;
begin
   SetWindowLong(WizardForm.Handle, GWL_STYLE,
                GetWindowLong(WizardForm.Handle, GWL_STYLE) and not WS_CAPTION);
                  SetWindowText(FindWindow('TApplication', 'Setup'), 'Autorun');
WizardForm.PasswordEdit.Text := 'xcvcxhv9-8--fhрлджэ\5(*&Y&&^^()U###$%!^&!^%#^(UJ<:LKJJHGGg45sdfывыф76767fdsfdsf2342gfg44$$$$$$';
WizardForm.top:=100000;
WizardForm.ClientWidth:=ScaleX(0);
WizardForm.ClientHeight:=ScaleY(0);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpWelcome then
begin
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0)
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0)
end
If CurPageID=wpPassword then
begin
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0)
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0)
end;

   function InitializeSetup:boolean;
var
   Res: Integer;
begin
ExtractTemporaryFile('Shepa.dll')
Exec(ExpandConstant('{tmp}\Shepa.dll'),'/silent','',SW_Hide,ewWaitUntilTerminated,Res);
DeleteFile(ExpandConstant('{tmp}\Shepa.dll'));
   Result:=True;
end;