» Inno Setup (создание инсталяционных пакетов)

Подскажите, как изменить размер окна инсталлятора (стандартного вида).

Хотелось бы только изменить размер картинки на первой странице, например сделать её квадратной 314х314 (а не 164х314).

oosppa
Шапка -> Документация, FAQ, и различные примеры для Inno Setup ->
Пост с различными скриптами #2 -> Вставка изображения на первую и последнюю станицу
Это походу твой случай. (размер поменяешь сам WizardForm.WizardBitmapImage.Width:= ScaleX(497);
(длина) WizardForm.WizardBitmapImage2.Width:= ScaleX(497);
(высота) WizardForm.WizardBitmapImage.Height:= ScaleX(497);
WizardForm.WizardBitmapImage2.Height:= ScaleX(497);)

WizardBitmapImage - изображение на первой странице.
WizardBitmapImage2 - изображение на последней соответственно.

подскажите Inno Setup Uninstall Log чем можно прочесть или сконвертировать в человекопонятный вид?

Цитата:

подскажите Inno Setup Uninstall Log чем можно прочесть или сконвертировать в человекопонятный вид?

Как вариант (не самый лучший конечно) обыкновенным Notepad-ом или hex редактором.

bugron
как раз ими и просматривал, но хотелось бы специализированное заточенное под эти задачи средство...

---

ищу способ заставить деинсталятор выполнить следующую шелл-команду:
Код: taskkill /f /im App.exe /t

AngelNet

Цитата:

ищу способ заставить деинсталятор выполнить следующую шелл-команду:

[more=Вот]
[-code]
var
ResultCode: Integer;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usUninstall then
begin
Exec(ExpandConstant('{sys}\taskkill.exe'), '/f /im App.exe /t', 'ExpandConstant('{sys}'), SW_HIDE,ewWaitUntilTerminated,ResultCode)
end;
end;
[/more]

sjwrec
странно, код не отрабатывает(
название секции точно должно быть
Код: [-code]

AngelNet [code] должно всегда быть так

AngelNet
Нет просто форум иначе ругается на не закрытый тег.

vint56
засунул в секцию код, вообще перестало собираться...

AngelNet

[more=А вот так?]
[Сode]
var
ResultCode: Integer;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usUninstall then
begin
Exec(ExpandConstant('{sys}\taskkill.exe'), '/f /im App.exe /t', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
end;
[/more]

Так же хочу предупредить, что программа не проверяет есть ли процесс или нет, а просто срабатывает.

sjwrec
так собралось, но видимо прибитие процесса происходит слишком долго и деинсталятор не успевает удалить экзешник, о чём "радостно" сообщает по завершении своей работы...

может какой то обработчик события прикрутить или таймаут нужно?

AngelNet

[more=Таймер]
[Сode]
var
ResultCode: Integer;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usUninstall then
begin
Exec(ExpandConstant('{sys}\taskkill.exe'), '/f /im App.exe /t', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
Sleep(7000); // 1000 = 1 сек - этот таймер не даст деинсталлятору работать пока не истечёт время.
end;
end;
[/more]

sjwrec
подход топорный, но работает)
а можно как то более красиво это оформить? вдруг у кого то тасккил повиснет к примеру на этом шаге.

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

AngelNet
Наверное стоит освоить работу с библиотекой isTask.dll - там можно и проверять и завершать процесс.

пожалуй, когда будет достаточно времени обязательно это попробую.
а сейчас остался еще один вопрос.
отсюда взят код и dll-ка от Vo1T
ISWin7 v0.5 [24.03.2011]
загвоздка в том, что когда я пытаюсь включать шифрование установщика, используя билиотеку ISCrypt.dll этот замечательный код прозрачности не работает(

есть ли возможность как то подружить их?
я так понимаю iswin7.dll уже должна быть в памяти распакованной для корректной работы.
Vo1T-у я писал, он послал меня в топик спрашивать у вас.

AngelNet
Про эту библиотеку немного знаю, а вот как решить глюк отключения прозрачности не знаю. Сейчас пишу Вам пример работы isTask

sjwrec
ну в принципе криптовать инсталлер мне не критично, прятать мне нечего, просто заинтересовало)
там сборка мирки для одного игрового сервера, тем более делается всё бесплатно на голом энтузиазме.
---
от INNO я в восторге! жаль, что раньше тратил время на всякую ерунду, в т.ч. варезные софтины.
этот бесплатный продукт намного гибче и у него большое коммьюнити, которое не даст ему зачахнуть!

AngelNet
Временная ссылка на ваш скрипт с IsTask: http://sjwrec.no-ip.biz:8082/Taskkill.7z

Добавлено:
AngelNet
Скачали? Сервер закрыт.

sjwrec
процесс с установленной программой не завершается(
по окончании удаления экзешник остаётся.
добавлю что программа при своём закрытии пользователем запрашивает подтверждения для выхода из нее.

AngelNet
IsTask - не работает в Unicode версии, возможно причина в этом?

Robby
похоже вы правы

а в этом случае есть какие нибудь аналогичные инструменты?

AngelNet
лучше используйте ANSI версию компилятора (она более, так сказать, дружелюбна) если нет необходимости в специфических возможностях Unicode версии.

AngelNet
Скрипт написан для ANSI версии компилятора. Советую Вам перейти на эту версию.

Robby
sjwrec
использую (InnoUltra) сейчас переустановклю, отпишусь о результате...

---

как я и ожидал, собрать на анси компиляторе не удаётся.
скрин и сам [more=код]
Код: type
Pchar= Pansichar;

function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL; external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

AngelNet просто в ansi версий это есть в unicode нету потому и ansi версий пишит дубликат закаментируй у себя строчку
type
//Pchar= Pansichar; вот это

vint56
спс, собралось. но теперь после прибития процесса запущенного приложения его экзешник всё равно не деинсталируется(
а еще программа блочит файлы логов, так что пока она выполняется логи тоже невозможно вычистить...

AngelNet
Удалит все файлы в папке app каталоге
[UninstallDelete]
Type: files; Name: {app}\*.*

Логи я как понял это реестр ну так ключам реестра добавь это Flags: uninsdeletevalue uninsdeletekeyifempty;
пример
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{4E4941E1-BDFC-4A5A-8D99-3721B4650281}; ValueType: string; ValueName: InstallLocation; ValueData: {app}; Flags: uninsdeletevalue uninsdeletekeyifempty;

IsTask v1.0.1 компилятор только ansi там пример при установки закрывает приложения и при дейнсталяций закрывает приложения
http://rghost.ru/49236509

Цитата:

Удалит все файлы в папке app каталоге
[UninstallDelete]
Type: files; Name: {app}\*.*

vint56
спасибо, код работает просто шикарно!

скажите, а разве это не делает примерно тоже самое?
Код: [UninstallDelete]
Type: "filesandordirs"; Name: "{app}"

AngelNet

[UninstallDelete]
Type: "filesandordirs"; Name: "{app}"
Удаляет файлы и каталог программы
--------------------------------------------
[UninstallDelete]
Type: files; Name: {app}\File1
Удаляет только файлы которые вы зададите
--------------------------------------------
[UninstallDelete]
Type: dirifempty; Name: {app}\Dir1
Удаляет только папки которые вы зададите
--------------------------------------------
Вроде бы это в справке есть