[Dodakaedr]

Родная кнопка у меня отключена и сделана невидимой »

Зачем? Можно ж просто её изменить

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}

[Messages]
ExitSetupTitle=«{#MyAppName} v{#MyAppVersion}»
ExitSetupMessage=Вы действительно хотите выйти из программы установки?

[Hantunyaha]

Зачем? Можно ж просто её изменить »

Вот это код работает как мне нужно!
Что избавиться от этого компонента: AllowCancelDuringInstall нужно сделать свою кнопку отмена

Скрытый текст

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.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={{FC9B3E48-8A0B-49FA-B161-675874D96F13}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
AllowCancelDuringInstall=no

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon


[code]
const
MF_BYCOMMAND = 0;
MF_ENABLED = 0;
MF_GRAYED = 1;
MF_DISABLED = 2;
SC_CLOSE = 61536;
GCL_STYLE = -26;
CS_NOCLOSE = $200;

function GetSystemMenu(hWnd: HWND; bRevert: BOOL): LongWord; external 'GetSystemMenu@user32.dll stdcall';
function EnableMenuItem(hMenu: THandle; uIDEnableItem: Longword; uEnable: Longword): Boolean; external 'EnableMenuItem@user32.dll stdcall';
function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

procedure CurPageChanged(CurPageID: Integer);
begin
//if (CurPageID = wpInstalling) then
//begin
EnableMenuItem(GetSystemMenu(WizardForm.Handle, false), SC_CLOSE, MF_DISABLED or MF_BYCOMMAND);
SetClassLong(WizardForm.Handle, GCL_STYLE, GetClassLong(WizardForm.Handle, GCL_STYLE) or CS_NOCLOSE);
//end;
end;

Как сделать кнопку ?

[saurn]

Как сделать кнопку ? »

Вот так

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.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={{FC9B3E48-8A0B-49FA-B161-675874D96F13}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
//AllowCancelDuringInstall=no

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "C:\Windows\fonts\*"; DestDir: "{app}"; Flags: ignoreversion external;
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon


[code]
#define A = (Defined UNICODE) ? "W" : "A"


const
    MF_BYCOMMAND = 0;
    MF_ENABLED = 0;
    MF_GRAYED = 1;
    MF_DISABLED = 2;
    SC_CLOSE = 61536;
    GCL_STYLE = -26;
    CS_NOCLOSE = $200;


function GetSystemMenu( hWnd: HWND; bRevert: BOOL ): LongWord; external 'GetSystemMenu@user32.dll stdcall';
function EnableMenuItem( hMenu: THandle; uIDEnableItem: Longword; uEnable: Longword ): Boolean; external 'EnableMenuItem@user32.dll stdcall';
function GetClassLong( Wnd: HWnd; Index: Integer ): Longint; external 'GetClassLong{#A}@user32.dll stdcall';
function SetClassLong( Wnd: HWnd; Index: Integer; NewLong: Longint ): Longint; external 'SetClassLong{#A}@user32.dll stdcall';


var
{ Declared global variables }
    _tBtnCancel: TButton;


procedure _CancelClick ( const Sender: TObject );
begin
    WizardForm.CancelButton.Click;
end;

procedure InitializeWizard();
begin
    EnableMenuItem( GetSystemMenu( WizardForm.Handle, false ), SC_CLOSE, MF_DISABLED or MF_BYCOMMAND );
    SetClassLong( WizardForm.Handle, GCL_STYLE, GetClassLong( WizardForm.Handle, GCL_STYLE ) or CS_NOCLOSE );

    with WizardForm do
    begin
        { Create custom button }
        _tBtnCancel := TButton.Create( nil ); { Init global variable }
        with _tBtnCancel do
        begin
            Parent := WizardForm;
            SetBounds( ScaleX( WizardForm.CancelButton.Left ),
                       ScaleY( WizardForm.CancelButton.Top ),
                       ScaleX( WizardForm.CancelButton.Width ),
                       ScaleY( WizardForm.CancelButton.Height ) );
            Caption := SetupMessage( msgButtonCancel );
            BringToFront;
            OnClick := @_CancelClick;
        end;
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        wpFinished: _tBtnCancel.Hide;
    end;
end;

Только, в чем смысл заменять родную кнопку кастомной с идентичным событием?

[Hantunyaha]

Ошибка при компиляции

И часть кода перестала работать

[Hantunyaha]

[TryRooM]

Hantunyaha,
Используйте расширенную версию компилятора, и ошибки не будет.

[Hantunyaha]

Используйте расширенную версию компилятора, и ошибки не будет »

Использую только официальные версии!

[kotyarko@fb]

Hantunyaha, используйте:

Код:

WizardForm.CancelButton.OnClick(nil);

[Nordek]

Ошибка при компиляции »

Проверил:
В стандартной версии не работает.
В расширенной версии работает.

Используйте расширенную версию.

Использую только официальные версии! »

Если вы настроены на расширенную версию категорично - придётся ограничиться малым. Поскольку в одной ситуации решение будет найдено, в другой уже будет проблематично.

[Reyesahydo]

Как записать ключ в реестр ?
Нужно записать этот ключ: AAAAA-AAAAA-AAAAA-AAAAA