Jump to content
Korean Random

Nowik1971

User
  • Posts

    143
  • Joined

  • Last visited

Posts posted by Nowik1971

  1. Проверил на последней версии MCTCreator_1.1.4.105 все работает. 

     Да проверил и действительно все работает...в этой версии креатора, спасибо! Заменил на новую версию и все пошло...

    Хатабыч спасибо тебе, вчера смотрел вроде не было этой версии, а после твоего сообщения скачал, проверил и в вмонтировал в модпак уже на тестовом обкатал и в обнове 0.9.17.1 будет в модпаке. абсолютно все работает, так же огромное спасибо StranikS_Scan за его работу!!!

    У меня правда код на первой странице. но принцип понял да и night_dragon_on помог, так же спасибо парню за его мучения с моей не внимательностью....

    Nowik1971 Я ТАК ПОНЯЛ КТО В ЭТОМ НЕ ШАРИТ ПРИДЁТСЯ ЗАБРОСИТЬ МОДПАКИ , ЕСЛИ ПОСЧИТАТЬ ПО МОД ПАКАМ НАС ЧЕЛОВЕК 30 И ОСТАНУТСЯ ЕДИНИЦЫ

    ПОЛОВИНА МОДОДЕЛОВ ТОЖЕ БРОСЯТ А ТАКИЕ КАК ЮША КАК ОБЫЧНО В СТРИМАХ СКАЖЕТ ЧТО ЭТО ЕГО МОДЫ 

    ЧТО ОН ИХ ТОЖЕ ДЕЛАЕТ И В ДОКАЗУХУ НЕ ОДНОГО СВОЕГО МОДА ПОКАЗАТЬ НЕ МОЖЕТ ДЖОВ ТОЛЬКО ЗА ОДИН ТВИКЕР МОЖЕТ СКАЗАТЬ И ЭТО ГОВОРИТ ЧТО ЭТО ДЛЯ НЕГО МОД ДЕЛАЛИ - ТО ЕСТЬ НЕ ОН

    А причем здесь я -то? если ты желаешь забросить так и забрасывай, а я учусь и мозги свои старые напрягаю по маленько, что еще делать?! Жизнь не стоит на месте, авось и мне пригодятся знания.

  2. Я имел ввиду при создании  пэкаджи..., а так я знаю, что все это делается и в модпаке у меня все стоит и работает, просто решил попробовать, все создается кроме всего того, что ничего не работает в этом патче (0.9.17.0.3) и некоторые папки (spaces) в пакеджи не кидает ....

  3. т.е. получается что только сбитые гусеницы и танк убитый изнутри перекрашивается и все? 

    Автор наверное примет меры и почитает и здесь в теме и поправит...  мне так кажется.... Хотя у меня и гусеницы сбитые не показывает, пробую сейчас разные варианты, просто заинтриговало.. может что получится...

  4. night_dragon_on, on 04 Feb 2017 - 13:36, said:
     

     

    Спасибо огромнейшее за помощь спасибо !

    monochromatic_texture.wotmod создается, но в 0.9.17.0.3 не работает, и папка spaces отсутствует в архиве, а распаковывается в res_mods\0.9.17.0.3 не  знаю где косяк, вроде все сделал как Вы и показали. Но все равно Вам Жирнейший плюс+++

    Сейчас попробую не тестовом сервере...

  5. да даже переименновываешь или другие пишешь они обратно появляются на 3  из 2 страницы тоесть копируют автоматом и копец что я только не делал

     

    комплист 3 пытался сделать на основе скрипта что выше

    Через редактор формы легко сделать хоть сто страниц... попробуйте там все понятно и тогда поймете....

    вот пример сде6лал за 15 секунд.... простой

    'Пример'

    ; Скрипт создан через Мастер Inno Setup Script.
    ; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!
    
    [Setup]
    AppName=My Application
    AppVersion=1.5
    DefaultDirName={pf}\My Application
    
    [ISFormDesigner]
    WizardForm=FF0A005457495A415244464F524D003010BF04000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E747350616765084E65787450616765070D4953437573746F6D50616765310C4578706C696369744C65667402600D4578706C6963697457696474680341010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650C50726576696F757350616765070D4953437573746F6D5061676533000010544E65774E6F7465626F6F6B506167650D4953437573746F6D50616765310743617074696F6E06154953437573746F6D50616765315F43617074696F6E0B4465736372697074696F6E06194953437573746F6D50616765315F4465736372697074696F6E0C50726576696F757350616765071453656C656374436F6D706F6E656E747350616765084E65787450616765070D4953437573746F6D50616765320D4578706C69636974576964746802000E4578706C696369744865696768740200000010544E65774E6F7465626F6F6B506167650D4953437573746F6D50616765320743617074696F6E06154953437573746F6D50616765325F43617074696F6E0B4465736372697074696F6E06194953437573746F6D50616765325F4465736372697074696F6E0C50726576696F757350616765070D4953437573746F6D5061676531084E65787450616765070D4953437573746F6D50616765330D4578706C69636974576964746802000E4578706C696369744865696768740200000010544E65774E6F7465626F6F6B506167650D4953437573746F6D50616765330743617074696F6E06154953437573746F6D50616765335F43617074696F6E0B4465736372697074696F6E06194953437573746F6D50616765335F4465736372697074696F6E0C50726576696F757350616765070D4953437573746F6D5061676532084E65787450616765071653656C65637450726F6772616D47726F757050616765000000000000
    
    [Code]
    { RedesignWizardFormBegin } // Не удалять эту строку!
    // Не изменять эту секцию. Она создана автоматически.
    var
      ISCustomPage1: TWizardPage;
      ISCustomPage2: TWizardPage;
      ISCustomPage3: TWizardPage;
    
    procedure RedesignWizardForm;
    begin
      { Creates custom wizard page }
      ISCustomPage1 := CreateCustomPage(wpSelectComponents, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
      ISCustomPage2 := CreateCustomPage(ISCustomPage1.ID, 'ISCustomPage2_Caption', 'ISCustomPage2_Description');
      ISCustomPage3 := CreateCustomPage(ISCustomPage2.ID, 'ISCustomPage3_Caption', 'ISCustomPage3_Description');
    
    { ReservationBegin }
      // Вы можете добавить ваш код здесь.
    
    { ReservationEnd }
    end;
    // Не изменять эту секцию. Она создана автоматически.
    { RedesignWizardFormEnd } // Не удалять эту строку!
    
    procedure InitializeWizard();
    begin
      RedesignWizardForm;
    end;
    
     

    • Downvote 1
  6.  Увы не работает .... там в окне Components,  а у меня идет после Components ..

     

    Поменяй... Это ведь пример... Список страниц в справке или погугли ... не помню где-то сам искал и находил в сети...

  7. когда просил помощи , я имел ввиду что мне нужна помощь !!! а не то что клянчил, и что бы за меня все сделали....

     

    Я уже сам пробовал сделать, но увы у меня не получилось ... 

     

    мой код

    [Files]
    Source: "MODS\WOT_TWEAKER\Отключения тумана\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
    Source: "MODS\WOT_TWEAKER\Отключить облака\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2;
    Source: "MODS\WOT_TWEAKER\Отключить тень под танками\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3;
    Source: "MODS\WOT_TWEAKER\Отключить эффект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4;
    Source: "MODS\WOT_TWEAKER\Отключить эффекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5;
    Source: "MODS\WOT_TWEAKER\Отключить эффект взрыва снарядов и попадания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
    Source: "MODS\WOT_TWEAKER\Отключить эффекты уничтожения танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
    Source: "MODS\WOT_TWEAKER\Отключить эффекты попадания по танкам\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
    Source: "MODS\WOT_TWEAKER\Отключить эффекты проявления погоды и дым от объектов на картах\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
    Source: "MODS\WOT_TWEAKER\Отключить дым и пламя от выстрелов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
    Source: "MODS\WOT_TWEAKER\Отключить дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\11;
    Source: "MODS\WOT_TWEAKER\Отключить дым из выхлопных труб танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\12;
    
    
    
    [Tasks]
    Name: "Tweaker"; Description: "<<WoT Tweaker>>";
    Name: "Tweaker\1"; Description: "Отключить туман"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\2"; Description: "Отключить отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\3"; Description: "Отключить тень под танками"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\4"; Description: "Отключить эффект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\5"; Description: "Отключить эффекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\6"; Description: "Отключить эффект взрыва снарядов и попадания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\7"; Description: "Отключить эффекты уничтожения танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\8"; Description: "Отключить эффекты попадания по танкам"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\9"; Description: "Отключить эффекты проявления погоды и дым от объектов на картах"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\10"; Description: "Отключить дым и пламя от выстрелов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\11"; Description: "Отключить дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    Name: "Tweaker\12"; Description: "Отключить дым из выхлопных труб танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
    
    

     

    нужно убрать ползунок (полосу прокрутки) или увеличить "окно" где пишутся чекбоксы.... (если не понятно написал сори)

    на скрине видно надеюсь

     

    attachicon.gif2016-12-13_075515.png

    Посмотри здесь если сам не воспользовался поиском по теме... http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=287645

    • Downvote 1
  8. — Ну-ка, поглядим, как тут избы делают?

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

    И сделают все за тебя.....

    "— Ну-ка двое из ларца. Замесить и нарубить! бррр… ну, наоборот же, все нарубить и замесить… Вы что, нарочно надо мной издеваться будете?

    — Ага!

    — Во-первых, пирожного! Во-вторых… Вы, чего, и пальцы за меня загибать будете?

    — Ага!

    — Так вы что, и конфеты за меня есть будете?!..

    — АГА!!!" :ok: 

     

    • Upvote 2
    • Downvote 2
  9. Всем Привет  

    искал в теме не нашел увы ...

     

    может кто может помочь !

    хочу создать отдельную страничку которая будет после выбора модов с выбором чебоксов отключения различных эффектов для повышения FPS (т.е. страницу WoT Tweaker)

    Плохо искал вот: http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=207638

    • Downvote 3
  10. всё равно он мне даёт путь C:\Games\World_of_Tanks а у меня танки на диске D

    скорей всего так и есть я скачивал на диск С а потом перетащил на диск D

    Я так и подозревал, потому, что у ребят в других папках стоит как и писал тебе на форуме, а у них все находит....Хотя .... может в чем-то и не прав надо у гуру здесь спрашивать я сам чайник самоучка...

    • Upvote 1
    • Downvote 1
  11. да давно я поменял ,у меня танки на диске D а он мне всё суёт диск С

    может просто ключи не подходят под мою версию винды и всё в таком роде 

    Ищет по реестру установленную программу и если ставил на С, а потом просто перенес на D то не знаю найдет или нет....

  12. всё равно не находит папку с игрой в скрипте не чего не изменял прописал как на скриншоте

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

  13. я тоже надеюсь пока только катал на гк и в рандом незаходил 

    случаем не знаешь скрипт чтоб автоматом находил папку с игрой

    Вот пожалуйста, хотя все это есть в этой теме, но ленивым помогу.....

    'Скрипт автоопределения папки с игрой'

    ; Скрипт создан через Мастер Inno Setup Script.
    ; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!
    #define Patch               "0.9.16"
    [Setup]
    AppName=My Application
    AppVersion=1.5
    DefaultDirName={code:WotDirNameRU}
    [Code]
    function WotDirNameRU(Path: String): String; // ключ для основного клиента  {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1
    begin
     if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
     begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
      Result := Path
     end else
     if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
     begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
      Result := Path
     end else
     if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
     begin
      RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
      Result := Path
     end else
     if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
     begin
      RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
      Result := Path
     end else
      Result := ExpandConstant('C:\Games\World_of_Tanks');
    end;
    //""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
    function WotDirNameCT(Path: String): String; // ключ для тестового клиента {1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1
    begin
     if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1') then
     begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', Path);
      Result := Path
     end else
      if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1') then
     begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', Path);
      Result := Path
     end else
     if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1') then
     begin
      RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', Path);
      Result := Path
     end else
     if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1') then
     begin
      RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', Path);
      Result := Path
     end else
      Result := ExpandConstant('C:\Games\World_of_Tanks_CT');
    end;
    
    
    

    • Downvote 1
  14. держи вот файлы

    'файлы к предыдущим компонентам'

    [Files]
    Source: "моды\3\Оповещение о засвете\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle2}'));
    Source: "моды\3\Replays Manager\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle3}'));
    
    Source: "моды\3\Синие трупы и белые сбитые гусеницы\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle5}'));
    Source: "моды\3\Круг 15 метров\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle6}'));
    Source: "моды\3\Мод Атас\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle7}'));
    Source: "моды\3\Измененное радиальное меню\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle8}'));
    Source: "моды\3\Мод Тылы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle9}'));
    Source: "моды\3\Медали во время боя\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle10}'));
    Source: "моды\3\Оповещение перезарядки в чате на кнопку C\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle11}'));
    Source: "моды\3\Декали попадания\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle12}'));
    
    Source: "моды\3\Озвучка\Экипажа\Duke Nukem\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle14}'));
    Source: "моды\3\Озвучка\Экипажа\Мародёр\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle15}'));
    Source: "моды\3\Озвучка\Экипажа\Радиопереговоры\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle16}'));
    
    Source: "моды\3\Озвучка\6 чувство\звук хищника + отсчет 10 сек\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle18}'));
    Source: "моды\3\Озвучка\6 чувство\Лампа + отсчет 10 сек\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle19}'));
    Source: "моды\3\Озвучка\6 чувство\тебе бегом надо валить\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle20}'));
    
    Source: "моды\3\Озвучка\Первая кровь\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs;  Check: COMP2(ExpandConstant('{cm:CompBatle21}')); 

  15. кто подскажет скрипт нового листа с компонентами а то всю голову сломал

    вот держи

    'Скрипт 2 листа с компонентами, но не с файлами как и просил'

    [CustomMessages]
    CompBatle1 = Прочие моды
    CompBatle2 = Оповещение о засвете
    CompBatle3 = Replays Manager
    
    CompBatle5 = Синие трупы и белые сбитые гусеницы
    CompBatle6 = Круг 15 метров
    CompBatle7 = Мод Атас
    CompBatle8 = Измененное радиальное меню
    CompBatle9 = Мод Тылы
    CompBatle10 = Медали во время боя
    CompBatle11 = Оповещение перезарядки в чате на кнопку C
    CompBatle12 = Декали попадания
    
    CompBatle13 = Озвучка экипажа
    CompBatle14 = Duke Nukem
    CompBatle15 = Мародёр
    CompBatle16 = Радиопереговоры
    
    CompBatle17 = Озвучка 6 чувства
    CompBatle18 = Звук хищника + отсчет 10 сек
    CompBatle19 = Лампа + отсчет 10 сек
    CompBatle20 = Тебе бегом надо валить
    CompBatle21 = Первая кровь
    
    
    
    [Code]
    procedure Components2;
    begin
      with ComponentsList2 do
      begin
      AddCheckBox(CustomMessage('CompBatle1'), '', 0, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle2'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle3'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle5'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle6'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle7'), '', 1, False, True, False, True, nil);
      //------------------------------------------------------------------------\\
      AddCheckBox(CustomMessage('CompBatle8'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle9'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle10'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle11'), '', 1, False, True, False, True, nil);
      AddCheckBox(CustomMessage('CompBatle12'), '', 1, False, True, False, True, nil);
      //------------------------------------------------------------------------\\
      AddCheckBox(CustomMessage('CompBatle13'), '', 1, False, True, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle14'), '', 2, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle15'), '', 2, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle16'), '', 2, False, True, nil);
      //------------------------------------------------------------------------\\
      AddCheckBox(CustomMessage('CompBatle17'), '', 1, False, True, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle18'), '', 2, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle19'), '', 2, False, True, nil);
      AddRadioButton(CustomMessage('CompBatle20'), '', 2, False, True, nil);
      //------------------------------------------------------------------------\\
      AddCheckBox(CustomMessage('CompBatle21'), '', 1, False, True, False, True, nil)
      //------------------------------------------------------------------------\\
      end;
    end;
    
    Function COMP2(Name: String): Boolean;
    var
     I: Integer;
    begin
    Result := False;
    for I := 0 to ComponentsList2.ItemCount - 1 do
    begin
      if (I <= ComponentsList2.ItemCount) then
      Result := ComponentsList2.Checked[ComponentsList2.Items.IndexOf(Name)];
    end;
    end;
    
    
    
    
    
     

  16. может я че не так понял но вроде это код чтобы пароль на архив ставить)) а я имел ввиду код чтобы после указанной даты установщик выдавал сообщение типа " срок годности установщика истек " )))  я те что тут видел в теме все перепробовал но если на компе дату поменять то уже установщик продолжает работу( 

    Наверное в реестр надо прописывать для сравнения дату установки или чтобы на серваке где-то файл проверки лежал и сравнивал, но тогда нужен инет постоянно. Я так предполагаю, сам этим не замарачивался...  пока не нужно... да и времени нет...

  17. Есть модуль шифрования + пароль. У меня есть код, в котором реализован хороший метод защиты от распаковки инсталлятора, но делиться им я вряд-ли буду..

     

    вот ты ранее писал на 10 странице....

    Кстати код приведенный выше почему-то ошибку выдает

    'Скрин ошибки'

    12319715.jpg

    вот как я сделал и что там не правильно?

    'код'

    [Setup]
    AppName=NewProgram
    AppVerName=NewProgram 1.0
    AppPublisher=Youre Company
    DefaultDirName={pf}\Youre Company\NewProgram
    DefaultGroupName=Youre Company\NewProgram
    OutputBaseFilename=Setup
    Compression=Zip
    SolidCompression=No
    UninstallDisplayIcon="{app}\"
    DiskSpanning=No
    
    ShowLanguageDialog=no
    WizardImageStretch=yes
    Encryption=yes
    Password=CheGeVaRa0
    
    [[Setup]
    
    
    [Code]
    var
      str: string;
      MyArray: array of Char;
    
    function InitializeSetup(): Boolean;
    begin
      MyArray := ['A','B','C','D','E','F','G','H','I','J','K','L','M',
                  'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
                  'a','b','c','d','e','f','g','h','i','j','k','l','m',
                  'n','o','p','q','r','s','t','u','v','w','x','y','z',
                  '1','2','3','4','5','6','7','8','9','0',
                  '!','@','#','$','%','^','&','*','(',')','.'];
      Result:= True;
    end;
    
    function CheckPassword(Password: String): Boolean;
    begin
        WizardForm.PasswordEdit.Text:= 'Der Пароль';
        WizardForm.PasswordPage.Free;
        Result:= True;
    end;
    
    procedure CurPageChanged(CurPageID: Integer);
    begin
      If CurPageID=wpPassword then
    begin
      WizardForm.PasswordEdit.Text:= MyArray[2]+MyArray[33]+MyArray[30]+MyArray[6]+MyArray[30]+MyArray[21]+MyArray[26]+MyArray[17]+MyArray[26]+
                      IntToStr(StrToInt(str) - StrToInt(GetDateTimeString('ss', #0, #0)));
      WizardForm.NextButton.OnClick(WizardForm.NextButton);
    end;
    end;
    
    function NextButtonClick(CurPage: Integer): Boolean;
    begin
      str:= GetDateTimeString('ss', #0, #0);
      Result:= True;
    end; 

×
×
  • Create New...