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

[insombia]

audiofeel я бы убрал меню о программе и сделал бы линию снизу там где черный фон ,а так все гуд

[insombia]

audiofeel а как ты в DirBrowseButton поменял обзор на изменить?

[saurn]

insombia
[Messages]
;ButtonBrowse=Изменить...

procedure InitializeWizard();
begin
{* WizardForm.DirBrowseButton.Caption := SetupMessage(msgButtonBrowse); *}
WizardForm.DirBrowseButton.Caption := 'Изменить...';
end;

[insombia]

можно как-то сделать чтобы инсталл нельзя было передвинуть?у меня он в углу и я не хочу чтобы его двигали

[saurn]

можно как-то сделать чтобы инсталл нельзя было передвинуть? »
[Code]
const
I_POS = $F010;
L_FL = 0;


function GetSystemMenu(h_Wnd: HWND; b_Revert: Boolean): HWND;
external 'GetSystemMenu@user32.dll stdcall';
function Remove_Menu(h_Wnd: HWND; i_Position: Integer; l_Flags: Longint): Boolean;
external 'RemoveMenu@user32.dll stdcall';


procedure InitializeWizard();
begin
Remove_Menu(GetSystemMenu(WizardForm.Handle, False), I_POS, L_FL);
end;

[insombia]

saurn не много не то,но ладно,просто на сколько я знаю то нужно юзать isexec чтобы инсталл был типа не подвижный,но архивы распаковывались,но я в isexec не понимаю
как сделать двойной прогресс бар, чтобы второй был маленький(у каталистов сейчас так)

[Johny777]

insombia, saurn, думаю лучше всего через таймер с задержкой в 1 секунду, чтоб не было мигания. Да и классно - перетаскиваешь, а форма назад хочет! :)

const
UNIQUE_ID_EVENT = 777;
INTERVAL = 1000;


type
TFNTimerProc = Integer;


function SetTimer(hWnd: HWND; nIDEvent: UINT_PTR; uElapse: UINT; lpTimerFunc: TFNTimerProc): UINT; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: HWND; uIDEvent: UINT_PTR): BOOL; external 'KillTimer@user32.dll stdcall';


procedure TimerCallBack(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
begin
if WizardForm.Left <> Screen.Width - WizardForm.Width - 25 then WizardForm.Left := Screen.Width - WizardForm.Width - 25;
if WizardForm.Top <> Screen.Height - WizardForm.Height - 75 then WizardForm.Top := Screen.Height - WizardForm.Height - 75;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: SetTimer(WizardForm.Handle, UNIQUE_ID_EVENT, INTERVAL, CallbackAddr('TimerCallBack'));

wpFinished: KillTimer(WizardForm.Handle, UNIQUE_ID_EVENT);
end;
end;


procedure DeinitializeSetup();
begin
KillTimer(WizardForm.Handle, UNIQUE_ID_EVENT);
end;

[Lex_from_Belarus]

Кто-нибудь совладал с этим:
http://www.han-soft.com/uninshs.php

[insombia]

какая вообще последняя версия isexec?

[alert30]

insombia, гугл еле-еле нашел, вот (http://rghost.ru/5036117) это последняя версия

[insombia]

alert30 это не последняя,эта версия не распаковывает архивы упакованные srep+precomp,а только созданные фриарком и т д

[alert30]

insombia, перепроверил, только это (http://ru.systemexplorer.net/file-database/file/isexec-dll/5028397), выше единичной версии нету.

[APTEM2]

Ребят всем привет помогите вот с этой проблемой вторую неделю бьюсь но не как не получается.
объясните что это за ошибка http://i48.fastpic.ru/thumb/2013/0608/4b/1d971e38edc51a81a4d72659c862a24b.jpeg (http://fastpic.ru/view/48/2013/0608/1d971e38edc51a81a4d72659c862a24b.png.html)

И как с этой ошибкой бороться

[alert30]

APTEM2, Ваш архив со скриптом выкладывайте.

[insombia]

APTEM2 те файлы от срепа и прекомпа,которые были для сжатия,скопируй к файлам исдона с заменой,и если есть сними ; с
#define precomp "0.42"
#define PrecompInside
#define SrepInside

[APTEM2]

alert30, insombia,
Ребят вот скрипт поглядите http://rghost.ru/private/46620721/1da2785be508bf84cd5d3014d4ce6f10

Помогите чётам надо

[saurn]

APTEM2, так ничего не надо, это видно из описания ошибки. Unarcl.dll не может распаковать архив, который вы к нему подцепили в виду неизвестного ему метода сжатия. Подцепите архив, упакованный в FreeArc с опциями сжатия по дефолту и проверяйте: если распаковка проходит без ошибок то, как я сказал выше, смотрите в сторону опций сжатия.

[Lex_from_Belarus]

А кто заведует справкой? Там есть ошибка.
В описании секции [Run], есть описание флага unchecked
Действует только в секции [Run]. Указывает инсталлятору не ставить флажок в строке с параметром. Пользователь может его выбрать, если захочет его запустить. Этот флаг игнорируется, если также установлен флаг postinstall.

это не так этот флаг работает с postinstall

[APTEM2]

saurn,
Можно поподробнее

[insombia]

APTEM2
#define NeedMem 512
#define records
#define facompress
#define PrecompInside
#define SrepInside
#define precomp "0.42"
;#define unrar
;#define XDelta
;#define PackZIP
;#define Components

перед setup поставь