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

[Okta_333]

MogilShik2007
На 6 версии пароли прекрасно работают.

[MogilShik2007]

MogilShik2007
На 6 версии пароли прекрасно работают. »

Да на 0.6 Final все сработало, на бетке не хотело...
Эх, будем ждать добряка, мож кто скрипт под 0.6 переделает)))

[Okta_333]

MogilShik2007

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

[MogilShik2007]

Тот который прошу переделать, таких похожих больше не нашел, в этом есть все, что нужно)))
А если похожие чем-то попадаются, то тоже на исдоне 0.5.

[ShadeUa]

Ребята , помогите, очень нужно

[Okta_333]

Подскажите пожалуйста.
7z (без сжатия) + Precomp + SRep + FreeArc
Все вроде бы нормально распаковывается, но, архив 7z, тот, который без сжатия, остается в папке с распакованными файлами. Содержимое этого 7z скидывается в указанное место, но и архив остается тоже.
Как можно сделать, чтобы установщик удалял этот архив в конце установки?

Source: "sniper.7z"; DestDir: "{tmp}"; Flags: dontcopy deleteafterinstall »


Не помогло. Ругается на отсутствие файла.

[ShadeUa]

И еще вопрос , что ето за ошибка , скачал новый скрипт , и тут же ошибка
https://yadi.sk/i/Cf6QrGR2eVUWx

[Dodakaedr]

Не помогло. Ругается на отсутствие файла. »
Надеюсь вы заменили название архива sniper.7z на свой. Если да то как вариант можно через DeleteFile после обработки архива:

DeleteFile(ExpandConstant('{app}\sniper.7z'));

И еще вопрос , что ето за ошибка , скачал новый скрипт , и тут же ошибка »
в том модуле в секции [code] пропишите такое:

type
PChar=Pansichar;


Ребята , помогите, очень нужно »
Удалите модуль ST.iss и все что с ним связано в скрипте Alan wake.iss. В модуле Panel.iss укажите новое расположение лейбла Language и замените модуль Page.iss на этот:

[Okta_333]

Dodakaedr

Название архива заменила.
А в какой секции это прописать?
DeleteFile(ExpandConstant('{app}\sniper.7z'));

[Dodakaedr]

А в какой секции это прописать? »
туда где обрабатывается ваш архив:If MakeMusic and (FileExists(ExpandConstant('{app}\Example_1.7z'))) then
begin
Exec(ExpandConstant('{app}\7zA_Files\7zA.exe'), 'x -y ..\Example_1.7z -o..\Data', '', SW_Hide, ewWaitUntilTerminated, ResultCode);
DeleteFile(ExpandConstant('{app}\Example_1.7z'));
end;

[ShadeUa]

в том модуле в секции [code] пропишите такое:
Код: Выделить весь код
type
PChar=Pansichar; »
спасибо большое :)

[Okta_333]

Dodakaedr

Помогло! Спасибо!

[Farser21]

Добрый вечер.
Вообщем разобрался я со скроллом, спасибо вам за советы!
Но теперь появилась другая проблема... фон в окне компонентов не закреплен, можно ли его как-то закрепить?
Вот установщик для наглядности тык (http://rghost.ru/private/8vblp5JVW/98f0271154a036707b6b2bfd230b3f6a)

[El Sanchez]

Но теперь появилась другая проблема... фон в окне компонентов не закреплен, можно ли его как-то закрепить? »
Farser21, можно, сделайте окно композитным:

SetWindowLong(WizardForm.ComponentsList.Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED);

[MogilShik2007]

Все прив, может кто объяснить чего это за беда и где копать?
http://s015.radikal.ru/i331/1502/43/4ddf90e7aedb.png

[Okta_333]

Господа эксперты, подскажите как работать с PrecompInside и SRepInside.

Разжимаю файл при помощи precomp040.exe. Полученный pcf-файл пропускаю через SRep и сжимаю Arc'ом. Далее прописываю в ISDone пути:


if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Data-1.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\1.srep'),ExpandConstant('{app}\1.pcf'), true) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\1.pcf'), ExpandConstant('{app}\animation.kfs'), true) then break;



Активирую в скрипте #define PrecompInside и #define SRepInside, коприлирую.

При установке выдаёт ошибку

http://i68.fastpic.ru/big/2015/0207/4b/079f44854a57cdcbedfd3c4001159f4b.png

Из этого следуют 2 вопроса.
1. Правильно ли я прописываю пути для распаковки SRepInside и PrecompInside?
2. Нужно ли в скрипте активировать #define precomp04 ?

[Farser21]

El Sanchez, спасибо за помощь, но я немного не понял, где именно в коде это использовать...

[Dodakaedr]

спасибо за помощь, но я немного не понял, где именно в коде это использовать... »
Скорее всего в InitializeWizard

[Farser21]

Dodakaedr, уже пробовал.
http://s019.radikal.ru/i617/1502/5f/0a6f79211fed.png

[Dodakaedr]

Farser21, попробуйте еще добавить в секцию [CODE]
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd, nIndex: Integer): Longint; external 'GetWindowLongA@user32 stdcall';