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

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

 

SHVtYW4=


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

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


Цитата Kashtan007:
Как в юникоде сделать кликабельные иконки? »
Не буду я возиться с вашим обрубком.

Выбирайте какой больше нравится:

Код: Выделить весь код
#define Bitmap "Logo.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  BitmapImage1: TBitmapImage;
  EC: Integer;

procedure Bitmap1Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(24);
    Top := ScaleY(320);
    Width := ScaleX(105);
    Height := ScaleY(33);
    Cursor := crHand;
    OnClick := @Bitmap1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

procedure Bitmap1Click(Sender: TObject);
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

Код: Выделить весь код
#define Bitmap "Logo.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  EC: Integer;

procedure Panel1Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(318);
    Width := ScaleX(185);
    Height := ScaleY(41);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(4);
    Top := ScaleY(4);
    Width := ScaleX(178);
    Height := ScaleY(34);
    Cursor := crHand;
    OnClick := @Panel1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

procedure Panel1Click(Sender: TObject);
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

Код работает на обеих версиях.

Последний раз редактировалось Nordek, 29-10-2014 в 02:05.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:55, 12-07-2014 | #1121



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

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


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


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

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


Доброго времени суток, наткнулся на такую проблему.
Как сделать эти 2 строки прозрачные?

В редакторе форм они не отображаются... Пытался через код: ModCheck.Transparent := True;, выдает ошибку (Версия Unicode). Как можно по другому сделать эти 2 строки прозрачные? Заранее спасибо за ответ!

P.S. Dodakaedr, Nordek, Shift85, habib2302. Большое спасибо за помощь! Благодаря вам я наконец-то сделал практически все, что хотел в своем установщике)

Отправлено: 17:53, 13-07-2014 | #1122


Аватара для Shift85

Старожил


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

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


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

Код: Выделить весь код
SoftLabel:= TLabel.Create(WizardForm);
  with SoftLabel do begin
    Parent:=WizardForm;
    SetBounds(ScaleX(280), ScaleY(316), ScaleX(450), ScaleY(17));
    AutoSize:=False
    WordWrap:=True
    Transparent:=True
    Font.Name:= 'Tahoma';
    Font.Size:= 7;
    Font.Color:= clGray;
    Font.Style := [fsBold];
    OnClick:= @SoftLabelClick;
    Caption:= ExpandConstant('{cm:SoftTask}');
  end;
Результат.

Последний раз редактировалось Shift85, 30-09-2014 в 13:22.

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:10, 13-07-2014 | #1123


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


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

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


Shift85, спасибо, но так и не получилось применить. Выдает ошибку.
Вот эти 2 строки, которые я хочу сделать прозрачными:
Код: Выделить весь код
begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
end;

Отправлено: 18:15, 13-07-2014 | #1124


Аватара для habib2302

Ветеран


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

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


Kashtan007, а если так
Код: Выделить весь код
begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);
   ModCheck.Transparent:=True

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
   BackupCheck.Transparent:=True
end;

-------
Помог? От "Полезное сообщение" не откажусь!!!

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:04, 13-07-2014 | #1125


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


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

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


habib2302, пробовал уже так(
Ошибку выдает, хотя компилирую на юникоде

Отправлено: 22:14, 13-07-2014 | #1126


Аватара для Shift85

Старожил


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

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


Цитата Kashtan007:
Ошибку выдает, хотя компилирую на юникоде »
Kashtan007, Попробуй на анси.
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:18, 13-07-2014 | #1127


Аватара для habib2302

Ветеран


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

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


Kashtan007, а если просто так
Код: Выделить весь код
Transparent:=True
ну или юзать TransparentStatic
http://forum.oszone.net/post-2374802-1103.html

-------
Помог? От "Полезное сообщение" не откажусь!!!

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:18, 13-07-2014 | #1128


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


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

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


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

Отправлено: 22:34, 13-07-2014 | #1129


Аватара для Shift85

Старожил


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

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


Kashtan007, Тогда попробуй переделать. Заменить чекбоксы на лейблы. Как у меня в примере выше.
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:39, 13-07-2014 | #1130



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




 
Переход