Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для ROMKA-1977

Пользователь


Сообщения: 77
Благодарности: 2

Профиль | Отправить PM | Цитировать


Помогите пожалуйста, если возможно. Пример кода:
Скрытый текст

[Files]
Source: Program\*; DestDir: {app}; AfterInstall: BtnDisable(); Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

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

Name: DirectX; Description: Microsoft DirectX; GroupDescription: Дополнительное ПО; Flags: unchecked;
Name: vcredist2019_x86; Description: Microsoft Visual С++ 2015-2019 Redistributable; GroupDescription: Дополнительное ПО; Flags: unchecked;
Name: vcredist2019_x64; Description: Microsoft Visual С++ 2015-2019 Redistributable x64; GroupDescription: Дополнительное ПО; Flags: unchecked; Check: IsWin64;

[Run]
Filename: {src}\Redistributable\DirectX\DXSETUP.exe; Parameters: /silent; Tasks: DirectX; StatusMsg: DirectX;
Filename: {src}\Redistributable\MVC++2019\VC_redist.x86.exe; Tasks: vcredist2019_x86; Parameters: /q; StatusMsg: Microsoft Visual С++ 2015-2019 Redistributable;
Filename: {src}\Redistributable\MVC++2019\VC_redist.x64.exe; Tasks: vcredist2019_x64; Parameters: /q; StatusMsg: Microsoft Visual С++ 2015-2019 Redistributable x64;

[_code]
var
Button: TButton;

procedure InitializeWizard();
begin
Button:= TButton.Create(WizardForm);
Button.SetBounds(ScaleX(20), ScaleY(327),ScaleX(75), ScaleY(23));
Button.Caption:= 'XXX';
Button.Parent:= WizardForm;
end;

procedure BtnDisable();
begin
Button.Enabled := False;
end;

В данном примере созданная кастомная кнопка отключается на странице InstallingPage перед началом распаковки файлов. Необходимо её отключить после распаковки файлов но перед установкой дополнительного ПО как это происходи с кнопкой Отмена. Для ISDone у меня пример есть но он не подходит если упаковка средствами Inno Setup.

Отправлено: 15:56, 15-06-2024 | #1060