» Inno Setup (создание инсталяционных пакетов)

Hell_Dog2011
[more=пример][Setup]
AppName=Launcher
AppVersion=Launcher
CreateAppDir=no
OutputBaseFilename=Launcher
OutputDir=.

[Code]
const
BM_CLICK = $00F5;

var
ExitButton, RunButton1, RunButton2: TNewButton;
ResultCode: Integer;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False
Cancel:=True
end;

procedure ExitButtonClick(Sender: TObject);
var
CurPageID: Integer;
begin
PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
end;

procedure RunButton1Click(Sender: TObject);
var
CurPageID: Integer;
begin
Exec(ExpandConstant('{src}\Run1.exe'),'','',SW_SHOW,ewNoWait,ResultCode)

PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
end;

procedure RunButton2Click(Sender: TObject);
var
CurPageID: Integer;
begin
Exec(ExpandConstant('{src}\Run2.exe'),'','',SW_SHOW,ewNoWait,ResultCode)

PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
end;

procedure InitializeWizard();
begin

with WizardForm do begin
BorderStyle:=bsNone //(bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
SetBounds(ScaleX(0), ScaleY(0), ScaleX(170), ScaleY(70));
Position:=poScreenCenter;
Color := clBtnShadow;
end;

RunButton1 := TNewButton.Create(WizardForm);
with RunButton1 do
begin
Name := 'RunButton1';
Parent := WizardForm;
Left := ScaleX(10);
Top := ScaleY(10);
Width := ScaleX(125);
Height := ScaleY(22);
Caption := 'Запустить мод-1';
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Arial Black';
Font.Style := [fsBold];
ParentFont := False;
OnClick := @RunButton1Click;
end;
RunButton2 := TNewButton.Create(WizardForm);
with RunButton2 do
begin
Name := 'RunButton2';
Parent := WizardForm;
Left := ScaleX(10);
Top := ScaleY(40);
Width := ScaleX(125);
Height := ScaleY(22);
Caption := 'Запустить мод-1';
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Arial Black';
Font.Style := [fsBold];
ParentFont := False;
OnClick := @RunButton2Click;
end;
ExitButton := TNewButton.Create(WizardForm);
with ExitButton do
begin
Name := 'ExitButton';
Parent := WizardForm;
Left := ScaleX(140);
Top := ScaleY(10);
Width := ScaleX(22);
Height := ScaleY(22);
OnClick := @ExitButtonClick;
Caption := 'X';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'Arial Black';
Font.Style := [fsBold];
ParentFont := False;
end;
end;[/more]

Hell_Dog2011
Вот сделал лаунчер с картинкой и кнопками, посмотрите: Скачать

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

Ребят, подскажите - есть способ в rtf-файле, показывающемся до установки, сделать такую гиперссылку, которая бы указывала на html-страницу в файле справки chm, который находится в директории {app} инсталлятора?
То есть вида mk:@MSITStore:{app}\LANGUAGE\WCMD_RUS.CHM::/html/keyboard.html - но только чтобы это работало

Цитата:

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

Ну как создавать кнопки. Можно и по примеру посмотреть котрый вы скачали. А вот что касается музыки,
у меня через MCI проигрывается MP3 трек. И звуки в формате WAV тоже играют через MCI.

Если надо то позже добавлю к этому лаунчеру фоновую музыку и озвучку кнопок.

The Unforgiven
Пожалуйста объясните точнее. А то я вас понять не могу.

Я ищу способ, как вот такие ссылки в rtf-файле (сейчас они ведут на файл CHM в папке, куда установлен Total Commander, и нормально открываются) переделать, чтобы они указывали на такой же CHM, но вшитый в мой инсталлятор. Точнее не могу

Цитата:

Если надо то позже добавлю к этому лаунчеру фоновую музыку и озвучку кнопок.

да если можно добавь пожалуйста.

все для создания репак http://repack-school.at.ua/

слушайте я вот всё учюся делать по примерам, но видь вы профи делаете всё с нуля, вот мне интересно как всё в ручную тыркая по клавишам пишите или всёже шаблоны есть?

Со временем основные функции, типы, базовые имена контролов запоминаются. Плюс в расширенной версии очень удобный редактор с вываливающимеся подсказками.

Цитата:

слушайте я вот всё учюся делать по примерам, но видь вы профи делаете всё с нуля, вот мне интересно как всё в ручную тыркая по клавишам пишите или всёже шаблоны есть?

Лично я изучал Инно, сначала вообще не знал что такое [Коде] секция. Сейчас я использую чужие примеры и подстраиваю их под свои нужды.

Кстати вот вам пример Медиа Лаунчера: Скачать

по твоему примеру лаунчера я попробывал сделать свой добавить кнопок для начала, так вот добавил, но как сделать её рабочей чтобы действие при её нажатии происходило?

Цитата:

Я ищу способ, как вот такие ссылки в rtf-файле (сейчас они ведут на файл CHM в папке, куда установлен Total Commander, и нормально открываются) переделать, чтобы они указывали на такой же CHM, но вшитый в мой инсталлятор. Точнее не могу

Извините но это наверное в RTF искать надо. Я с этим пока не сталкивался.

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

Gnom3
А вы можете помочь мне с получением данных и этой комманды

Код: mciSendString('status Video position','',0,0);

sjwrec
а ещё вот что хотел узнать как сделать проигрование видео в окне инсталла за место сриншотов

Цитата:

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

Помочь конечно можно. Но зачем Слайд-Шоу в Лаунчере?

Если не ошибаюсь - Лаунчер нужен чтобы запустить игру с нужными параметрами и закрыться. Или я что-то не так понимаю?

Вот если всё это сделать в Инсталляторе игры - тогда это вполне целесообразно.

не я не так просто выразился с слайд-шоу, эт sjwrec
а ещё вот что хотел узнать как сделать проигрование видео в окне инсталла за место сриншотов вот куда надо.

Цитата:

а ещё вот что хотел узнать как сделать проигрование видео в окне инсталла за место сриншотов

Через функцию MCISendString, с которой сам сейчас застрял. Но лично я предпочитаю выводить видео на Окно на заднем плане Инсталлятора (MainForm) , чем в самом окне инсталлятора (WizardForm).

sjwrec
нашёл в твоём скрипте на асаин крид2 токо там видео очень быстро

Цитата:

нашёл в твоём скрипте на асаин крид2 токо там видео очень быстро

Так, а видео какое использовали?
У меня там видео в AVI, кодек видео XVID Mpeg 4, кодек аудио MP3

да фиг знает какие кодеки, над ща будет перекодировать.

Добавлено:
всё равно тоже самое

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

Hell_Dog2011может ты имел виду сменить координаты кнопок
Left := 14; слева
Top := 236; вниз
Width := 143; ширина
Height := 32; высота

Цитата:

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

Я использую InqSoft Window Scanner v1.7. Правда он не видит тип TLabel, а так нормальная прога. Вот здесь можно скачать: Ссылка

ISVideo.dll | v.1.4 --- Добавлена функция Position | Max --- для ISMusic и ISVideo

скажите пожалуйста как прпавельно скрипт подключать

sjwrec
В личку пришли, погляжу завтра. навскидку:

Код: MCIERROR mciSendString(
LPCTSTR lpszCommand,
LPTSTR lpszReturnString,
UINT cchReturn,
HANDLE hwndCallback
);

Gnom3
Спасибо! Скрипт подготовлю и вышлю в ЛС.

Добавлено:
vintage_1

Цитата:

ISVideo.dll | v.1.4 --- Добавлена функция Position | Max --- для ISMusic и ISVideo

Спасибо вам. Хорошая библиотека. Но описаний маловато.
Опишите работу с функцией ISVideoPOS более подробно.

Я хочу перемотку Видео сделать.

И ещё функция ISMusicPause ровна IsMusicStop. Приходится вызывать IsMusicClose, а затем IsMusicInit.

sjwrec
Готовлю (Fix | Update) версию более расширенную, хорошо распишу все процедуры и функции, да и для вас сделаю процедуру перемотки видео ну и музыки ISVideoPOS - это функция для прогресс бара (Position) (позиция), но я её перевел в время!