[kotyarko@fb]

vadjliss,

Код:

Procedure CurStepChanged1(CurStep: TSetupStep);
begin
 ...
end;

Procedure CurStepChanged2(CurStep: TSetupStep);
begin
 ...
end;

Procedure CurStepChanged(CurStep: TSetupStep);
begin
 CurStepChanged1(CurStep);
 CurStepChanged2(CurStep);
end;

[ZVSRus]

nik1967, Все хорошо. Только не отображается иконка в левом верхнем углу на бордюре.
И второй вопрос. Можно ли к данному скрипту прикрутить InstallerCheck и PortableCheck

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

#ifndef IS_ENHANCED
#error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Files]
Source: 1.ico; Flags: dontcopy;

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[code]
function LoadImage(hInst: THandle; ImageName: PansiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImageA@user32.dll stdcall delayload';

procedure InitializeWizard;
begin
ExtractTemporaryFile('1.ico');
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if CurStep = ssDone then
if MsgBoxEx(0,'Программа '+'{#SetupSetting("AppName")}'+' установлена!'+#10#10#13+'Запустить '+'{#SetupSetting("AppName")}'+'?',
'Установка — '+'{#SetupSetting("AppName")}',MB_YESNO,LoadImage(0,ExpandConstant('{tmp}')+'\1.ico',1,32,32,$1010), 0) = IDYES then
Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);
end;

[Dodakaedr]

Все хорошо. Только не отображается иконка в левом верхнем углу на бордюре. »

Будьте повнимательней

Код:

[Setup]
SetupIconFile=icon.ico //иконка слева вверху окна инсталлятора

И второй вопрос. Можно ли к данному скрипту прикрутить InstallerCheck и PortableCheck »

Можно все что угодно

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if CurStep = ssDone then
if InstallerCheck then begin
if MsgBoxEx(0,'Программа '+'{#SetupSetting("AppName")}'+' установлена!'+#10#10#13+'Запустить '+'{#SetupSetting("AppName")}'+'?',
'Установка — '+'{#SetupSetting("AppName")}',MB_YESNO,LoadImage(0,ExpandConstant('{tmp}')+'\1.ico',1,32,32,$1010), 0) = IDYES then
Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);
end else
MsgBoxEx(0,'Программа '+'{#SetupSetting("AppName")}'+' установлена!'+#10#10#13+'Приятного пользования!,
'Установка — '+'{#SetupSetting("AppName")}',MB_OK,LoadImage(0,ExpandConstant('{tmp}')+'\1.ico',1,32,32,$1010), 0);
end;

[ZVSRus]

Dodakaedr, Не отображается иконка в левом верхнем углу на бордюре в данном куске скрипта
т.е. на бордюре маленького окошечка вместо финишной страницы от nik1967

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

Код:

#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
SetupIconFile=Icon.ico
UsePreviousAppDir=no
UsePreviousGroup=no

[Files]
Source: 1.ico; Flags: dontcopy;

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[code ]
function LoadImage(hInst: THandle; ImageName: PansiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImageA@user32.dll stdcall delayload';

procedure InitializeWizard;
begin
  ExtractTemporaryFile('1.ico');  // Извлечение временных файлов
end;

procedure CurStepChanged(CurStep: TSetupStep);  // Изменение Шага
var
  ResultCode: Integer;
begin
  if CurStep = ssDone then
  if MsgBoxEx(0,'Программа '+'{#SetupSetting("AppName")}'+' установлена!'+#10#10#13+'Запустить '+'{#SetupSetting("AppName")}'+'?',
  'Установка — '+'{#SetupSetting("AppName")}',MB_YESNO,LoadImage(0,ExpandConstant('{tmp}')+'\1.ico',1,32,32,$1010),0) = IDYES then
    Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);
end;

[Dodakaedr]

Не отображается иконка в левом верхнем углу на бордюре в данном куске скрипта т.е. на бордюре маленького окошечка вместо финишной страницы от nik1967 »

Скорее всего никак.

[Bartron]

Подскажите, пожалуйста. Решил сделать собственное окно выхода из инсталла, кнопки сделал через ботву. На всех страницах окно выхода работает нормально, но на странице установки при нажатии "отмена" появляется ошибка

читать дальше »

Ничего не могу понять. Скрипт прикрепил.

[TryRooM]

Bartron, http://rghost.ru/79vcWlr9H
Пробуйте.

[Bartron]

TryRooM, всё равно та же ошибка на странице установки...

[TryRooM]

Вот скриншот страницы установки. Проверял на Ansi и Unicode версии от Restools

[Bartron]

TryRooM, у вас на скриншоте Readypage, а ошибка появляется непосредственно на Installingpage (когда уже идёт сама установка).