Скрипты Inno Setup. Помощь и советы [часть 7]

[MogilShik2007]

Цитата kotyarko@fb:
Здесь по коду нужно ориентироваться. Можете прогнать компиляцию по F8, возможно, покажет на проблемное место. »

Нажал F8 выделило синим -
=====================================
function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('Click.wav');
ExtractTemporaryFile('isskin.dll');
ExtractTemporaryFile('skin.cjstyles');
LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
Result:=True;
end;
=====================================
procedure InitializeWizard;
begin
CreateWizardImage;
ButtonsTextures;
CreatePageComponents;
OldProc:=SetWindowLong(WizardForm.Handle,-4,WrapWFProc(@WFWndProc,4));
end;
=====================================

Дальше, что-то задумался, уже минут 10

[kotyarko@fb]

Нажал F8 выделило синим »
В DeinitializeSetup указана обязательная, при применении ботвы, процедура gdipShutdown?
А ещё, там же, нужно выгружать скин.

[MogilShik2007]

В DeinitializeSetup указана обязательная, при применении ботвы, процедура gdipShutdown?
А ещё, там же, нужно выгружать скин. »

Мож чего не дописал?

procedure DeinitializeSetup;
begin
WFButtonFont.Free;
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')),0);
UnloadSkin;
SetArrayLength(AImg,0);
gdipShutdown;
end;

procedure AllCancel;
begin
SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBOldProc);
ImgPBDelete(NewPB);
ImgPBDelete(NewPB2);
ImgApplyChanges(WizardForm.Handle);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if CurPageID=wpInstalling then begin
Confirm:=False;
Cancel:=ExitSetupMsgBox;
if Cancel then AllCancel;
end;
end;

Кстати мож лог ошибки чего скажет:

Сигнатура проблемы:
Имя события проблемы: APPCRASH
Имя приложения: setup.tmp
Версия приложения: 51.52.0.0
Отметка времени приложения: 2a425e19
Имя модуля с ошибкой: StackHash_005c
Версия модуля с ошибкой: 0.0.0.0
Отметка времени модуля с ошибкой: 00000000
Код исключения: c000041d
Смещение исключения: 755c4d62
Версия ОС: 6.1.7601.2.1.0.256.1
Код языка: 1049
Дополнительные сведения 1: 005c
Дополнительные сведения 2: 005c7be6bedc7ce8c4d34ad9498bc404
Дополнительные сведения 3: 9e5c
Дополнительные сведения 4: 9e5c41e234cfe613841322306a807a53

[Shift85]

Прошу протестировать сетапник. :)
Интересуют возможные ошибки, если есть, просьба отписать, если нет - попрошу отписать "все норм" :tongue:
http://rghost.ru/7NQT2DZhv

[kotyarko@fb]

Мож чего не дописал? »
Так вряд ли можно что-то сказать.

Кстати мож лог ошибки чего скажет »
Нет.

Прошу протестировать сетапник.
Интересуют возможные ошибки, если есть, просьба отписать »
Беглым взглядом ничего не заметил. Вот только на последней странице установки, у окна не работают кнопки "Свернуть", "Закрыть".
Win8, 64.

[MogilShik2007]

Так вряд ли можно что-то сказать. »

Можешь глянуть?

[kotyarko@fb]

Можешь глянуть? »
Вложи в архив все файлы (изображения, библиотеки), подключённые в скрипт.

[MogilShik2007]

Прошу протестировать сетапник. »

На 7х64 пашет, удаление не полное, остается папка Shift85, ну и да, на последней странице установки, у окна не работают кнопки "Свернуть", "Закрыть".

Вложи в архив все файлы (изображения, библиотеки), подключённые в скрипт. »

Вот:
http://rghost.ru/6JqFjvmh2

[Shift85]

ну и да, на последней странице установки, у окна не работают кнопки "Свернуть", "Закрыть". »
Так было задумано. :)

[MogilShik2007]

Проверил на ХР все также как и на 7, все пашет, тоже остается папка Shift85

[kotyarko@fb]

Можешь глянуть? »
Никаких ошибок не увидел (в коде того вида, как ты и предоставил). При отмене на любой странице, обычном завершении программы - никаких проблем.

[MogilShik2007]

Никаких ошибок не увидел (в коде того вида, как ты и предоставил). При отмене на любой странице, обычном завершении программы - никаких проблем. »

Можешь у себя скомпилить и запустить проверить, будет ошибка или нет? (Ток там надо какойнить 1.bin кинуть)

[kotyarko@fb]

Можешь у себя скомпилить и запустить проверить, будет ошибка или нет? »
Скомпилировал, запустил, проверил. - Ничего.

(Ток там надо какойнить 1.bin кинуть) »
В каком смысле?

[MogilShik2007]

Цитата kotyarko@fb:
В каком смысле? »

Запустил с установкой до конца? Без 1.bin файла рядом с ехе установка отменяется и ошибку не выловить.

Что-то терзают меня смутные сомнения, как бэ винда не начала накрываться, сейчас попробую на буке проверить.

[Shift85]

MogilShik2007, Скомпилировал, запустил, проверил.
http://s017.radikal.ru/i401/1501/44/867b0d2b0729t.jpg (http://radikal.ru/fp/008000907e67497ead8b211fa1eafec9)

Win 7 x86.

Решение замени здесь выгрузку ботвы:

procedure DeinitializeSetup;
begin
WFButtonFont.Free;
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')),0);
gdipShutdown;
UnloadSkin;
SetArrayLength(AImg,0);
//gdipShutdown;
end;

[kotyarko@fb]

Что-то терзают меня смутные сомнения, как бэ винда не начала накрываться »
Нет, ничего не накрывается. Просто, как я уже говорил, разные ОС по-разному чувствительны к такому. Но никакой закономерности я не знаю. И почему на разных ОС результаты отличаются тоже мне не известно.
Возможно, это зависит и от настроек системы.

В общем, я проверить не могу.

[Shift85]

MogilShik2007, Проверяй:

[MogilShik2007]

MogilShik2007, Проверяй: »

Ок, сейчас.

ЗЫ. проверил свой инстал на буке, там 7х86, никаких ошибок не выдало, фигня какая-то)))

[kotyarko@fb]

MogilShik2007, кстати, в скрипте много неиспользуемых переменных.
Не то чтобы это было критичным, просто создают лишний мусор в коде)

[MogilShik2007]

MogilShik2007, кстати, в скрипте много неиспользуемых переменных.
Не то чтобы это было критичным, просто создают лишний мусор в коде) »

Да как бы разные заготовки, надо почистить)))

MogilShik2007, Проверяй: »

Так же выдает ошибку((

Хм, может какие dll некорректно выгружает?