Создание инсталляторов для модпаков на базе Inno Setup

[Ekspoint 2,122]

@Ekspoint, когда-то игрался сней) Но в свет инстальник так и не вышел, решил, что это бесполезность.

Вообще, в шапке темы, под последним спойлером, есть куча примеров от меня. Скачай и найди там папку TrayIconCtrl. Дальше уже разберёшься, надеюсь.

нет именно это надо 

#ifndef UNICODE

#error Unicode Inno Setup is required to compile this script

#endif

#include "уведомление_.iss"

[CustomMessages]

rus.Tooltip={#MyAppVer}

rus.TooltipText={#MyAppName}

rus.MenuStrs=&Показать/Скрыть инсталлятор;-;&Инфо...;-;&Выход

const

WM_USER = $400;

WM_ICON_NOTIFY = WM_USER + 22;

MF_BYPOSITION = $400;

MF_ENABLED = 0;

MF_GRAYED = 1;

function EnableMenuItem(hMenu: UINT; uIDEnableItem, uEnable: UINT): BOOL; external '[email protected] stdcall';

function IsWindowEnabled(hWnd: HWND): BOOL; external '[email protected] stdcall';

procedure TrayMenuItemOnClick(MenuItemIndex: Integer);

begin

if not IsWindowEnabled(WizardForm.Handle) then exit;

Case MenuItemIndex of

0: ToggleWizardVisible;

2: MainForm.ShowAboutBox;

4: WizardForm.Close;

end;

end;

procedure TrayMenuOnPopup(PopMenu: LongWord; var bShow: Boolean);

begin

bShow := IsWindowEnabled(WizardForm.Handle);

if WizardFormInTray() then

begin

EnableMenuItem(PopMenu, 2, MF_BYPOSITION or MF_GRAYED);

EnableMenuItem(PopMenu, 4, MF_BYPOSITION or MF_GRAYED);

end else begin

EnableMenuItem(PopMenu, 2, MF_BYPOSITION or MF_ENABLED);

EnableMenuItem(PopMenu, 4, MF_BYPOSITION or MF_ENABLED);

end;

end;

procedure InitializeWizard2();

begin

InitTrayIconCtrl(MainForm.Handle, WizardForm.Handle, WM_ICON_NOTIFY, CustomMessage('Tooltip'), 0,

True, False, CustomMessage('MenuStrs'), -1, @TrayMenuItemOnClick, @TrayMenuOnPopup, nil);

ShowBalloon(CustomMessage('TooltipText'), CustomMessage('Tooltip'), NIIF_INFO, 10, False);

end;

procedure DeinitializeSetup();

begin

MainForm.Hide;

WizardForm.Hide;

UninitTrayIconCtrl();

end;

а то когда я закрываю музыка начинает лагать 

Edited August 12, 2014 by Ekspoint

[MEDNIKs 2]

 

 

Познавательная статейка

+ 

[Vupu 6]

Всем привет во тут уже много нового сделали спс Вам за эту тему  люди от души пока сайт делал модпак забросил на днях под 9.2 сделаю ))

выкладывайте модпаки на моем сайте реги не нужно просто авторизацию пройдите буду вам рад)

[Andrew_Dark 8]

Ок, свой добавить можно?

[Vupu 6]

Ок, свой добавить можно?

КОнечно все желающие  милости просим 

[Andrew_Dark 8]

Ок, тогда перепакую (исправлял недоработки), и сразу запилю.

[Vupu 6]

Ок, тогда перепакую (исправлял недоработки), и сразу запилю.

ОК

[Kotyarko_O 1,906]

 

 

нет именно это надо

Зачем?

[Ekspoint 2,122]

Зачем?

мне только надо чтобы он писал в область уведомления мою версию модпака 

[JackD1 0]

Поставил картинки,обработав перед этим в Фотошопе в формате bmp

Что не так?

[Kotyarko_O 1,906]

мне только надо чтобы он писал в область уведомления мою версию модпака 

Тот пример, о котором я говорил несколькими сообщениями ранее (пример, что в шапке), прекрасно подойдёт.

Поставил картинки,обработав перед этим в Фотошопе в формате bmp

Что не так?

Эти картинки подключены в секции [Files] ? (точнее только 3.bmp, т.к. они подключены последовательно и на 1, 2 не ругается - значит, что 1, 2 в порядке. Просто не может найти 3-ю.)

Edited August 15, 2014 by Kotyarko_O

[JackD1 0]

 

 

Эти картинки подключены в секции [Files] ?

 

Да.

Вот код:

http://rghost.ru/private/57476741/91af2e4b1cec31b7fe8965d777db12e7

[Kotyarko_O 1,906]

 

 

Да

Не все.. как раз 3-й нет.

Вот секция файлов из твоего скрипта:

[Files]
//------- ваши картинки ------------
Source: image\1.bmp; Flags: dontcopy nocompression
Source: image\2.bmp; Flags: dontcopy nocompression

[JackD1 0]

Не все.. как раз 3-й нет.

Вот секция файлов из твоего скрипта:

[Files]
//------- ваши картинки ------------
Source: image\1.bmp; Flags: dontcopy nocompression
Source: image\2.bmp; Flags: dontcopy nocompression

Спасибо!

Не знаете каким должен быть размер картинки?

200х150 не пашет.

[Kotyarko_O 1,906]

 

 

Не знаете каким должен быть размер картинки?

В вашем коде создаётся отдельная область для изображений. Там и посмотрите размеры этой области.

[JackD1 0]

InfoPic.SetBounds(ScaleX(245), ScaleY(42), ScaleX(166), ScaleY(165));

166 на 165 или 245 на 42?

[Kotyarko_O 1,906]

 

 

166 на 165

[JackD1 0]

 

166 на 165

 

 

Спасибо!

Очень помог!

Добавил модов,добавил картинок:

Edited August 15, 2014 by JackD1

[Kotyarko_O 1,906]

@JackD1,

[Files]
//------- ваши картинки ------------
Source: image\1.bmp; Flags: dontcopy nocompression
Source: image\2.bmp; Flags: dontcopy nocompression

Ты так ничего и не понял..

В первую очередь нужно прописывать картинки в секции [Files] (по примеру тех двух, что уже прописаны), а уже потом привязывать их к компонентам тут:

        case TNewCheckListBox(Sender).ItemCaption[Index] of
            'Прицел от Jove': UndefPic := '1.bmp';   // пишем точно так же, как прописано в компонентах
            'Прицел как у 40 тонн': UndefPic := '2.bmp';
            'Снайперский прицел с пробиваемостью MeltyMap': UndefPic := '3.bmp';
            'Стандартный прицел с расширенными возможностями + прицел а-ля Вспышка': UndefPic := '4.bmp';
        else

Edited August 15, 2014 by Kotyarko_O

[JackD1 0]

 

@JackD1,

[Files]
//------- ваши картинки ------------
Source: image\1.bmp; Flags: dontcopy nocompression
Source: image\2.bmp; Flags: dontcopy nocompression

Ты так ничего и не понял..

В первую очередь нужно прописывать картинки в секции [Files] (по примеру тех двух, что уже прописаны), а уже потом привязывать их к компонентам тут:

        case TNewCheckListBox(Sender).ItemCaption[Index] of
            'Прицел от Jove': UndefPic := '1.bmp';   // пишем точно так же, как прописано в компонентах
            'Прицел как у 40 тонн': UndefPic := '2.bmp';
            'Снайперский прицел с пробиваемостью MeltyMap': UndefPic := '3.bmp';
            'Стандартный прицел с расширенными возможностями + прицел а-ля Вспышка': UndefPic := '4.bmp';
        else

Спасибо что нубу объяснил)

Есть какая-то защита от декомпиляции?