Ветеран
Сообщения: 1133
Благодарности: 581
|
Профиль
|
Отправить PM
| Цитировать
Цитата R.i.m.s.k.y.:
Вот такой инно-код для тихой установки без вопросов »
|
зачем для каждой страницы писать одно и то же, нужно просто было задать для всех страниц это действие...
Цитата R.i.m.s.k.y.:
Как его убрать, как сделать так бы при запуске экзешника все ставилось без нажатий далее/установить? »
|
допустим так:
читать дальше »
Код:
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Code]
{ отобpажает или пpячет окно обpазом, указанным паpаметpом в nCmdShow }
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@user32.dll stdcall';
const
{ обычный клик }
BM_CLICK = $00F5;
procedure CurPageChanged(CurPageID: Integer);
{ на старых версиях IS достаточно было указать
WizardForm.NextButton.OnClick(WizardForm.NextButton);
сейчас же стопориться на странице wpReady, обходится это таким образом }
begin
{ использую для скрытия окна мастера, в противном случае видно страницу wpInstalling }
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
{ здесь нажимаем кнопку... }
PostMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
end;
|
-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.
Отправлено: 17:08, 17-08-2010
| #2201
|