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

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

 

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


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

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


Цитата saurn:
Можно так, например: »
Спасибо, неплохой вариант.

Отправлено: 19:58, 15-09-2014 | #1561



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

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


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


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

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


saurn Ой, появилась одна проблема
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: {fonts}\*; DestDir: {app}; Flags: external

[ Code]
type
  WPARAM = Integer;
  LPARAM = Integer;
  LRESULT = Integer;
  TFNWndProc = Integer;

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProcA@user32.dll stdcall';

var
  OldStaticProcAddr: Longint;
  Label1: TLabel;

function StaticWindowdProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  _String: String;
begin
  if Msg = $000F then begin
    _String:= WizardForm.StatusLabel.Caption
    Label1.Caption:= _String; //для теста
  end;
  Result:= CallWindowProc(OldStaticProcAddr, hWnd, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
  OldStaticProcAddr:= SetWindowLong(WizardForm.StatusLabel.Handle, -4, CallbackAddr('StaticWindowdProc'));


  Label1:= TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent:= WizardForm.InstallingPage;
    AutoSize:= False;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(417);
    Height := ScaleY(14);
  end;
//   WizardForm.OuterNotebook.Hide;
end;

procedure DeinitializeSetup();
begin
  SetWindowlong(WizardForm.StatusLabel.Handle, -4, OldStaticProcAddr);
end;
При
Код: Выделить весь код
WizardForm.OuterNotebook.Hide;
Лейбл пустой, и на WizardForm точно также было...

Отправлено: 00:07, 16-09-2014 | #1562


Ветеран


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

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


Nightwishh, ага, не дружит с невидимыми окнами, есть такое. Тут присутствует другой вариант.

Отправлено: 12:58, 16-09-2014 | #1563


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


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

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


saurn, Но там нет статуса, как я понял. Там путь и строкой ниже имя файла. Хотелось бы сделать этот статус, так как после распаковки работает секция [Run], а устанавливать всё это через код невыгодно.

Отправлено: 13:32, 16-09-2014 | #1564


Аватара для AlexALSP

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


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

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


Подскажите еще один момент.

Задача:

1. копирование фалов
2. копирование файла , если они есть то делать имяфайла.bkp

Есть Выбор установки:

Программы (жесткий выбор)
Установить 123.dll
Установить 345.dll

Программы (с возможностью выбрать или снять выделение)
Установка 123.dll
Установка 345.dll

Вотр тут если выбрана установка второго пункта делать бэкап файлов с первого пункта
Если второй пункт не выбран , ничего не делать.


Вроде просто описал , подсобите ребята, кто знает как воплотить.

Отправлено: 17:36, 16-09-2014 | #1565


Аватара для Dodakaedr

Ветеран


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

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


Подскажите как правильно экспортировать ключ реестра на этапе InitializeSetup? Это не работает. Надо экспортировать в папку где находиться инсталятор.
Код: Выделить весь код
function InitializeSetup(): Boolean;
var
RCode: Integer;
begin
Exec( ExpandConstant( '{win}\regedit.exe' ), '/e Soft.reg ""HKEY_LOCAL_MACHINE\SOFTWARE\Soft\Drivers""', ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewNoWait, RCode );
Result:=False;
end;
С экспортом разобрался, вот только не могу указать папку для экспорта {src}\Data\Settings
Код: Выделить весь код
function InitializeSetup(): Boolean;
var
RCode: Integer;
RegKey: String;
begin
RegKey := 'HKEY_LOCAL_MACHINE\SOFTWARE\Soft\Drivers';
Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea Soft.reg ' + AddQuotes( RegKey ), ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewWaitUntilTerminated, RCode );
Result:=False;
end;

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


Последний раз редактировалось Dodakaedr, 17-09-2014 в 09:11.


Отправлено: 08:32, 17-09-2014 | #1566


Аватара для R.i.m.s.k.y.

Ветеран


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

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


Dodakaedr,
Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea ' + ExpandConstant( '{src}\Data\Settings\' ) + 'Soft.reg ' + AddQuotes( RegKey ) , ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewWaitUntilTerminated, RCode );

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!


Последний раз редактировалось R.i.m.s.k.y., 17-09-2014 в 09:44.


Отправлено: 09:31, 17-09-2014 | #1567


Аватара для Dodakaedr

Ветеран


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

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


R.i.m.s.k.y., Не работает.

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


Отправлено: 19:13, 17-09-2014 | #1568


Старожил


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

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


astafev_roma, все работает на обычной версий проверил 5.42
читать дальше »
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;

procedure InitializeWizard();
begin
with WizardForm do begin
BorderStyle:=bsNone;
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
Width:=ScaleX(791);
Height:=ScaleY(291);
Position:=poScreenCenter;
end;
//Создаем лейбл на всю форму, чтоб ее можно было двигать
with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=0;
Left:=0;
Width:=WizardForm.Width;
Height:= WizardForm.Height
Transparent:=True;
OnMouseDown:=@LabelOnMouseDown;
end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:12, 17-09-2014 | #1569


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


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

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


Цитата vint56:
все работает на обычной версий »
ну да для лейбла он работает, а для картинок на стандарте нет (у меня фон картинкой сделан и соответственно ее и двигать нужно).

Последний раз редактировалось astafev_roma, 17-09-2014 в 20:29.


Отправлено: 20:21, 17-09-2014 | #1570



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




 
Переход