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

boss911

Цитата:

Кстати, а скин "Slate.iss" можно повесить и на деинсталлятор?

Деинсталлятор через код не редактируется только в ресурсах изменить можно.

Цитата:

Как на BeveledLabel поставить свой цвет шрифта?

Найди это и редактируй:
with BeveledLabel do begin
Left:=10
Top:=468
Enabled:=False
Color:=$5c5249
end

iTASmania_Inc
Это единственная проблема которую я несмог решить она также присутствует на странице лицензии при принятии соглашения и на странице программной групы если поставить флаг "Не создавать папку вменю Пуск".

Sampron


Цитата:

только в ресурсах изменить можно.

К сожалению не выход, так как в ходе установки у юзера спрашивается: какие компоненты выбрать, задачи и т.д. А так надо сидеть по каждую фичу создавать деинсталл, а потом все в месте компилить, неохота!

Цитата:

Найди это и редактируй

Посидел чуть и допер сам, вот что у меня теперь стоит:

Код: with BeveledLabel do begin
Left:=555
Top:=40
Width:=150
Height:=18
Enabled:=True
Color:=9208939
Font.Color:=6095384
Font.Size:=8

boss911

Цитата:

К сожалению не выход, так как в ходе установки у юзера спрашивается: какие компоненты выбрать, задачи и т.д. А так надо сидеть по каждую фичу создавать деинсталл, а потом все в месте компилить, неохота!

Немного непонял но в ресурсах можно изменить само окно прогресса деинсталлятора в файле Setup.E32.
На него рисунок нельзя наложить но его можно сделать примерно таким каким я сделал в инсталле скинов.
Также можно решить проблему с исчезновением текстур кнопок при переключении шрифтов в ресурсах.

To ALL
Страншо писать вам Все уже умудрённые.. и я тут со свим глупым вопросом. Подскажите?
Вопрос -
Есть программа, не буду расписывать очень подробно, после установке она прописывается как служба. И создаёт соответсвенно для ярлыка. Для повторного запуска службы и для удаления-остановки службы. Как сделать чтобы при деинсталляции, инсталлятор с начала останавливал службу и только после это делал остальные дела. Тобишь в самом простом случаем, деинтсал должен запускать файл stopservices.exe (состряпал сам, думаю так легче будет), и после этого остальное. Заранее спасибо.

Привет. Помогите пожалуйста соеденить две части кода.
[more=этот]
var
Image2: TBitmapImage;
function mciSendString(lpstrCommand: string; lpstrReturnString: string; uReturnLength:integer; hwndCallback:integer):integer;
external 'mciSendStringA@winmm.dll stdcall';
procedure InitializeWizard();
var
Page: TWizardPage;
BackImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('Image2.bmp')
WizardForm.WizardBitmapImage.Width:=497
WizardForm.WelcomeLabel1.Visible:=False
WizardForm.WelcomeLabel2.Visible:=False
WizardForm.WizardBitmapImage2.Visible:=False
WizardForm.FinishedLabel.Visible:=False
WizardForm.FinishedHeadingLabel.Visible:=False
ExtractTemporaryFile(ExpandConstant('Sound.mp3'))
mciSendString(ExpandConstant('play {tmp}\Sound.mp3 repeat'),'NULL',0,0)
ExtractTemporaryFile('BackImage.bmp')
s:=ExpandConstant('{tmp}')+'\BackImage.bmp'
BackImage:=TBitmapImage.Create(MainForm)
BackImage.Bitmap.LoadFromFile(s)
BackImage.Align:=alClient
BackImage.Parent:=MainForm
BackImage.Stretch:=True
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpFinished then
begin
Image2:=TBitmapImage.Create(WizardForm)
with Image2 do begin
Left:=0
Top:=0
Width:=497
Height:=313
Parent:=WizardForm.FinishedPage
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Image2.bmp')
end
end
end;[/more]
[more=с етим]
[#]procedure BevelLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
with WizardForm.BeveledLabel do
begin
Cursor := crHand;
OnClick := @BevelLabelOnClick;
Font.Style := Font.Style + [fsUnderline];
Font.Color := clBlue;
Enabled:= True;
end;
end;[/more]
Спасибо.

Sampron

Дорогой, ты по подробней плиз!
Что, куда, как и чем?

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

boss911
Открываешь Setup.e32 через ResHacker ( http://kusto.ru/modules.php?name=News&file=view&news_id=66 ) заходишь в RCData\TUNINSTPROGRESSFORM\0 и там редактируешь.

Добавлено:
OrenAlexI
[UninstallRun]
Filename: {app}\stopservices.exe; Flags: waituntilidle skipifdoesntexist

Sampron
спасибо тебе .. ты великий....
P.S.
И тут же повторный вопрос, возможно детектирование платформы 64 бита. То что есть нт вкурсе. Программа состоит из нескольких компонентов, и в зависимости от платформы ставяттся определённые. Можно реализовать?

Sampron

Эх, еслибы я знал, что там редактировать то надо! Я так и не понял, как сделать:

Цитата:

На него рисунок нельзя наложить но его можно сделать примерно таким каким я сделал в инсталле скинов.

то есть сделать окно таким же размером как и инсталл или еще чего-то?
Так же особенно волнует это:

Цитата:

Также можно решить проблему с исчезновением текстур кнопок при переключении шрифтов в ресурсах.

прочел "ScriptMaker Удобная оболочка для облегчения написания скриптов установки для INNO SETUP. Обладает некоторыми полезными функциями, которых нет ни у самого INNO, ни у ISTool"
скачал ScriptMaker - резко не понравился ....
может ктонибудь просветить... что это за возможности?

boss911

Цитата:

Также можно решить проблему с исчезновением текстур кнопок при переключении шрифтов в ресурсах.

Открываешь Setup.e32 через ResHacker заходишь в RCData\TWIZARDFORM\0 находишь там такие строчки:

object CancelButton: TButton
object NextButton: TButton
object BackButton: TButton
object DirBrowseButton: TButton
object GroupBrowseButton: TButton
и заместь TButton пропиши TPanel и в кнопках CancelButton и NextButton удали эти строчки:
Cancel = True
Default = True
потом компилируешь и сохраняешь.

Sampron

Скин "Slate" ставлю без кнопок, так что кнопки получились плоскими, кроме "Отмена". Просто это мне надо только для "MusicButton.iss", как быть?

boss911
Тогда все названия TButton которые относятся к кнопкам музыки замени на TPanel.

Sampron

Ошибку выбивает при запуске инсталла, что-то там с CancelButton.

boss911
Если ты переделываешь в файле то удали эти строчки:
Cancel = True
Default = True

Sampron

Короче, все сделал как ты указал, теперь вообще кричит при компиляции, что не может найти Setup.e32! Так, я уже намучался, пошло оно все, так как мне надо только для "MusicButton", на другие кнопки я скинов не применяю!

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

boss911
Держи http://data.cod.ru/923958730 для версии 5.1.12

Sampron

Всеровно текстуры пропадают! Ладно, оставили это дело, так как это все для общих кнопок делается, а мне только для "MusicButton" надо!

Ты лучше скажи, помочь в этом вопросе можешь? Очень нужно!

Где тут не хватает или лишние end; ? Замучался совсем, хочу, чтоб каждое находилось в своем разделе, ну ты понял!

Помогите пожалуйста соеденить две части кода.
[more=этот]
var
Image2: TBitmapImage;
function mciSendString(lpstrCommand: string; lpstrReturnString: string; uReturnLength:integer; hwndCallback:integer):integer;
external 'mciSendStringA@winmm.dll stdcall';
procedure InitializeWizard();
var
Page: TWizardPage;
BackImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('Image2.bmp')
WizardForm.WizardBitmapImage.Width:=497
WizardForm.WelcomeLabel1.Visible:=False
WizardForm.WelcomeLabel2.Visible:=False
WizardForm.WizardBitmapImage2.Visible:=False
WizardForm.FinishedLabel.Visible:=False
WizardForm.FinishedHeadingLabel.Visible:=False
ExtractTemporaryFile(ExpandConstant('Sound.mp3'))
mciSendString(ExpandConstant('play {tmp}\Sound.mp3 repeat'),'NULL',0,0)
ExtractTemporaryFile('BackImage.bmp')
s:=ExpandConstant('{tmp}')+'\BackImage.bmp'
BackImage:=TBitmapImage.Create(MainForm)
BackImage.Bitmap.LoadFromFile(s)
BackImage.Align:=alClient
BackImage.Parent:=MainForm
BackImage.Stretch:=True
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpFinished then
begin
Image2:=TBitmapImage.Create(WizardForm)
with Image2 do begin
Left:=0
Top:=0
Width:=497
Height:=313
Parent:=WizardForm.FinishedPage
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Image2.bmp')
end
end
end;[/more]
[more=с етим]
[#]procedure BevelLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
with WizardForm.BeveledLabel do
begin
Cursor := crHand;
OnClick := @BevelLabelOnClick;
Font.Style := Font.Style + [fsUnderline];
Font.Color := clBlue;
Enabled:= True;
end;
end;[/more]
Спасибо. Изинете что повторяюсь, но очень надо.

Free7et
Вот пожалуйста - [more=код] var
Image2: TBitmapImage;
function mciSendString(lpstrCommand: string; lpstrReturnString: string; uReturnLength:integer; hwndCallback:integer):integer;
external 'mciSendStringA@winmm.dll stdcall';


procedure BevelLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();


var
Page: TWizardPage;
BackImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('Image2.bmp')
WizardForm.WizardBitmapImage.Width:=497
WizardForm.WelcomeLabel1.Visible:=False
WizardForm.WelcomeLabel2.Visible:=False
WizardForm.WizardBitmapImage2.Visible:=False
WizardForm.FinishedLabel.Visible:=False
WizardForm.FinishedHeadingLabel.Visible:=False
ExtractTemporaryFile(ExpandConstant('Sound.mp3'))
mciSendString(ExpandConstant('play {tmp}\Sound.mp3 repeat'),'NULL',0,0)
ExtractTemporaryFile('BackImage.bmp')
s:=ExpandConstant('{tmp}')+'\BackImage.bmp'
BackImage:=TBitmapImage.Create(MainForm)
BackImage.Bitmap.LoadFromFile(s)
BackImage.Align:=alClient
BackImage.Parent:=MainForm
BackImage.Stretch:=True
begin
with WizardForm.BeveledLabel do
begin
Cursor := crHand;
OnClick := @BevelLabelOnClick;
Font.Style := Font.Style + [fsUnderline];
Font.Color := clBlue;
Enabled:= True;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpFinished then
begin
Image2:=TBitmapImage.Create(WizardForm)
with Image2 do begin
Left:=0
Top:=0
Width:=497
Height:=313
Parent:=WizardForm.FinishedPage
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Image2.bmp')
end
end
end;[/more]

Sampron
Огромный тебе респект за работу, проделанную тобой со скинами!

boss911
Ну ты блин и налепил забирай: http://data.cod.ru/929660362

Добавлено:
Насчёт SILENT незнаю как сделать.

All
Необходимо установить программу под правами админа на компьютере пользователя. Хотелось бы сделать так, чтобы при запуске инсталлятора появлялось окошко с предложением изменения прав доступа на установку (типа "Запуск от имени..."). В сам инсталлятор проверку прав админа я добавил, но при запуске не админом инсталлятор выдает сообщение "Для запуска необходимы права администратора" и прекращает установку, а хотелось чтобы он предлагал запуск от другого имени. Можно ли так сделать?

Такая проблемка. При использовании слайдшоу (код взял отсюда) на странице выбора компонентов тип установки не выбран, нужно выбирать вручную. Если просто использовать фон, без слайдшоу, то все ОК. Никто не знает, что это такое? Я думаю, что нужно с помощью кода выбрать один из типов установки, но не знаю как. Подскажите!

Sampron

Цитата:

забирай: http://data.cod.ru/929660362

Ай да молодца, ай да спасибо, ты приносишь в этот мир красивые инсталлы!

Цитата:

Насчёт SILENT незнаю как сделать.

Слушай, а как думаешь, это вообще можно осуществить (реально) и к кому можно обратиться? Ну, ОЧЕНЬ надо!

boss911
Я думаю можно но обратится незнаю к кому.

boss911
А если так?
http://rl-team.ru/1909187

Цитата:

Такая проблемка. При использовании слайдшоу (код взял отсюда) на странице выбора компонентов тип установки не выбран, нужно выбирать вручную. Если просто использовать фон, без слайдшоу, то все ОК. Никто не знает, что это такое? Я думаю, что нужно с помощью кода выбрать один из типов установки, но не знаю как. Подскажите!

Ауууу..... Есть кто живой?

FLIER
Выложи код проверим.