1. Пожалуйста! Отключите Adblock. Это единственный способ оплаты за хостинг. Вам не будет показано куча рекламы и звуковой рекламы. Только реклама Google по интересам. Подробнее..
    Скрыть объявление
  2. Скрыть объявление

Установщик Inno Setup Compiler

Тема в разделе "Общение и обсуждение по World of Tanks", создана пользователем Draug, 23 май 2016.

  1. Draug

    Draug Любопытный

    Сообщения:
    27
    Симпатии:
    21
    Вопросы по инсталятору Inno Setup Compiler
     
  2. Draug

    Draug Любопытный

    Сообщения:
    27
    Симпатии:
    21
    Народ всем привет! Давно ломаю голову как в установщике Inno Setup Compiler сделать так чтоб при наведении на выбираемый мод/чит показывалась его картинка!
    (просмотрел кучу видео, и инфы что то не то...)
     
  3. DontWorry

    DontWorry кто, если не мы

    Сообщения:
    4.642
    Симпатии:
    3.028
    Код:
    [Setup]
    AppName=My Program
    AppVerName=My Program v.1.2
    DefaultDirName={pf}\My Program
    Compression=none
    AppId=TheBestAppId
    DisableWelcomePage=yes
    DisableFinishedPage=yes
    DisableDirPage=yes
    DisableReadyPage=yes
    
    
    [Components]
    Name: hl2; Description: Half-Life 2; Flags: disablenouninstallwarning
    Name: hl2\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
    Name: hl2\en; Description: English; Flags: disablenouninstallwarning exclusive
    
    Name: ep1; Description: Half-Life 2 Episode One; Flags: disablenouninstallwarning
    Name: ep1\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
    Name: ep1\en; Description: English; Flags: disablenouninstallwarning exclusive
    
    Name: ep2; Description: Half-Life 2 Episode Two; Flags: disablenouninstallwarning
    Name: ep2\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
    Name: ep2\en; Description: English; Flags: disablenouninstallwarning exclusive
    
    Name: portal; Description: Portal; Flags: disablenouninstallwarning
    Name: portal\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
    Name: portal\en; Description: English; Flags: disablenouninstallwarning exclusive
    
    
    [Files]
    Source: Wasteland_Scanner_con.bmp; Flags: dontcopy nocompression
    Source: Strider_early2.bmp; Flags: dontcopy nocompression
    Source: Cremator_poster.bmp; Flags: dontcopy nocompression
    Source: Portal.bmp; Flags: dontcopy nocompression
    
    
    [code]
    #ifdef UNICODE
        #define A "W"
    #else
        #define A "A"
    #endif
    
    const
        UNDEF_INDEX = -777;
        ALPHA_BLEND_LEVEL = 128; // max=Byte=255
    
        WS_EX_LAYERED = $80000;
        WS_EX_TRANSPARENT = $20;
        LWA_COLORKEY = 1;
        LWA_ALPHA = 2;
        GWL_EXSTYLE = (-20);
    
    
    var
        InfoPic: TBitmapImage;
        LastIndex: Integer;
        TempPath: String;
        PicForm: TForm;
    
    
    type
        COLORREF = DWORD;
    
    
    function GetCursorPos(var lpPoint: TPoint): BOOL; external [email protected] stdcall';
    function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external [email protected] stdcall';
    function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external [email protected] stdcall';
    function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external [email protected] stdcall';
    function SetFocus(hWnd: HWND): HWND; external [email protected] stdcall';
    
    
    procedure ShowPicHint(const PicFilePath: String);
    var
        pt: TPoint;
    begin
        if not GetCursorPos(pt) then Exit;
        InfoPic.Bitmap.LoadFromFile(PicFilePath);
        try
            with PicForm do
            begin
                SetBounds(ScaleX(pt.x + 16), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);
                Show;
            end;
        finally
            SetFocus(WizardForm.Handle);
        end;
    end;
    
    
    procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
    var
        UndefPic: String;
    begin
        if Index = -1 then Exit;
        if Index = LastIndex then Exit;
        try
            case TNewCheckListBox(Sender).ItemCaption[Index] of
                'Half-Life 2': UndefPic := 'Wasteland_Scanner_con.bmp';
                'Half-Life 2 Episode One': UndefPic := 'Strider_early2.bmp';
                'Half-Life 2 Episode Two': UndefPic := 'Cremator_poster.bmp';
                'Portal': UndefPic := 'Portal.bmp';
            else
                begin
                    LastIndex := UNDEF_INDEX;
                    PicForm.Hide;
                    Exit;
                end;
            end;
            if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
            ShowPicHint(TempPath + UndefPic);
        finally
            LastIndex := Index;
        end;
    end;
    
    
    procedure CompOnMouseLeave(Sender: TObject);
    begin
        PicForm.Hide;
        LastIndex := -1;
    end;
    
    
    procedure InitInfo();
    begin
        WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
        WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
        TempPath := AddBackslash(ExpandConstant('{tmp}'));
        LastIndex := UNDEF_INDEX;
        PicForm := TForm.Create(WizardForm)
        with PicForm do
        begin
            BorderStyle := bsNone;
            FormStyle := fsStayOnTop;
            InfoPic := TBitmapImage.Create(PicForm)
            with InfoPic do
            begin
                Parent := PicForm;
                AutoSize := True;
            end;
        end;
        SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
        SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA);
    end;
    
    
    procedure InitializeWizard();
    begin
        InitInfo();
    end;
     
    Draug нравится это.
  4. Draug

    Draug Любопытный

    Сообщения:
    27
    Симпатии:
    21
    начну тестить... все по старинке методом тыка! )
     
  5. DontWorry

    DontWorry кто, если не мы

    Сообщения:
    4.642
    Симпатии:
    3.028
    Правильно, так и вершатся великие дела ;)
     
  6. Draug

    Draug Любопытный

    Сообщения:
    27
    Симпатии:
    21
    метод тыка что то не помогает((... вот мой скрипт куда конкретно поставить?
    Код:
    ; Этот сценарий создан с помощью Мастера Inno Setup.
    ; ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP!
    
    #define MyAppName "D Mod"
    #define MyAppVersion "5"
    #define MyAppPublisher "Draug"
    
    [Setup]
    ; Примечание: Значение AppId является уникальным идентификатором для этого приложения.
    ; Не используйте одно и тоже значение AppId для разных приложений.
    ; (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".)
    AppId={{2C7108C9-DF1D-4C23-A88F-C72B273ADE21}
    AppName={#MyAppName}
    AppVersion={#MyAppVersion}
    ;AppVerName={#MyAppName} {#MyAppVersion}
    AppPublisher={#MyAppPublisher}
    DefaultDirName=C:\Games\World_of_Tanks\res_mods
    DefaultGroupName={#MyAppName}
    LicenseFile=C:\Users\D\Desktop\Lic.rtf
    InfoBeforeFile=C:\Users\D\Desktop\info.rtf
    InfoAfterFile=C:\Users\D\Desktop\fin.rtf
    OutputDir=C:\Users\D\Desktop
    OutputBaseFilename=D Mod v.5
    SetupIconFile=C:\Users\D\Desktop\Новая папка (4)\333.ico
    UninstallDisplayIcon=C:\Users\D\Desktop\Новая папка (4)\333.ico
    Compression=lzma
    SolidCompression=yes
    WizardImageFile=12.bmp
    WizardSmallImageFile=1.bmp
    
    [Languages]
    Name: "english"; MessagesFile: "compiler:Languages\English.isl"
    Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
    
    [Files]
    Source: "C:\Users\D\Desktop\1-Отражение броней\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\BR
    Source: "C:\Users\D\Desktop\2-Минималистичный лог анесенного урона\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\MLY
    Source: "C:\Users\D\Desktop\3-Мод тылы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\TL
    Source: "C:\Users\D\Desktop\4-Зум 30\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\ZYM
    Source: "C:\Users\D\Desktop\5-командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\KK
    Source: "C:\Users\D\Desktop\7-Улучшенный стандартный прицел\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PSU
    Source: "C:\Users\D\Desktop\8-Прицел Спектр\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PC
    Source: "C:\Users\D\Desktop\6-Damage Panel от Dellux\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\DPD
    Source: "C:\Users\D\Desktop\11-Tundra mod\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\TU
    Source: "C:\Users\D\Desktop\12-удаление простреливаемых объектов от Polar Fox\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\YPO
    Source: "C:\Users\D\Desktop\13-Разрушенные объекты от doc77\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\ROK
    Source: "C:\Users\D\Desktop\14-Pro_Aim от Makct\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PAM
    Source: "C:\Users\D\Desktop\15-Lhit Мод попадания в противника без засвета\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\BZ
    Source: "C:\Users\D\Desktop\16-Красные шары на месте выстрела (для арты)\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\KSA
    Source: "C:\Users\D\Desktop\9-Специальный зум для арты - Battle Assistant reven86\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\SA
    Source: "C:\Users\D\Desktop\20-Постоянная обводка танков BlackWot\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\OTBW
    Source: "C:\Users\D\Desktop\19-таймер перезарядки врагов Lsdmax\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PV
    Source: "C:\Users\D\Desktop\2.1-Подробный счетчик нанесенного урона\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PLY
    Source: "C:\Users\D\Desktop\9-ЛБЗ в бою Адьютант\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\ILB
    Source: "C:\Users\D\Desktop\23-обычные лазеры\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\OL
    Source: "C:\Users\D\Desktop\18-Автоогнетушитель\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\AO
    Source: "C:\Users\D\Desktop\21-перезарядка арты\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PA
    Source: "C:\Users\D\Desktop\22-Мод тень от Polar Fox\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\MT
    Source: "C:\Users\D\Desktop\24-шар на месте танка вне отрисовки Lportii\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\SHAR
    Source: "C:\Users\D\Desktop\14.1аим огр ниндзя\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PAON
    Source: "C:\Users\D\Desktop\10.1-Статистика за сессию SeVeRRR\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\SZS
    Source: "C:\Users\D\Desktop\24.1-Мод красные столбы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\MKS
    Source: "C:\Users\D\Desktop\6.1-Damage Panel от GambitER\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\DPG
    Source: "C:\Users\D\Desktop\5.1Индикатор направления обстрела\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\INO
    Source: "C:\Users\D\Desktop\10-Углы горизонтальной наводки (для ПТ)\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\YGN
    Source: "C:\Users\D\Desktop\15.1-попадание без засвета от Polar Fox\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\BZPF
    Source: "C:\Users\D\Desktop\17-автолечение+авторемонт Dkmn\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\ARL
    Source: "C:\Users\D\Desktop\19.1-таймер перезарядки полоской Roughnecks\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\TPP
    Source: "C:\Users\D\Desktop\7.1-Точный прицел Бирюза\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\TPB
    Source: "C:\Users\D\Desktop\24.2-Красные столбы с отметками от SpongeDoc\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\MKSO
    Source: "C:\Users\D\Desktop\7.2-прицел MeltyMaps\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;Components:KMP\PMM
    ; Примечание: Не используйте' флаги "ignoreversion" для общих системных файлов.
    
    [Types]
    Name: custom; Description: Full installation; Flags: iscustom
    
    [Components]
    Name: KMP; Description: Разрешенные; Flags:
    Name: KMP\BR; Description: 1.Броня (Отражение броней).
    Name: KMP\TL; Description: 2.Мод тылы.
    Name: KMP\ZYM; Description: 3.Снайперский зум х30.
    Name: KMP\KK; Description: 4.Командирская камера.
    Name: KMP\ILB; Description: 5.Адьютант (информация лбз в бою).
    Name: KMP\INO; Description: 6.Индикатор направления обстрела.
    Name: KMP\YGN; Description: 7.Углы горизонтальной наводки (для ПТ).
    Name: KMP\SA; Description: 8.Специальный зум для арты - Battle Assistant (reven86).
    Name: KMP\SZS; Description: 9.Статистика за сессию (SeVeRRR).
    
    Name: KMP; Description: Прицелы; Flags:
    Name: KMP\PSU; Description: 1.Улучшенный стандартный прицел.;Flags:exclusive
    Name: KMP\PC; Description: 2.Прицел Спектр.;Flags:exclusive
    Name: KMP\TPB; Description: 3.Прицел Бирюза.;Flags:exclusive
    Name: KMP\PMM; Description: 3.Прицел с информацией бронепробития Melty Maps.;Flags:exclusive
    
    Name: KMP; Description: Счетчик нанесенного урона; Flags:
    Name: KMP\MLY; Description: 1.Минималистичный лог.;Flags:exclusive
    Name: KMP\PLY; Description: 2.Подробный лог.;Flags:exclusive
    
    Name: KMP; Description: Панели повреждений с логом полученного урона; Flags:
    Name: KMP\DPD; Description: 1.Damage Panel от Dellux.;Flags:exclusive
    Name: KMP\DPG; Description: 2.Damage Panel от GambitER.;Flags:exclusive
    
    Name: KMP; Description: Запрещенные; Flags:
    Name: KMP\TU; Description: 1.Тундра (Makct).
    Name: KMP\OTBW; Description: 2.Обводка танков - Рентген (BlackWot).
    Name: KMP\YPO; Description: 3.Удаление простреливаемых объектов (Polar Fox).
    Name: KMP\ROK; Description: 4.Разрушенные объекты на мини карте (doc77).
    Name: KMP\KSA; Description: 5.Красные шары на месте выстрела арты (#ЗАПРЕЩЕНО).
    Name: KMP\OL; Description: 6.Лазерная указка.
    Name: KMP\AO; Description: 7.Автоогнетушитель.
    Name: KMP\ARL; Description: 8.Авторемонт и автолечение (Dkmn).
    Name: KMP\PA; Description: 9.Перезарядка арты.
    Name: KMP\MT; Description: 10.Мод тень (Polar Fox).
    
    Name: KMP; Description: Таймер перезарядки над танками; Flags:
    Name: KMP\PV; Description: 1.Перезарядка над противниками в секундах (Lsdmax).;Flags:exclusive
    Name: KMP\TPP; Description: 2.Перезарядки над союзниками и противниками полоской (Roughnecks).;Flags:exclusive
    
    Name: KMP; Description: Автоприцелы AimBot; Flags:
    Name: KMP\PAM; Description: 1.Aim от Makct.;Flags:exclusive
    Name: KMP\PAON; Description: 2.Aim от Ogre Ninja.;Flags:exclusive
    
    Name: KMP; Description: Попадания в противника без засвета; Flags:
    Name: KMP\BZ; Description: 1.Попадания без засвета - Надпись (Lportii)..;Flags:exclusive
    Name: KMP\BZPF; Description: 2.Попадание без засвета - Шар (Polar Fox).;Flags:exclusive
    
    Name: KMP; Description: Сферы противника вне отрисовки видимости; Flags:
    Name: KMP\SHAR; Description: 1.Шар на месте танка вне отрисовки (Lportii).;Flags:exclusive
    Name: KMP\MKS; Description: 2.Мод красные столбы (#ЗАПРЕЩЕНО).;Flags:exclusive
    Name: KMP\MKSO; Description: 2.Мод красные столбы с отметками(SpongeDoc).;Flags:exclusive
     
    Последнее редактирование: 23 май 2016
  7. DontWorry

    DontWorry кто, если не мы

    Сообщения:
    4.642
    Симпатии:
    3.028
    Я сейчас к сожалению занят, если в ближайшее время освобожусь, то помогу.
    Ну а так могу предложить два варианта, либо копируйте все из того кода, что я дал, в свой. Или в тот код копируйте свои данные и делайте на его основе (я так вначале делал :D)
     
  8. Draug

    Draug Любопытный

    Сообщения:
    27
    Симпатии:
    21
    как только уже не пробовал ничего не получается... :(
     

Поделиться
Рейтинг: 10 из 10