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

ValeronSoft

[Files]
Source: C:\Splash.bmp; DestDir: {tmp}; Flags: dontcopy;

[Code]
function InitializeSetup(): Boolean;
var
SplashForm: TSetupForm;
SplashImage: TBitmapImage;
begin
SplashForm:=CreateCustomForm
SplashForm.BorderStyle:=bsNone
SplashImage:=TBitmapImage.Create(SplashForm)
SplashImage.AutoSize:=True
SplashImage.Align:=alClient
SplashImage.Stretch:=True
SplashImage.Parent:=SplashForm
ExtractTemporaryFile('Splash.bmp')
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Splash.bmp')
SplashForm.Width:=SplashImage.Width
SplashForm.Height:=SplashImage.Height
SplashForm.Center
SplashForm.Show
SplashImage.Refresh
Sleep(3000) //1000 - 1 секунда
SplashForm.Free
Result:=True
end;

Люди помогите мне решить две штуковнинки ..
Я хочу откл. "О программе"
И добвляю такой код:

Код: procedure InitializeWizard();
begin
WizardForm.Position:=poScreenCenter;
end;

Andrey_Wlodimirovich

Цитата:

а внешнем окне не убирает

[Code]
procedure InitializeWizard();
begin
MainForm.Position:=poDefault
end;


Цитата:

можно как то чтоб этот текст ложился без фона (прозрачный)

В инно пока нет такой функции как "Transparent"

Можешь вообще скрыть рамку внешнего окна
[Setup]
WindowVisible=yes
WindowShowCaption=no

Не может кто выложить get_hw_caps.dll, пожалуйста, очень надо!

iTASmania_Inc
http://forum.ru-board.com/topic.cgi?forum=5&topic=23235&start=40#15

Спасибо большое! Извини, что сразу не заметил!

Добавлено:
Sampron, я видел твои скины!!! (http://data.cod.ru/901414346)
Ваще круто! Офигительно круто! Но ещё понравилось, как ты сделал заставку перед началом установки: "Inno Setup Skins". Не можешь объяснить, как ты её сделал?

iTASmania_Inc
http://forum.ru-board.com/topic.cgi?forum=5&topic=4801&start=2060#10

Ещё раз спасибо, и ещё раз извини за мою тупость. Я только учусь писать на Inno и пока многого не понимаю!

Sampron
Проверь личку.

Sampron
Пасиб за подсказки ..

У меня еще вопросы:
- как отключить эту страницу:

Код: Выбор папки меню "Пуск"
Где программа установки должна создать ярлыки?

NightW0lf

Цитата:

Вообще этот код есть в Пятой версии руководства по Инно от Kindly.

Разобрался! Теперь скажи, пожалуйста, где брать эти музыкальные файлы, а то в инете голяк, и чем их лучше прослушать? Может, есть софт, чтоб самому их делать? Еще слыхал, что есть программа, которая выдирает их с кейгенов!

---

Kindly

Здравствуйте, скачал ваше "Руководство по расширенным возможностям Inno Setup 5" и возникли следующие вопросы:

1) можно ли обьеденить кнопки play и pause в единую или заместь кнопок, активный (ссылкой) текст, если нет, то, можно ли вынести текст в кнопке и поставить над ней;

2) почему после применения скина "Slate" (другие не проверял) теряется стиль шрифта из RTF документа (цвет, тип и цвет);

3) можно ли указывать свои (bmp) кнопки, просто при применение скина, дефолтовые (виндовые) смотрятся без закругленных краев, просматривается серый фон, это можно как-то обойти?

Andrey_Wlodimirovich

Цитата:

- как отключить эту страницу:
Код:
Выбор папки меню "Пуск"
Где программа установки должна создать ярлыки?

+ как убрать лишнюю надпись, заменив пробелом:


Код: [Setup]
DisableProgramGroupPage=yes
DefaultGroupName=Chuvakstepan\S.T.A.L.K.E.R

[Messages]
WizardSelectProgramGroup=
SelectStartMenuFolderDesc=Где программа установки должна создать ярлыки?

Andrey_Wlodimirovich
гыы.. дядька с калашом для САн Андреаса???

boss911

Цитата:

Теперь скажи, пожалуйста, где брать эти музыкальные файлы

Ну есть несколько способов:

1. Зайти на этот сайт там много такой музыки [доступной для скачивания] + там есть весь необходимый софт для ее прослушивания.
2. Прочитай статью тут или тут.

Здрасьте.
Можно как-нибудь распаковать инсталлятор Inno Setup, если setup.exe битый.
Взял игрушку, а диск поцарапанный, всё копируется кроме setup.exe(не полностью). Игра разбита на тома:setup-1.bin(1,6 гб), setup-2.bin(835mb) и сам setup.exe(~5mb).
Пробовал с помощью innounp, не помогает.

gar90
Проверь личку.

Andrey_Wlodimirovich

Цитата:

т.е. по умолчанию идет: строка 1, строка 2.. хочу убрать строку 1 и на ее место поставить строку 2.

Если отключить 1 строку то её небудет на всех страницах, можно просто уменьшить размер заднего фона текста чтоб он не ложился на твоё лого. Чтобы отредактировать найди в процедуре InitializeWizard(); эти строки и отредактируй так как тебе надо:

with PageDescriptionLabel do begin //строка 2
Left:=25 //месторасположение текста
Top:=25
Width:=500 //Размер текста
Height:=14
Color:=$663300 //Цвет заднего фона текста
Font.Color:=$ffffff //Цвет текста
end
with PageNameLabel do begin //строка 1 (чтобы отключить текст допиши такую стоку Visible:=False )
Left:=15
Top:=7
Width:=500
Height:=14
Color:=$663300
Font.Color:=$ffffff
end

Добавлено:
Michael007Pro
Попробуй этим распаковщиком http://legroom.net/software/uniextract

Цитата:

Michael007Pro
Попробуй этим распаковщиком http://legroom.net/software/uniextract

Этим пробовал тоже. Эта прога использует innounp.

boss911

Цитата:

2) почему после применения скина "Slate" (другие не проверял) теряется стиль шрифта из RTF документа (цвет, тип и цвет);

Мда действительно цвет и тип текста теряется сам незнаю почему но это можно исправить:

[Setup]
LicenseFile=License.rtf

[Files]
Source: License.rtf; DestDir: {tmp}; Flags: dontcopy

[Code]
Var
License: string;

Procedure InitializeWizard();
begin
ExtractTemporaryFile('License.rtf')
LoadStringFromFile(ExpandConstant('{tmp}') + '\License.rtf', License)

И в этот компонент:
with LicenseMemo do begin
Left:=0
Top:=38
Width:=465
Height:=266
end
добавь эту строчку:
RTFText:=License





Добавлено:

Цитата:

3) можно ли указывать свои (bmp) кнопки, просто при применение скина, дефолтовые (виндовые) смотрятся без закругленных краев, просматривается серый фон, это можно как-то обойти?

http://forum.ru-board.com/topic.cgi?forum=5&topic=23235&start=40#4

Chuvakstepan
Sampron
Пасибо большое

ValeronSoft
Неа,.. это я просто как для примера придумал )

NightW0lf

Спасибо, сайт суперовый!

---

Sampron

Пардон, я использую:

Код: [Setup]
InfoBeforeFile=rtf.rtf

boss911


[Setup]
InfoBeforeFile=Text.rtf

[Files]
Source: Text.rtf; DestDir: {tmp}; Flags: dontcopy

[Code]
Var
License: string;

Procedure InitializeWizard();
begin
ExtractTemporaryFile('Text.rtf')
LoadStringFromFile(ExpandConstant('{tmp}') + '\Text.rtf', License)

with InfoBeforeMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
end
добавь эту строчку:
RTFText:=License

Помогите разобраться с куском кода [я походу запутался в условиях и результатах]:

[more=Кусок кода]

Код:
[Setup]
AppName=name
AppVerName=name
DefaultDirName={pf}\name

[Files]
Source: "ISTask.dll"; DestDir: "{tmp}"; Flags: dontcopy noencryption

[code]
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
MD5, ResultStr: string;
hWnd: Integer;
begin
Result := True;
if not FileExists(ExpandConstant('{src}')+'\WwW.ALL-SofT.NeT.RU - TeaM.nfo') then
begin
MessageBox(hWnd, 'Файл "WwW.ALL-SofT.NeT.RU - TeaM.nfo" не найден в директории с инсталлятором.'#13#13'Для запуска необходим оригинальный файл "WwW.ALL-SofT.NeT.RU - TeaM.nfo".'#13#13'Верните файл "WwW.ALL-SofT.NeT.RU - TeaM.nfo" обратно и попробуйте еще раз.', 'Внимание!', MB_OK or $30);
Result:= False;
end
else
begin
MD5 := GetMD5OfFile(ExpandConstant('{src}\WwW.ALL-SofT.NeT.RU - TeaM.nfo'));
If not (MD5 = '945156034d291926915ad4d872f538a5') then
begin
MessageBox(hWnd, 'Ошибка суммы MD5 в файле "WwW.ALL-SofT.NeT.RU - TeaM.nfo".'#13#13'Установка будет прервана!', 'Внимание!', MB_OK or $10);
Result:=False;
end
else
begin
MyArray := ['A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z',
'1','2','3','4','5','6','7','8','9','0',
'!','@','#','$','%','^','&','*','(',')'];
Result:= True;
end
begin
//Поиск процесса который надо закрыть
if RunTask('Compil32.exe', false) then
begin
if MessageBox(hWnd, 'Программа установки русификатора обнаружила, что программа'#13'для которой установится русификатор запушена в данный момент. '#13#13' Закрыть программу?'#13#13 +
'"Да" - закроет и не сохранит измененные настройки в программе.' #13#13 +
'"Нет" - продолжит установку без закрытия.', 'Внимание!', MB_YESNO or $30) = idYes then
begin
KillTask('Compil32.exe');
Result := True;
end else
Exit;
end;
Result := True;
end;
end;
end;

Sampron

Ух, полчаса возился, пока не вскипел от злости, что я так туп в программировании! Куда тут вставить это, ну не как не получается скомпилить?!

С кнопками красивей конечно, но не привычно, что нет анимации, такое впечатления, что инстал повис! Пожалуй, обойдусь без них!

boss911
http://data.cod.ru/913014218

Sampron

Ну вы батенька и реактивный! Я, было уже хотел, похвастаться, что сам допетрил, как уже поступил ответ! Вот как я поступил и хотелось бы услышать, правильно ли так и, если нет, то почему, можно, в двух словах! Просто, хотелось бы, чтоб музыкальная часть относилась к коду музыки, а интерфейс (код) к внешней части инстала, как это ты уже успел заметить в моем скрипте! Чтоб мне так было удобно ориентироваться! Можно сделать и, конечно как?

Кстати, по поводу твоего скина с кнопками, если я использую "bassmod_with_buttons.iss", то, по сути, эти кнопки останутся в стороне и для них тоже надо будет дописывать код, и насколько это накладно? Это так, чисто спортивный интерес!

boss911

Цитата:

Вот как я поступил и хотелось бы услышать, правильно ли так и, если нет, то почему, можно, в двух словах!

Всё правильно просто ты раставил как тебе удобно чтоб не путаться а эффект тот же.

Добавлено:

Цитата:

Кстати, по поводу твоего скина с кнопками, если я использую "bassmod_with_buttons.iss", то, по сути, эти кнопки останутся в стороне и для них тоже надо будет дописывать код, и насколько это накладно? Это так, чисто спортивный интерес!

С подробным описанием:
http://data.cod.ru/914456010

Sampron
Хотелось бы спросить насчёт твоих скинов под InstallShield. Почему, когда я переключаю раскладку клавиатуры, у меня теряются картинки кнопок? А когда навожу курсором - то картинка вновь появляется. Это только у меня такой баг?

Sampron

Респект тебе за твой "MusicButton.iss"! Положил свою графику и доволен как слон, я даже и не представлял подобное, и мыслей не было, что так реально получится!

Кстати, а скин "Slate.iss" можно повесить и на деинсталлятор? А то, честно говоря, обидно, что деинсталл такой убогий по сравнению с инсталлом!

Как на BeveledLabel поставить свой цвет шрифта? По умолчанию он вроде сероватый и втопленый, так что на фоне картинки смотретса размыто. Так же, хотелось бы знать, как повесить на BeveledLabel ссылку?

---

iTASmania_Inc

Цитата:

когда я переключаю раскладку клавиатуры, у меня теряются картинки кнопок? А когда навожу курсором - то картинка вновь появляется.

Я использовал MusicButton от Sampron'a и подобного не замечал! Может, надо обновить Inno Setup, так, мысли вслух.

---

ALL

Как и чем сделать свою трекерную мелодию или это гемор?

boss911

Я вроде не про то! Погляди, пожалуйста, по ссылке!
http://data.cod.ru/917863882