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

saurn · Конфигурация компьютера

Цитата Mat_y:

Есть ли способ убить запущенный процесс (рабочую программу) при установке на нее? В справке нашел 2 варианта, но ни один не сработал... »

В шапке есть пример. И несколько страниц назад было.

Farser21 · Отправлено: **11:32, 26-10-2013** | #**1362**

Nordek, спасибо.
И еще возник вопрос.
Когда я использую Flags: exclusive, то почему-то сразу флажки выставлены.
А когда я использую Flags: dontinheritcheck, то флажки не стоят.

Как сделать так чтобы изначально флажки не где не стояли. А то немного не удобно каждый раз самому их убирать.
Заранее спасибо.

saurn · Конфигурация компьютера

Цитата Farser21:

Как сделать так чтобы изначально флажки не где не стояли. »

Цитата Nordek:

Удали строчку что касается Types. »

Код:

[Components]
Name: a; Description: aaa; Types: custom

Farser21 · Отправлено: **12:06, 26-10-2013** | #**1364**

saurn, в том то и дело что такой строчки у меня нету.

Скрипт

saurn · Конфигурация компьютера

Farser21, тьфу, сразу не понял, что вам нужно

Насколько мне известно(могу и ошибатся), при использовании флага exclusive хотя бы один компонент, из имеющих этот флаг, будет отмечен по умолчанию.
Но можно снять отметки со всех компонентов через код:

Код:


[Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
    UNDEF_INDEX       = -777;
    ALPHA_BLEND_LEVEL = 230; // max=Byte=255

    WS_EX_LAYERED     = $80000;
    WS_EX_TRANSPARENT = $20;
    LWA_COLORKEY     = 1;
    LWA_ALPHA        = 2;
    GWL_EXSTYLE      = (-20);

    Color = clblack;
    
    
type
    COLORREF = DWORD;


function GetCursorPos(var lpPoint: TPoint): BOOL;
    external 'GetCursorPos@user32.dll stdcall';
function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean;
    external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint;
    external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint;
    external 'SetWindowLong{#A}@user32.dll stdcall';
function SetFocus(hWnd: HWND): HWND;
    external 'SetFocus@user32.dll stdcall';
    
    
var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;
    PicForm: TForm;
    
    
procedure Formcolor();
begin
    WizardForm.Font.Color:=clWhite;
    WizardForm.TypesCombo.TabStop := False;
    WizardForm.Color:=Color;
    WizardForm.WelcomePage.Color:=Color;
    WizardForm.InnerPage.Color:=Color;
    WizardForm.FinishedPage.Color:=Color;
    WizardForm.LicensePage.Color:=Color;
    WizardForm.PasswordPage.Color:=Color;
    WizardForm.InfoBeforePage.Color:=Color;
    WizardForm.UserInfoPage.Color:=Color;
    WizardForm.SelectDirPage.Color:=Color;
    WizardForm.SelectComponentsPage.Color:=Color;
    WizardForm.SelectProgramGroupPage.Color:=Color;
    WizardForm.SelectTasksPage.Color:=Color;
    WizardForm.ReadyPage.Color:=Color;
    WizardForm.PreparingPage.Color:=Color;
    WizardForm.InstallingPage.Color:=Color;
    WizardForm.InfoAfterPage.Color:=Color;
    WizardForm.DirEdit.Color:=Color;
    WizardForm.DiskSpaceLabel.Color:=Color;
    WizardForm.DirEdit.Color:=Color;
    WizardForm.GroupEdit.Color:=Color;
    WizardForm.PasswordLabel.Color:=Color;
    WizardForm.PasswordEdit.Color:=Color;
    WizardForm.PasswordEditLabel.Color:=Color;
    WizardForm.ReadyMemo.Color:=Color;
    WizardForm.ReadyMemo.ScrollBars:= ssNone
    WizardForm.DirEdit.TabStop := False;
    WizardForm.TypesCombo.Color:=Color;
    WizardForm.WelcomeLabel1.Color:=Color;
    WizardForm.WelcomeLabel1.Font.Color:=clWhite;
    WizardForm.GroupEdit.TabStop := False;
    WizardForm.InfoBeforeClickLabel.Color:=Color;
    WizardForm.MainPanel.Color:=Color;
    WizardForm.PageNameLabel.Color:=Color;
    WizardForm.PageDescriptionLabel.Color:=Color;
    WizardForm.ReadyLabel.Color:=Color;
    WizardForm.FinishedLabel.Color:=Color;
    WizardForm.YesRadio.Color:=Color;
    WizardForm.NoRadio.Color:=Color;
    WizardForm.WelcomeLabel2.Color:=Color;
    WizardForm.LicenseLabel1.Color:=Color;
    WizardForm.InfoAfterClickLabel.Color:=Color;
    WizardForm.ComponentsList.Color:=Color;
    WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
    WizardForm.BeveledLabel.Color:=Color;
    WizardForm.StatusLabel.Color:=Color;
    WizardForm.FilenameLabel.Color:=Color;
    WizardForm.SelectDirLabel.Color:=Color;
    WizardForm.SelectStartMenuFolderLabel.Color:=Color;
    WizardForm.SelectComponentsLabel.Color:=Color;
    WizardForm.SelectTasksLabel.Color:=Color;
    WizardForm.LicenseAcceptedRadio.Color:=Color;
    WizardForm.LicenseNotAcceptedRadio.Color:=Color;
    WizardForm.UserInfoNameLabel.Color:=Color;
    WizardForm.UserInfoNameEdit.Color:=Color;
    WizardForm.UserInfoOrgLabel.Color:=Color;
    WizardForm.UserInfoOrgEdit.Color:=Color;
    WizardForm.PreparingLabel.Color:=Color;
    WizardForm.FinishedHeadingLabel.Color:=Color;
    WizardForm.FinishedHeadingLabel.Font.Color:=clWhite;
    WizardForm.ComponentsList.TreeViewStyle := True;
    WizardForm.UserInfoSerialLabel.Color:=Color;
    WizardForm.UserInfoSerialEdit.Color:=Color;
    WizardForm.TasksList.Color:=Color;
    WizardForm.RunList.Color:=Color;
    WizardForm.SelectDirBrowseLabel.Color:=Color;
    WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
    WizardForm.PageNameLabel.Font.Color:=clWhite;
end;


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);
            SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
            SetLayeredWindowAttributes(Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA);
            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
            'Анимированный прицел (Снайперский)': UndefPic := '{#Pic1}.bmp';
            'Белый прицел': UndefPic := '{#Pic2}.bmp';
            'Прицел как у 40 тонн': UndefPic := '{#Pic3}.bmp';
            'Прицел Кирилла Орешкина (Зеленый)': UndefPic := '{#Pic4}.bmp';
            'Прицел Кирилла Орешкина (Синий)': UndefPic := '{#Pic5}.bmp';
            'Сведение с Пробитием снаряда и Толщиной брони': UndefPic := '{#Pic6}.bmp';
            'Снайперский прицел (Простой)': UndefPic := '{#Pic7}.bmp';
            'Снайперский прицел Warface': UndefPic := '{#Pic8}.bmp';
            'Снайперский прицел Минималистический': UndefPic := '{#Pic9}.bmp';
            'Спайперский прицел ZX mini': UndefPic := '{#Pic10}.bmp';
            'Анимированный Арт-прицел': UndefPic := '{#Pic11}.bmp';
            'Арт-прицел (Белый)': UndefPic := '{#Pic12}.bmp';
            'Арт-прицел (Простой)': UndefPic := '{#Pic13}.bmp';
            'Необычный Арт-прицел': UndefPic := '{#Pic14}.bmp';
            'Анимированная Дамаг панель': UndefPic := '{#Pic15}.bmp';
            'Дамаг панель (Прозрачная)': UndefPic := '{#Pic16}.bmp';
            'Дамаг панель (Прозрачная) с таймером починки': UndefPic := '{#Pic17}.bmp';
            'Дамаг панель (С новыми иконками модулей)': UndefPic := '{#Pic18}.bmp';
            'Дамаг панель Xbox': UndefPic := '{#Pic19}.bmp';
            'Дамаг панель Бионик (Зеленый)': UndefPic := '{#Pic20}.bmp';
            'Дамаг панель Бионик (Черный)': UndefPic := '{#Pic21}.bmp';
            'Дамаг панель в стиле RPG': UndefPic := '{#Pic22}.bmp';
            'Дамаг панель от zayaz': UndefPic := '{#Pic23}.bmp';
            'Китайская дамаг панель': UndefPic := '{#Pic24}.bmp';
            'Дамаг индикатор (Легкий)': UndefPic := '{#Pic25}.bmp';
            'Дамаг индикатор (Простой)': UndefPic := '{#Pic26}.bmp';
            'Дамаг индикатор (Пуля)': UndefPic := '{#Pic27}.bmp';
            'Дамаг индикатор Warface': UndefPic := '{#Pic28}.bmp';
            'Дамаг индикатор': UndefPic := '{#Pic29}.bmp';
            'Маркер фокуса (Атакую) желтый': UndefPic := '{#Pic30}.bmp';
            'Маркер фокуса (Атакую) зеленый': UndefPic := '{#Pic31}.bmp';
            'Маркер фокуса (Атакую) красный': UndefPic := '{#Pic32}.bmp';
            'Маркер фокуса (Атакую) синий': UndefPic := '{#Pic33}.bmp';
            'УГН для ПТ (Желтые)': UndefPic := '{#Pic34}.bmp';
            'УГН для ПТ в стиле zayaz': UndefPic := '{#Pic35}.bmp';
            'УГН для ПТ и Арты (MeltyMap) + Улучшеная мини-карта': UndefPic := '{#Pic36}.bmp';
            'УГН для ПТ и Арты (Квадратные)': UndefPic := '{#Pic37}.bmp';
            'УГН для ПТ и Арты (Оранжевые)': UndefPic := '{#Pic38}.bmp';
            'Иконки снарядов': UndefPic := '{#Pic39}.bmp';
            'Мини карта (Названия танков, луч, радиус обзора)': UndefPic := '{#Pic40}.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;
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;
end;





procedure InitializeWizard();
var
    i, iCount: Integer;
begin
    Formcolor();
    InitInfo();
    WizardForm.TypesCombo.Visible := False;

    iCount := WizardForm.ComponentsList.Items.Count - 1;

    for i := iCount downto 0 do
      WizardForm.ComponentsList.Checked[i]:= False;

    ExtractTemporaryFile('BASS.dll');
    ExtractTemporaryFile('CallbackCtrl.dll');
    ExtractTemporaryFile('botva2.dll');
    ExtractTemporaryFile('MusicButton.png');
    ExtractTemporaryFile('Music.mp3');

    BASS_Init('{tmp}\Music.mp3') //Запускаем музыку
//Можно добавить в инсталл несколько песен
//BASS_Init(ExpandConstant('{tmp}\*')) //Поиск по маске
    BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4) //Создаем кнопку вкл/выкл
end;

procedure DeinitializeSetup();
begin
    BASS_DeInit; //Освобождаем процесс
    gdipShutdown
end;

Farser21 · Отправлено: **12:45, 26-10-2013** | #**1366**

saurn, Вставил код, о в итоге флажок пропал только с 1 раздела. Как сделать чтобы он пропал на остальных? Заранее спасибо.

saurn · Конфигурация компьютера

Цитата Farser21:

Вставил код, о в итоге флажок пропал только с 1 раздела »

Проверил еще раз - флажки снимаются со всех компонентов.
Добавьте в секцию [Setup] строчку ComponentsListTVStyle=yes так как у вас в компонентах присутствует флаг collapsed

Farser21 · Отправлено: **13:07, 26-10-2013** | #**1368**

saurn, Все разобрался, спасибо большое.

Nordek · Конфигурация компьютера

Цитата Farser21:

Как сделать так чтобы изначально флажки не где не стояли »

Цитата Farser21:

в том то и дело что такой строчки у меня нету. »

Посмотрел, флажки и так изначально не стоят.

Если она у тебя уже установлена, то такое возможно т.к реестр помнит выбранный тип установки.

Farser21, Кстати, удали в скрипте лишний [code], не к чему он там.

Цитата Farser21:

[code]
[code]
»

P.S Farser21,

Farser21 · Отправлено: **13:33, 26-10-2013** | #**1370**

Nordek, с флажками уже разобрался. Ок учту если еще что-то буду добавлять сюда.