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

[Crazy Noise]

Цитата CkauNui:

они устанавливаются так, как я прописал в [Files]

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

да, сверху вниз

Цитата CkauNui:

как сделать чтобы не выскакивало окошко о уже установленных компонентах ?

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

Flags: disablenouninstallwarning


Цитата:



disablenouninstallwarning

Instructs Setup not to warn the user that this component will not be uninstalled after he/she deselected this component when it's already installed on his/her machine.



Depending on the complexity of your components, you can try to use the [InstallDelete] section and this flag to automatically 'uninstall' deselected components.

[habib2302]

CkauNui,


Цитата CkauNui:



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

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

так сойдёт: ?

читать дальше »

Код:

Код: Выделить всё

[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 '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';
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;

скрин:

читать дальше »

наглядный пример:

http://sendfile.su/905839

Цитата CkauNui:



и как сделать чтобы не выскакивало окошко о уже установленных компонентах ?

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

секция компонентов, флаг disablenouninstallwarning. Пример выше ^


Цитата CkauNui:



и возможно ли поменять цвет у fixed элементов ?

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

Редактируй скин


Цитата CkauNui:



или они устанавливаются так, как я прописал в [Files] ?

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

да, и никак иначе. Меняй порядок, если надо



UPD: Немного улучшил код "картинки-подсказки". Демо перезалито!

[saurn]

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

[habib2302]

и как сделать,чтоьы инсталятор перед установкой закрыл процессы

[saurn]

Цитата habib2302:



переводился в зависимости от выбраного языка

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

Как обычно самым простым способом, при помощи секции CustomMessages



Код:

Код: Выделить всё

[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl
Name: English; MessagesFile: compiler:Languages\English.isl
[CustomMessages]
Russian.MsgUnins=Текст сообщения на русском
English.MsgUnins=Текст сообщения на буржуйском

[wertulll]

Всем Привет! Подскажите пожалуйста как к этому скрипту прикрутить ISDone0.6final?



Скрипт

читать дальше »

#define MyAppName "S.T.A.L.K.E.R. Зов Припяти"

#define AppVerName "S.T.A.L.K.E.R. Зов Припяти"

#define MyAppExeName "MyProg.exe"



[Setup]

AppName={#MyAppName}

AppVerName={#AppVerName}

DefaultDirName={pf}\{#MyAppName}

DefaultGroupName={#MyAppName}

OutputBaseFilename=setup

Compression=lzma

SolidCompression=yes

WizardImageFile=Files\WizardImage.bmp

WizardSmallImageFile=Files\WizardSmallImage.bmp



[Languages]

Name: russian; MessagesFile: Files\Russian.isl



[Tasks]

Name: desktopicon; Description: Создать значок на Рабочем столе; GroupDescription: Дополнительные значки:



[Files]

Source: Files\*; Flags: dontcopy

Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

; NOTE: Don't use "Flags: ignoreversion" on any shared system files



[Icons]

Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

Код: Выделить всё

const

Color = clblack;

ButtonWidth = 80;    

ButtonHeight = 23;



bidBack = 0;

bidNext = 1;

bidCancel = 2;

bidDirBrowse = 3;

bidGroupBrowse = 4;

var

ButtonPanel: array [0..4] of TPanel;

ButtonImage: array [0..4] of TBitmapImage;

ButtonLabel: array [0..4] of TLabel;



procedure ButtonLabelClick(Sender: TObject);

var

Button: TButton;

begin

ButtonImage[TLabel(Sender).Tag].Left:=0

case TLabel(Sender).Tag of

bidBack: Button:=WizardForm.BackButton

bidNext: Button:=WizardForm.NextButton

bidCancel: Button:=WizardForm.CancelButton

bidDirBrowse: Button:=WizardForm.DirBrowseButton

bidGroupBrowse: Button:=WizardForm.GroupBrowseButton

else

Exit

end;

Button.OnClick(Button)

end;



procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if ButtonLabel[TLabel(Sender).Tag].Enabled then

ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth

end;



procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

ButtonImage[TLabel(Sender).Tag].Left:=0

end;



procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);

var

Image: TBitmapImage;

Panel: TPanel;

Labl: TLabel;



begin

Panel:=TPanel.Create(WizardForm)

Panel.Left:=AButton.Left

Panel.Top:=AButton.Top

Panel.Width:=AButton.Width

Panel.Height:=AButton.Height

Panel.Tag:=AButtonIndex

Panel.Parent:=AButton.Parent

ButtonPanel[AButtonIndex]:=Panel



Image:=TBitmapImage.Create(WizardForm)    

Image.Width:=160                          

Image.Height:=23

Image.Enabled:=False

Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))

Image.Parent:=Panel

ButtonImage[AButtonIndex]:=Image



  

Labl:=TLabel.Create(WizardForm)

Labl.Top := 5

Labl.Width := Panel.Width

Labl.Height := Panel.Height

Labl.Autosize := False

Labl.Alignment := taCenter

Labl.Tag:=AButtonIndex

Labl.Enabled:= AButton.Enabled

Labl.Transparent:=True

Labl.Font.Color:=clWhite               

Labl.Caption:=AButton.Caption

Labl.OnClick:=@ButtonLabelClick

Labl.OnDblClick:=@ButtonLabelClick

Labl.OnMouseDown:=@ButtonLabelMouseDown

Labl.OnMouseUp:=@ButtonLabelMouseUp

Labl.Parent:=Panel

ButtonLabel[AButtonIndex]:=Labl

end;



procedure UpdateButton(AButton: TButton;AButtonIndex: integer);

begin

ButtonLabel[AButtonIndex].Caption:=AButton.Caption

ButtonPanel[AButtonIndex].Visible:=AButton.Visible

ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled

end;



procedure LicenceAcceptedRadioOnClick(Sender: TObject);

begin

ButtonLabel[bidNext].Enabled:=True

end;



procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);

begin

ButtonLabel[bidNext].Enabled:=False

end;



var

WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;

PageNameLabel: TLabel;

 

procedure InitializeWizard();

begin

WizardForm.BackButton.Width:=ButtonWidth

WizardForm.BackButton.Height:=ButtonHeight

WizardForm.NextButton.Width:=ButtonWidth

WizardForm.NextButton.Height:=ButtonHeight

WizardForm.CancelButton.Width:=ButtonWidth

WizardForm.CancelButton.Height:=ButtonHeight

WizardForm.DirBrowseButton.Left:=337

WizardForm.DirBrowseButton.Width:=ButtonWidth

WizardForm.DirBrowseButton.Height:=ButtonHeight

WizardForm.GroupBrowseButton.Left:=337

WizardForm.GroupBrowseButton.Width:=ButtonWidth

WizardForm.GroupBrowseButton.Height:=ButtonHeight

  

WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick

WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick



ExtractTemporaryFile('button.bmp')

LoadButtonImage(WizardForm.BackButton,bidBack)

LoadButtonImage(WizardForm.NextButton,bidNext)

LoadButtonImage(WizardForm.CancelButton,bidCancel)

LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)

LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse) 

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

ExtractTemporaryFile('papka.bmp');

WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));

WizardForm.SelectDirBitmapImage.AutoSize:=True;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));

WizardForm.SelectGroupBitmapImage.AutoSize:=True; 

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

WizardForm.Font.Color:=clWhite;

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.TypesCombo.Color:=Color;

WizardForm.WelcomeLabel1.Color:=Color;

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.UserInfoSerialLabel.Color:=Color;

WizardForm.UserInfoSerialEdit.Color:=Color;

WizardForm.TasksList.Color:=Color;

WizardForm.RunList.Color:=Color;

WizardForm.SelectDirBrowseLabel.Color:=Color;

WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

//////////////////////////////////////////////////////////////////////////////////////////////////////

WizardForm.WizardBitmapImage.Width:= ScaleX(497);

WizardForm.WizardBitmapImage2.Width:= ScaleX(497);

WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);



WelcomeLabel1:= TLabel.Create(WizardForm);

WelcomeLabel1.AutoSize:= False;

with WizardForm.WelcomeLabel1 do

WelcomeLabel1.SetBounds(ScaleX(240), ScaleY(20), ScaleX(230), ScaleY(200));

WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font

WelcomeLabel1.Font.Color:= clWhite;

WelcomeLabel1.Transparent:= True;

WelcomeLabel1.WordWrap:= true;

WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;

WelcomeLabel1.Parent:= WizardForm.WelcomePage

 

WelcomeLabel2:= TLabel.Create(WizardForm);

WelcomeLabel2.AutoSize:= False;

with WizardForm.WelcomeLabel2 do

WelcomeLabel2.SetBounds(ScaleX(240), ScaleY(100), ScaleX(230), ScaleY(200));

WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font

WelcomeLabel2.Font.Color:= clWhite;

WelcomeLabel2.Transparent:= True;

WelcomeLabel2.WordWrap:= true;

WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;

WelcomeLabel2.Parent:= WizardForm.WelcomePage 



PageNameLabel:= TLabel.Create(WizardForm)

with WizardForm.PageNameLabel do

PageNameLabel.SetBounds(Left, Top, Width, Height);

PageNameLabel.Transparent:= True;

PageNameLabel.Font:= WizardForm.PageNameLabel.Font;

PageNameLabel.Font.Color:= clWhite;

PageNameLabel.Parent:= WizardForm.MainPanel;



FinishedHeadingLabel:= TLabel.Create(WizardForm);

FinishedHeadingLabel.AutoSize:= False;

with WizardForm.FinishedHeadingLabel do

FinishedHeadingLabel.SetBounds(ScaleX(240), ScaleY(20), ScaleX(230), ScaleY(200));

FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font

FinishedHeadingLabel.Font.Color:= clWhite;

FinishedHeadingLabel.Transparent:= True;

FinishedHeadingLabel.WordWrap:= true;

FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;

FinishedHeadingLabel.Parent:= WizardForm.FinishedPage

 

FinishedLabel:= TLabel.Create(WizardForm);

FinishedLabel.AutoSize:= False;

with WizardForm.FinishedLabel do

FinishedLabel.SetBounds(ScaleX(240), ScaleY(100), ScaleX(230), ScaleY(220));

FinishedLabel.Font:= WizardForm.FinishedLabel.Font

FinishedLabel.Font.Color:= clWhite;

FinishedLabel.Transparent:= True;

FinishedLabel.WordWrap:= true;

FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;

FinishedLabel.Parent:= WizardForm.FinishedPage 



WizardForm.WelcomeLabel1.Hide;

WizardForm.WelcomeLabel2.Hide; 

WizardForm.PageNameLabel.Hide;

WizardForm.PageDescriptionLabel.Hide;

WizardForm.FinishedLabel.Hide;

WizardForm.FinishedHeadingLabel.Hide;

end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure CurPageChanged(CurPageID: Integer);

begin

UpdateButton(WizardForm.BackButton,bidBack)

UpdateButton(WizardForm.NextButton,bidNext)

UpdateButton(WizardForm.CancelButton,bidCancel)

PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;

FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption; 

end;

[saurn]

CkauNui,
Цитата CkauNui:



в том скрипте выдает ошибку TItemArea, в чем может быть трабла ?

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

Пардон. Забыл что у кого-то может быть стандартная инно

Установи расширенную версию инно из шапки









UPD:

Моя версия:

http://sendfile.su/827598

[neorom]

Цитата Johny777:



Пардон. Забыл что у кого-то может быть стандартная инно

Установи расширенную версию инно из шапки

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

качал последнюю от сюда

http://restools.hanzify.org/article.asp?id=47

можете скинуть свою версию inno?



Все работает отлично, спасибо ещё раз.

[Johny777]

можно сделать список компонентов который можно скрыть и раскрыть?

[neorom]

Цитата habib2302:



можно сделать список компонентов который можно скрыть и раскрыть?

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

Код:

Код: Выделить всё

[Setup]
AlwaysShowComponentsList=no
[Components]
Name: eng; Description: Английская версия; Types : full;
Name: rus; Description: Русская версия; Types : full;
[Types]
Name: full; Description: Полная установка;
Name: custom; Description: Выборочная установка; Flags: iscustom;