Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

Закрытая тема
Настройки темы
Скрипты Inno Setup. Помощь и советы [часть 7]

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: El Sanchez
Дата: 16-02-2015
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме
Inno Setup. Прочие вопросы.


Показать/скрыть: Справка, руководство, примеры:

Показать/скрыть: Ссылки на примеры скриптов:

Показать/скрыть: Дополнительные программы для Inno Setup:
  • ISTool - неплохой редактор скриптов Inno Setup.
    Последняя версия: 5.3.0.1 [29.09.2009] - Скачать | зеркало;

  • Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
    Последняя версия: 1.0.3.1 [23.03.2008] - Скачать | зеркало на русифицированную программу;
    Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
    Последняя версия: 2.0.8 [12.11.2006] - Скачать;
    Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;

  • ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
    Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;

  • ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
    Последняя версия: 3.0 [23.07.2009]

  • Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
    Последняя версия: 0.1.4 [13.03.2010] - Скачать;

  • RegExporter - Фриварная утилита для экспорта реестра и конвертации файлов *.reg и *.ini в инсталляционные скрипты Inno Setup и NSIS.
    Последняя версия: 1.2.0 [23.09.2014] - Скачать;



Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах:

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

Отправлено: 11:48, 10-03-2014

 

Ветеран


Сообщения: 517
Благодарности: 314

Профиль | Отправить PM | Цитировать


Цитата ROMKA-1977:
Проблема в том что если все чекбоксы отметить или снять в ручную то обновления кнопки не происходит. »
читать дальше »
Код: Выделить весь код
var
    i, nCount: Integer;
    SelectAll: TNewButton;


procedure TNewCheckListBoxOnClickCheck( Sender: TObject );
begin
    nCount := WizardForm.TasksList.ItemCount - 1;

    for i := 0 to nCount do
    begin
        case TNewCheckListBox( Sender ).Checked[i] of
            True: SelectAll.Caption := 'Очистить всё';
            False: SelectAll.Caption := 'Выбрать всё';
        end;
    end;
end;


procedure TButtonOnClick( Sender: TObject );
begin
    nCount := WizardForm.TasksList.ItemCount - 1;

    for i := nCount downto 0 do
    begin
        case TButton( Sender ).Caption of
            'Выбрать всё': WizardForm.TasksList.CheckItem( i, coCheckWithChildren );
            'Очистить всё': WizardForm.TasksList.CheckItem( i, coUncheck );
        end;
    end;

    WizardForm.TasksList.OnClickCheck( WizardForm.TasksList );
end;


procedure InitializeWizard();
begin
    WizardForm.TasksList.OnClickCheck := @TNewCheckListBoxOnClickCheck;

    SelectAll := TNewButton.Create(WizardForm);
    with SelectAll do
    begin
        Parent := WizardForm.SelectTasksPage;
        Left := ScaleX(0);
        Top := ScaleY(204);
        Width := ScaleX(75);
        Height := ScaleY(25);
        OnClick := @TButtonOnClick;
    end;
end;


procedure CurPageChanged( const CurPageID: Integer );
begin
    case CurPageID of
        wpSelectTasks: WizardForm.TasksList.OnClickCheck( WizardForm.TasksList );
    end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:24, 13-10-2014 | #1821



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

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


Аватара для ROMKA-1977

Пользователь


Сообщения: 77
Благодарности: 2

Профиль | Отправить PM | Цитировать


saurn, в строке: nCount := WizardForm.TasksList.ItemCount - 1;
ошибка - Unknown identifier ITEMCOUNT

saurn, разобрался: nCount := WizardForm.TasksList.Items.Count - 1;

Отправлено: 23:59, 13-10-2014 | #1822


Ветеран


Сообщения: 517
Благодарности: 314

Профиль | Отправить PM | Цитировать


Цитата ROMKA-1977:
ошибка - Unknown identifier ITEMCOUNT »
Стандартная версия? Замените в обоих процедурах, на:
Код: Выделить весь код
nCount := WizardForm.TasksList.Items.Count - 1;
Это сообщение посчитали полезным следующие участники:

Отправлено: 00:10, 14-10-2014 | #1823


Аватара для audiofeel

Пользователь


Сообщения: 128
Благодарности: 22

Профиль | Отправить PM | Цитировать


Помогите, подскажите как "правильно" создать в скрипте Windows Metro http://krinkels.org/resources/window...installer.148/ чек бокс "не создавать папку в меню пуск" , чек бокс создать проблемы нет, но как сделать не активной кнопку "обзор" на странице WpSelectGroup при нажатии на чек бокс не знаю, там процедуры нет на чек бокс , есть только функция

Отправлено: 06:39, 14-10-2014 | #1824


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Цитата Nordek:
ignietferro@vk, Для особых случаев, ссылка в сообщении. »
спасибо, видел тот форум, но он показался мертвым уже давно (хоть и есть немного новых сообщений) и подумал, что, может быть, кто-то тут поможет

Отправлено: 11:24, 14-10-2014 | #1825


Пользователь


Сообщения: 149
Благодарности: 38

Профиль | Отправить PM | Цитировать


Цитата audiofeel:
чек бокс "не создавать папку в меню пуск" »
если хотите прям кастомный, то примерно так:
Код: Выделить весь код
 var tc:TNewCheckBox;

procedure tcClick(sender:tobject);
begin
 if tc.checked then
  WizardForm.GroupBrowseButton.enabled:=false
 else
  WizardForm.GroupBrowseButton.enabled:=true;  
end;

procedure InitializeWizard;
begin
tc:=TNewCheckBox.create(WizardForm);
tc.parent:=WizardForm.SelectProgramGroupPage;
tc.top:=WizardForm.GroupEdit.top + WizardForm.GroupEdit.height + scaleY(15);
tc.onclick:=@tcClick;
end;
А вообще для этих целей есть директива секции Setup
Код: Выделить весь код
AllowNoIcons=yes
Подробнее в справке можно

Отправлено: 19:04, 14-10-2014 | #1826


Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата audiofeel:
как "правильно" создать »
#1695

-------
Inno Setup 5 Ultra Unicode


Отправлено: 22:08, 14-10-2014 | #1827


Аватара для audiofeel

Пользователь


Сообщения: 128
Благодарности: 22

Профиль | Отправить PM | Цитировать


Dodakaedr,
Shkutu,
да нее, создал я его этот чек бокс та...

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

function NoStartIcon: Boolean;
begin
Result := not CheckBoxGetChecked(NoIconsChk);
end;

а как сделать при нажатии на него , кнопку ButtonSetEnabled(GroupBrowseBtn, False) ????
на чек боксы вообще нет процедур, только функции, то есть
читать дальше »

function DesktopIcon: Boolean;
begin
Result := CheckBoxGetChecked(DesktopChk);
end;

function DopPO: Boolean;
begin
Result := CheckBoxGetChecked(DopPOChk);
end;

function NoStartIcon: Boolean;
begin
Result := not CheckBoxGetChecked(NoIconsChk);
end;

я на него процедуру клика делал - ноль эмоций (может не правильно ??)
--------------------------------------
понимаю что качать не охота, поэтому вот часть скрипта с чек боксами
читать дальше »

type
TCusChk = record
Base, Mid, Top: TPanel;
Labl: TLabel;
IsChecked, IsEnabled: Boolean;
end;
procedure CheckBoxEnter(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:={#Color1};
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:={#Color1};
end;
end;

procedure CheckBoxLeave(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;

procedure CheckBoxDown(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end
end;

procedure CheckBoxUp(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:={#Color1};
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:={#Color1};
end;
end;

procedure CheckBoxClick(var CheckBox:TCusChk);
begin
CheckBox.IsChecked:= not CheckBox.IsChecked;
end;

procedure CheckBoxOnEnter(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxEnter(NoIconsChk);
DesktopChk.Top: CheckBoxEnter(DesktopChk);
DopPOChk.Top: CheckBoxEnter(DopPOChk);
end;
end;

procedure CheckBoxOnLeave(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxLeave(NoIconsChk);
DesktopChk.Top: CheckBoxLeave(DesktopChk);
DopPOChk.Top: CheckBoxLeave(DopPOChk);
end;
end;

procedure CheckBoxOnDown(Sender:TObject; CheckBox:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
case Sender of
NoIconsChk.Top: CheckBoxDown(NoIconsChk);
DesktopChk.Top: CheckBoxDown(DesktopChk);
DopPOChk.Top: CheckBoxDown(DopPOChk);
end;
end;

procedure CheckBoxOnClick(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxClick(NoIconsChk);
DesktopChk.Top: CheckBoxClick(DesktopChk);
DopPOChk.Top: CheckBoxClick(DopPOChk);
end;
end;

procedure CheckBoxOnUp(Sender:TObject; CheckBox:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
case Sender of
NoIconsChk.Top: CheckBoxUp(NoIconsChk);
DesktopChk.Top: CheckBoxUp(DesktopChk);
DopPOChk.Top: CheckBoxUp(DopPOChk);
end;
end;

procedure CheckBoxSetText(var CheckBox: TCusChk; hText: String);
begin
CheckBox.Top.Caption:=hText;
end;

procedure CheckBoxSetVisibility(var CheckBox: TCusChk; hVisible: Boolean);
begin
CheckBox.Base.Visible:=hVisible;
CheckBox.Labl.Visible:=hVisible;
end;

procedure CheckBoxSetEnabled(var CheckBox: TCusChk; hEnabled: Boolean);
begin
CheckBox.Base.Enabled:=hEnabled;
CheckBox.IsEnabled:=hEnabled;
if hEnabled then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
if CheckBox.IsEnabled then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;
end;

procedure CheckBoxSetChecked(var CheckBox: TCusChk; hChecked: Boolean);
begin
CheckBox.IsChecked:= hChecked;
if CheckBox.IsEnabled then
begin
if hChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end else begin
if hChecked then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;
end;

function CheckBoxGetChecked(var CheckBox: TCusChk): Boolean;
begin
Result:=CheckBox.IsChecked;
end;

procedure CheckBoxSetEvent(var CheckBox: TCusChk; Event: TNotifyEvent);
begin
if CheckBox.IsChecked then
CheckBox.Top.OnClick:=Event;
end;

function CheckBoxCreate(hParent :TWinControl; hLeft, hTop, hWidth, hHeight: Integer; hText: String): TCusChk;
begin
Result.IsEnabled:=True;
Result.Base:= TPanel.Create(hParent);
with Result.Base do begin
Parent:=hParent;
Left:=hLeft;
Top:=hTop;
Width:=hWidth;
Height:=hHeight;
Color:=$AAAAAA;
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Mid:= TPanel.Create(Result.Base);
with Result.Mid do begin
Parent:=Result.Base;
Left:=1;
Top:=1;
Width:=hWidth - 2;
Height:=hHeight - 2;
Color:={#Color2};
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Top:= TPanel.Create(Result.Mid);
with Result.Top do begin
Parent:=Result.Mid;
Left:=1;
Top:=1;
Width:=hWidth - 4;
Height:=hHeight - 4;
OnMouseEnter:= @CheckBoxOnEnter;
OnMouseLeave:= @CheckBoxOnLeave;
OnMouseDown := @CheckBoxOnDown;
OnMouseUp := @CheckBoxOnUp;
OnClick := @CheckBoxOnClick;
Color:={#Color2};
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Labl:= TLabel.Create(hParent);
with Result.Labl do
begin
Parent:=hParent;
OnMouseEnter:= @CheckBoxOnEnter;
OnMouseLeave:= @CheckBoxOnLeave;
OnMouseDown := @CheckBoxOnDown;
OnMouseUp := @CheckBoxOnUp;
// Layout:=tlCenter;
Transparent := True;
Font.Color:=$AAAAAA;
Font.Name:='Segoe UI Light';
Font.Size:=11;
SetBounds((hLeft + hWidth) + 5,hTop - 2,0,0);
Caption:=hText
end;
end;

Последний раз редактировалось audiofeel, 15-10-2014 в 07:41.


Отправлено: 04:07, 15-10-2014 | #1828


Аватара для ROMKA-1977

Пользователь


Сообщения: 77
Благодарности: 2

Профиль | Отправить PM | Цитировать


Подскажите возможно ли выполнить текстурирование прогрессбаров ISDone без применения botva2.dll с помощью .bmp ?

Отправлено: 12:01, 15-10-2014 | #1829


Аватара для Tco 03

Пользователь


Сообщения: 90
Благодарности: 24

Профиль | Отправить PM | Цитировать


Цитата ROMKA-1977:
Подскажите возможно ли выполнить текстурирование прогрессбаров ISDone без применения botva2.dll с помощью .bmp ? »
Конечно можно
читать дальше »

Код: Выделить весь код
[Setup]
AppName=MyApp
AppVerName=MyApp
defaultDirName={pf}\MyApp

[Files]
Source: compiler:InnoCallBack.dll; DestDir: {tmp};
Source: progress.bmp; DestDir: {tmp}
Source: {win}\Help\; DestDir: {app}; Flags: external

[code ]
type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);
  TPBInfo = record ProgressBarName: TNewProgressBar ; ImageHeight, LastWidth, MaxWidth: Integer; end;

var
ProgressBarEdit: array of TEdit;
ProgressBarImage: array of TBitmapImage;
PBBuff: array of TPBInfo;
ProgressTimer: Longword; PBCount: Integer;

function WrapTimerProc(callback:TProc; paramcount:integer):longword; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure TextureProgressBar(ProgressBar:TNewProgressBar);
var n: Integer;
begin
n:= PBCount; SetArrayLength(ProgressBarEdit, n+1); SetArrayLength(ProgressBarImage, n+1)
SetArrayLength(PBBuff, n+1);

ProgressBarEdit[n]:= TEdit.Create(WizardForm)
ProgressBarEdit[n].SetBounds(ProgressBar.Left, ProgressBar.Top, ProgressBar.Width, ProgressBar.Height);
ProgressBarEdit[n].Enabled:= False;
ProgressBarEdit[n].Parent:= ProgressBar.Parent;
ProgressBarEdit[n].Visible:= ProgressBar.Visible;

PBBuff[n].LastWidth:= ProgressBar.Position;
PBBuff[n].ImageHeight:= ProgressBarEdit[n].Height - ScaleY(2);
PBBuff[n].ProgressBarName:= ProgressBar ;
PBBuff[n].MaxWidth:= ScaleX(ProgressBar.Width);

ProgressbarImage[n]:= TBitmapImage.Create(WizardForm);
ProgressbarImage[n].Stretch:= True;
ProgressbarImage[n].Parent:= ProgressBarEdit[n];
ProgressbarImage[n].SetBounds(ScaleX(0), ScaleY(0), ScaleX(0), ScaleY(0))
ProgressbarImage[n].Bitmap.LoadFromFile(ExpandConstant('{tmp}\progress.bmp'));

ProgressBar.Width:= ScaleX(0); ProgressBar.Height:= ScaleY(0);

PBCount:= PBCount+1
end;

procedure HideAllTexturedPB();
var n: integer;
begin
for n:=0 to PBCount-1 do begin ProgressBarEdit[n].Hide; ProgressBarImage[n].Hide; end;
end;

procedure UpdateAllTexturedPB();
var n: integer;
begin
for n:=0 to PBCount-1 do begin
ProgressBarEdit[n].Visible:= PBBuff[n]. ProgressBarName.Visible;
ProgressBarImage[n].Visible:= PBBuff[n].ProgressBarName.Visible; end;
end;

procedure UpdatePB(HandleW, msg, idEvent, TimeSys: LongWord);
var f: integer; CurWidth: single;
begin
for f:=0 to PBCount-1 do begin
UpdateAllTexturedPB
with PBBuff[f].ProgressB arName do begin
  CurWidth := (Position*PBBuff[f].MaxWidth)/Max;
  if PBBuff[f].LastWidth <> Round(CurWidth) then begin
    PBBuff[f].LastWidth:= Round(CurWidth);
    ProgressBarImage[f].SetBounds(ScaleX(0), ScaleY(0), PBBuff[f].LastWidth, PBBuff[f].ImageHeight); end;
  end;
end;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('progress.bmp');

TextureProgressBar(WizardForm.ProgressGauge)
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then ProgressTimer:= SetTimer(0,0, 200, WrapTimerProc(@UpdatePB, 4));
if CurStep=ssPostInstall then KillTimer(0, ProgressTimer);
end;

Отправлено: 16:49, 15-10-2014 | #1830



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты Inno Setup. Помощь и советы [часть 6] El Sanchez Автоматическая установка приложений 2494 10-03-2014 11:51
Скрипты Inno Setup. Помощь и советы [часть 5] El Sanchez Автоматическая установка приложений 1999 28-03-2013 19:09
Скрипты Inno Setup. Помощь и советы [часть 4] El Sanchez Автоматическая установка приложений 2099 22-05-2012 23:16
Скрипты Inno Setup. Помощь и советы [часть 3] Serega Автоматическая установка приложений 3755 26-10-2011 17:58
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] Serega Автоматическая установка приложений 2651 08-11-2010 18:34




 
Переход