procedure BrowseBtnOnClick(Sender: TObject);
begin
...
// Сюда перенести
BFOldproc := SetWindowLong(BrowseForm.Handle, -4, CallbackAddr('BFProc'));
SceneApply(BFScene);
//
...
end;
procedure DeinitializeSetup();
begin
Font.Free;
if BFOldproc <> 0 then
SetWindowLong(BrowseForm.Handle, -4, BFOldproc);
SetWindowLong(MainForm.Handle, -4, MFOldproc);
// И это вниз.
unloadLayered();
//
end;
procedure OkCFBtnOnClick(Sender: TObject);
begin
CancelForm.Visible := FALSE;
cancel_setup := TRUE;
WizardForm.Enabled := True;
// BtnSetEnabled(CancelButton, FALSE);
// BtnSetEnabled(ExitButton, FALSE);
// BtnSetEnabled(MinButton, FALSE);
WizardForm.Close;
// WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
SceneApply(WFScene);
end;
Когда идет установка, то при отмене инсталлятор какое-то время висит и можно повторно нажать на эти кнопки.Если сделать так на событии закрытия при нажатии 'Да', то все норм? А то тут сделаны зачем-то BtnSetEnabled, вроде все закрывается быстро.
if WizardForm.CurPageID = wpInstalling then begin
BtnSetEnabled(CancelButton, FALSE);
...
end;
procedure OkCFBtnOnClick(Sender: TObject);
begin
CancelForm.Visible := FALSE;
cancel_setup := TRUE;
WizardForm.Enabled := True;
WizardForm.Left:= -1000;
ShowWindow(Application.Handle,SW_HIDE);
// На всякий случай,а то прогрессбар двигается по таймеру
UpdateTimer.Enabled := FALSE;
WizardForm.Close;
SceneApply(WFScene);
end;
Это уже не мое. Цитата с msdn (смотри внизу - Remarks). Пиши имдумаю только jpeg и png оставить можно,а остальное ненужно, анимация ведь не поддерживается,да и зачем bmp когда есть jpeg с меньшим размером изображения
поставить пароль на архивaltEF_4
Беспроблемное открытие архива с графикой
Я имел ввиду архив, который Вы кинули на тест пруф: http://i.pixs.ru/storage/0/4/3/Bezimyanni_4019812_10187043.pngпоставить пароль на архив
- нет файла = ошибка, для проверки отключите все задачи