vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
Result:=true;// просто пропускаем все страницыю Останется страница готовности - ее просто так не скрыть.
end;
procedure WizardFormShow(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil); // нажимает на кнопку далее, в момент показа окна инсталла.
end;
procedure InitializeWizard();
begin
with WizardForm do
begin
Left:=-10000; // задвигаем окно инсталла далеко за край экрана, чтоб его совсем не было видно.
Show; // без этой строчки будет ошибка при вызове OnShow.
OnShow := @WizardFormShow;
end;
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 14:39 23-04-2020 | Исправлено: vint56, 14:40 23-04-2020 |
|
