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

Компьютерный форум 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

 

Аватара для diman_21Ru

Старожил


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

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


Всем привет у меня в скрипте есть установка модов на Мир Танков и автопоиск игры а как мне можно дополнительно программы устнавливать чтобы программы в конце установки вышли а не рспаковывались , скрипты все есть каков пусть лишь нужен ,заранее спасибо

Отправлено: 13:49, 16-05-2014 | #671



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

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


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


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

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


Всем привет. Как добавить фон для установщика. Если делать это через Редактор форм, а точнее BitmapImage то её закрывают такие элементы как компонент лист, блок с текстом и т.д. В итоге получается что видны только края картинки. Я видел, в справке есть другой вариант, но он более трудоемкий. Если ли способы полегче. Как залить фон для установщика! Заранее спасибо за ответ!

Отправлено: 15:57, 16-05-2014 | #672


Аватара для Shift85

Старожил


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

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


Цитата Kashtan007:
Как залить фон для установщика! »
Kashtan007, Вот можно так:http://rghost.ru/55220479
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:00, 16-05-2014 | #673


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


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

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


Shift85, спасибо, но немножко не то.

Как сделать эти серые окна прозрачные?

Отправлено: 19:26, 16-05-2014 | #674


Аватара для Shift85

Старожил


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

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


Цитата Kashtan007:
Как сделать эти серые окна прозрачные? »
Kashtan007, Попробуй.

Код: Выделить весь код
const  
TransparentPercent = 50; // процент прозрачности 
 
WS_EX_LAYERED = $80000;  
WS_EX_TRANSPARENT = $20;  
LWA_COLORKEY = 1;  
LWA_ALPHA = 2;  
GWL_EXSTYLE = (-20);  
 
function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean;  
external 'SetLayeredWindowAttributes@user32.dll stdcall';  
 
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint;  
external 'GetWindowLongA@user32.dll stdcall';  
 
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;  
external 'SetWindowLongA@user32.dll stdcall';  
 
Procedure InitializeWizard();  
begin  
SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);  
SetLayeredWindowAttributes(WizardForm.Handle, 0, (255 * TransparentPercent) / 100, LWA_ALPHA);  
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:42, 16-05-2014 | #675


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


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

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


Shift85, весь установщик стал прозрачный.. А мне нужно чтобы внутри серые блоки были прозрачные.

Отправлено: 20:15, 16-05-2014 | #676


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

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


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

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


Подскажите пожалуйста. Применяю архивы FreeArc, для отображения размера установленной проги в окне "Удаление программ" в секции [Setup] указываю: UninstallDisplaySize=3176374272. Как правильно указать чтобы размер отображался в зависимости от выбранных компонентов?

Отправлено: 18:29, 17-05-2014 | #677


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


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

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


Здрасте.может кто-то помочь если не трудно,не выходит не как в данный код добавить чек-бокс в завершение,для запуска игры после установки.
Код: Выделить весь код
var MainImage    : TBitmapImage;
    FinishedImage: TBitmapImage;
    WelcomeLabel1, WelcomeLabel2,StartMenuLbl,FinishedLabel,Welcome1,Welcome2,NeedSpaceLabel,SelectTasksLabel, FreeSpaceLabel, FinishedHeadingLabel: TLabel;

procedure InitializeWizard();
begin
    ExtractTemporaryFile('1.bmp');
    MainImage := TBitmapImage.Create(WizardForm);
    with MainImage do
    begin
        Parent := WizardForm;
        Left := 0;
        Top := 0;
        Width := 500;
        Height := 313;
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
end;

ExtractTemporaryFile('2.bmp');
    FinishedImage := TBitmapImage.Create(WizardForm);
    with FinishedImage do
    begin
        Parent := WizardForm;
        Left := 0;
        Top := 0;
        Width := 500;
        Height := 313;
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp'));
    end;

Welcome1:= TLabel.Create(WizardForm);
  with Welcome1 do
  begin
    Left:= ScaleX(150);
    Top:= ScaleY(26);
    Width:= ScaleX(301);
    Height:= ScaleY(71);
    AutoSize:= false;
    Transparent:= true;
    WordWrap:= true;
    Font.Size:= 12;
    Font.Color:=clBlack
    Font.Style := [fsBold]
    Parent:= WizardForm;
    Font.Name:= 'Georgia'
    Caption:= ExpandConstant('{cm:Welcome1}')
 end;

Welcome2:=TLabel.Create(WizardForm);
  with Welcome2 do
  begin
    Left:= ScaleX(150);
    Top:= ScaleY(66);
    Width:= ScaleX(345);
    Height:= ScaleY(300);
    AutoSize:= false;
    WordWrap:= true;
    Font.Color:=clBlack
    Font.Name:= 'Georgia'
    Font.Size:= 9;
    Transparent:= true;
    Parent:= WizardForm;
    Caption:= ExpandConstant('{cm:Welcome2}')
end;

FinishedHeadingLabel:=TLabel.Create(WizardForm);
  with FinishedHeadingLabel do
  begin
    Left:= ScaleX(170);
    Top:= ScaleY(26);
    Width:= ScaleX(300);
    Height:= ScaleY(150);
    AutoSize:= false;
    WordWrap:= true;
    Font.Size:= 12;
    Font.Color:=clBlack
    Font.Name:= 'Georgia'
    Font.Style := [fsBold]
    Transparent:= true;
    Parent:= WizardForm;
    Caption:= WizardForm.FinishedHeadingLabel.Caption;
  end;

FinishedLabel:= TLabel.Create(WizardForm);
  with FinishedLabel do
  begin
    Left:= ScaleX(170);
    Top:= ScaleY(66);
    Width:= ScaleX(325);
    Height:= ScaleY(150);
    AutoSize:= false;
    WordWrap:= true;
    Transparent:= true;
    Font.Color:=clBlack
    Font.Size:= 9;
    Font.Name:= 'Georgia'
    Parent:= WizardForm;
    Caption:= ExpandConstant('{cm:Finished1}') + #10#13#10 + ExpandConstant('{cm:Finished2}')
end;
end;

procedure HideComponents;
begin
  Welcome1.Hide;
  Welcome2.Hide;
  FinishedHeadingLabel.Hide;
  FinishedLabel.Hide;

end;

procedure ShowComponents(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
    begin
      Welcome1.Show;
      Welcome2.Show;
end;
    wpFinished:
    begin
      FinishedHeadingLabel.Show;
      FinishedLabel.Show;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  HideComponents;
  ShowComponents(CurPageID);
    if CurPageID = wpWelcome then
    begin
        WizardForm.OuterNotebook.Hide;
        FinishedImage.Hide;

    end
    else if CurPageID = wpFinished then
    begin
        WizardForm.OuterNotebook.Hide;
        MainImage.Hide;
        FinishedImage.Show;
    end
    else WizardForm.OuterNotebook.Show;
end;

Отправлено: 04:32, 18-05-2014 | #678


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


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

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


Shift85, Всё нормально, но второй текст (типа тени) появляется на всех остальных страницах. Как это исправить?

Отправлено: 09:50, 18-05-2014 | #679


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

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


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

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


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

#define MyAppName "Need for Speed: The Run - Limited Edition"
#define MyAppExeName "Need For Speed The Run.exe"

[CustomMessages]
russian.RunEntryExec=Запустить {#MyAppName}

[code]
///////////////////////// Чекбокс запуска приложения на странице завершения установки /////////////////////////
var
RunProgram: TCheckBox;
RunProgramLabel: TLabel;

procedure LabelOnClick(Sender: TObject);
begin
case Sender of
RunProgramLabel: begin RunProgram.Checked:= not RunProgram.Checked; end;
end;
end;

procedure DeinitializeSetup();
var ResultCode: Integer;
begin
if (WizardForm.CurPageID=wpFinished) and (RunProgram.Checked) then
Exec(ExpandConstant('{app}\{#MyAppExeName}'), '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure InitializeWizard();
begin
RunProgram:= TCheckBox.Create(WizardForm);
with RunProgram do
begin
Parent:= WizardForm.FinishedPage;
SetBounds(ScaleX(65), ScaleY(147), ScaleX(13), ScaleY(13)) //Координаты чекбокса
TabOrder:= 5;
Checked:= False; //Если необходимо, можно поменять на True
end;

RunProgramLabel:= TLabel.Create(WizardForm);
with RunProgramLabel do
begin
Caption:=ExpandConstant('{cm:RunEntryExec}');
SetBounds(ScaleX(85), ScaleY(147), ScaleX(150), ScaleY(13)) //Координаты текста чекбокса
Transparent := True;
Font.Color:= clWhite;
Parent:= WizardForm.FinishedPage;
OnClick:= @LabelOnClick;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
RunProgram.Hide;
RunProgramLabel.Hide;
if CurPageId = wpFinished then
begin
RunProgram.Show;
RunProgramLabel.Show;
end;
if (CurPageID = wpFinished) and ISDoneError then
begin
RunProgram.hide;
RunProgramLabel.hide;
end;
end;

Отправлено: 11:43, 18-05-2014 | #680



Компьютерный форум 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




 
Переход