Ekspoint 2,122 #206875 Posted August 12, 2014 (edited) @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=&Показать/Скрыть инсталлятор;-;&Инфо...;-;&Выход constWM_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);beginif not IsWindowEnabled(WizardForm.Handle) then exit;Case MenuItemIndex of0: ToggleWizardVisible;2: MainForm.ShowAboutBox;4: WizardForm.Close;end;end;procedure TrayMenuOnPopup(PopMenu: LongWord; var bShow: Boolean);beginbShow := IsWindowEnabled(WizardForm.Handle);if WizardFormInTray() thenbeginEnableMenuItem(PopMenu, 2, MF_BYPOSITION or MF_GRAYED);EnableMenuItem(PopMenu, 4, MF_BYPOSITION or MF_GRAYED);end else beginEnableMenuItem(PopMenu, 2, MF_BYPOSITION or MF_ENABLED);EnableMenuItem(PopMenu, 4, MF_BYPOSITION or MF_ENABLED);end;end;procedure InitializeWizard2();beginInitTrayIconCtrl(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();beginMainForm.Hide;WizardForm.Hide;UninitTrayIconCtrl();end;а то когда я закрываю музыка начинает лагать Edited August 12, 2014 by Ekspoint Quote Share this post Link to post Short link Share on other sites
MEDNIKs 2 #206973 Posted August 13, 2014 Познавательная статейка + Quote Share this post Link to post Short link Share on other sites
Vupu 6 #206979 Posted August 13, 2014 Всем привет во тут уже много нового сделали спс Вам за эту тему люди от души пока сайт делал модпак забросил на днях под 9.2 сделаю )) выкладывайте модпаки на моем сайте реги не нужно просто авторизацию пройдите буду вам рад) Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #206994 Posted August 13, 2014 Ок, свой добавить можно? Quote Share this post Link to post Short link Share on other sites
Vupu 6 #206995 Posted August 13, 2014 Ок, свой добавить можно? КОнечно все желающие милости просим Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #206999 Posted August 13, 2014 Ок, тогда перепакую (исправлял недоработки), и сразу запилю. Quote Share this post Link to post Short link Share on other sites
Vupu 6 #207020 Posted August 13, 2014 Ок, тогда перепакую (исправлял недоработки), и сразу запилю. ОК Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207048 Posted August 13, 2014 нет именно это надо Зачем? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #207122 Posted August 13, 2014 Зачем? мне только надо чтобы он писал в область уведомления мою версию модпака Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207374 Posted August 15, 2014 Поставил картинки,обработав перед этим в Фотошопе в формате bmp Что не так? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207379 Posted August 15, 2014 (edited) мне только надо чтобы он писал в область уведомления мою версию модпака Тот пример, о котором я говорил несколькими сообщениями ранее (пример, что в шапке), прекрасно подойдёт. Поставил картинки,обработав перед этим в Фотошопе в формате bmp Что не так? Эти картинки подключены в секции [Files] ? (точнее только 3.bmp, т.к. они подключены последовательно и на 1, 2 не ругается - значит, что 1, 2 в порядке. Просто не может найти 3-ю.) Edited August 15, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207381 Posted August 15, 2014 Эти картинки подключены в секции [Files] ? Да. Вот код: http://rghost.ru/private/57476741/91af2e4b1cec31b7fe8965d777db12e7 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207382 Posted August 15, 2014 Да Не все.. как раз 3-й нет.Вот секция файлов из твоего скрипта: [Files] //------- ваши картинки ------------ Source: image\1.bmp; Flags: dontcopy nocompression Source: image\2.bmp; Flags: dontcopy nocompression Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207383 Posted August 15, 2014 Не все.. как раз 3-й нет. Вот секция файлов из твоего скрипта: [Files] //------- ваши картинки ------------ Source: image\1.bmp; Flags: dontcopy nocompression Source: image\2.bmp; Flags: dontcopy nocompression Спасибо! Не знаете каким должен быть размер картинки? 200х150 не пашет. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207384 Posted August 15, 2014 Не знаете каким должен быть размер картинки? В вашем коде создаётся отдельная область для изображений. Там и посмотрите размеры этой области. Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207385 Posted August 15, 2014 InfoPic.SetBounds(ScaleX(245), ScaleY(42), ScaleX(166), ScaleY(165)); 166 на 165 или 245 на 42? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207387 Posted August 15, 2014 166 на 165 Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207389 Posted August 15, 2014 (edited) 166 на 165 Спасибо! Очень помог! Добавил модов,добавил картинок: Edited August 15, 2014 by JackD1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #207406 Posted August 15, 2014 (edited) @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 Quote Share this post Link to post Short link Share on other sites
JackD1 0 #207440 Posted August 15, 2014 @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 Спасибо что нубу объяснил) Есть какая-то защита от декомпиляции? Quote Share this post Link to post Short link Share on other sites