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

nik1967 ни как не извлечь и не прилипнуть, можно сказать что даже все на мёртво прилеплено.

nik1967
Пробувал с Xenus2 botva2 ISDone-mode, такая же история вышла.

nik1967
Дело в том что у меня свой собственный скрипт.

Avenger13, кидай свой скрипт, посмотрим...

Alexander61434
nik1967
не подскажете мне нужно реализовать вещи:
наложить текстуры на кнопки инсталла
растянуть его по координатам
вставить изображение на каждую страницу
нанести заново текст+ изменить цвет шрифт и прочей
буду признателен за помощь

freestyle1309
[more=наложить текстуры на кнопки инсталла][Files]
Source: Button.bmp; Flags: dontcopy


Код:
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Тест!', mbInformation, MB_OK)
end;

procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;

begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('Button.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=BtnPanel
end
end;[/more]
[more=растянуть его по координатам]var
const
ButtonWidth = 80; //Указываем размер кнопок
ButtonHeight = 23;[/more]
[more=вставить изображение на каждую страницу]
[Files]
Source: 1.bmp; DestDir: {tmp}; Flags: dontcopy
[code_]ExtractTemporaryFile('1.bmp')
Procedure InitializeSkin();
begin
WizardImage:=TBitmapImage.Create(WizardForm)
WizardImage.AutoSize:=True
WizardImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'))
WizardImage.Parent:=WizardForm

Alexander61434
ое, мега спсибо. Надеюсь там без ботвы и скина?

freestyle1309, да, всё отлично. Главное - грамотно соединить...

Alexander61434
можно аську в MP?
ЗЫ зараннее спс!

Добавлено:
Alexander61434
вторая ссылка на кнопки а не на растягивание

freestyle1309, я думал на кнопки и нужно.
WizardForm.ClientWidth:=690
WizardForm.ClientHeight:=496
WizardForm.Font.Color:=$000000
WizardForm.Center

Alexander61434
нет скрипт не хочу давать, лучше лично все обсудим.

Alexander61434
в какой процедуре?

Подскажите пожалуйста, как реализовать установку программы в папку выбранную на своей странице TInputDirWizardPage (при DisableDirPage=yes)
делаю так:

Код: [Files]
Source: files\file.txt; DestDir: {code:ProgPath}\files;

ForceUserX
Дак задай
Цитата:

DefaultDirName

сам.

не помню команду(вроде бы {localappdata} ) и секцию скрипта, которая установила бы папку вот сюда:
c:\Documents and Settings\Admin\Local Settings\Application Data\
подскажите пожалуйста??

Help, тут (ниже постом пример) и тут, плиз.

У кого осталась первая версия скрипта SC2 от htuos??
Там ссыль сдохла.
Спасибо.

V2driver
Которая из них первая?
StarCraft2, StarCraft2_v2, install_StarCraft2_src

alex2605 Да, {localappdata}

[Files]
Source: folder\*; DestDir: {localappdata}; Flags: recursesubdirs createallsubdirs

boss911

Цитата:

WizardImage.bmp размером 100х314 и WizSmallImage.bmp размером 497х58
Там, где будет WizSmallImage.bmp, шрифт должен быть белого цвета и не иметь под собой фона, так как картинка под ним будет с множеством цветов.

Вот [more=держи][Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[code]
var
PageNameLabel, PageDescriptionLabel: TLabel;

procedure InitializeWizard();
begin
with WizardForm do begin
WizardBitmapImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(100), ScaleY(314));
WizardBitmapImage2.SetBounds(ScaleX(0), ScaleY(0), ScaleX(100), ScaleY(314));
WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleX(58));
end;

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;

PageNameLabel:= TLabel.Create(WizardForm);
PageNameLabel.SetBounds(ScaleX(25), ScaleY(10), ScaleX(300), ScaleY(20));
PageNameLabel.Parent:= WizardForm.MainPanel;
PageNameLabel.Transparent:= True;
PageNameLabel.Font.Style:= [fsBold]
PageNameLabel.Font.Color:= clWhite;

PageDescriptionLabel:= TLabel.Create(WizardForm);
PageDescriptionLabel.SetBounds(ScaleX(40), ScaleY(25), ScaleX(300), ScaleY(30));
PageDescriptionLabel.Parent:= WizardForm.MainPanel;
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.Font.Color:= clWhite;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption
end;[/more]

Добавлено:
nik1967

Цитата:

Здравствуйте, уважаемые форумчане! Может кто знает, как проценты распаковки поместить на прогресс бар? Пример
Научите неуча. В идеале было бы, что бы цвет индикатора процентов менялся по мере прохождения полосы прогресса.
На ботве без проблем, нужно штатными средствами Inno.

Ну как-то [more=так][Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Files]
Source: files\*; DestDir: {app}; AfterInstall: ExtLog(); Flags: recursesubdirs

[Code]
var
ProgressLabel: TLabel;

procedure ExtLog();
begin
with WizardForm.ProgressGauge do begin
ProgressLabel.Caption:=IntToStr((Position-Min)/((Max - Min)/100)) + '%'
if (Position-Min)/((Max - Min)/100) > 50 then ProgressLabel.Font.Color:= clWhite
end
end;

procedure InitializeWizard;
begin
ProgressLabel:=TLabel.Create(WizardForm)
ProgressLabel.Top:= 4
ProgressLabel.Left:= 200
ProgressLabel.Caption:= '0%'
ProgressLabel.AutoSize:= True
ProgressLabel.Font.Color:= clBlue
ProgressLabel.Font.Style:= [fsBold]
ProgressLabel.Transparent:= True
ProgressLabel.Parent:= WizardForm.ProgressGauge
end;[/more] Можно повесить на таймер

nik1967 спасибо!
Самая последняя это первая))

Shegorat

Человечище, огромное вам спасибо, все работает. Обратите внимание, плиз, что текст на странице приветствия сдвинут в лево, так как уменьшилась область 'WizardBitmapImage'. Помогите и мне подвинуть весь этот текст на странице приветствия немного в лево. Добавьте необходимый код в уже представленный выше вами код, а то я далек от Паскаля.

А с этим делом вы мне не поможете?

boss911 [more=Вот пример]
[Setup]
AppName=Perlink for Magnets Dc Hub
AppVerName=Perlink 5.48
DefaultDirName={pf}\Perlink for Magnets Dc Hub

[Code]
var
PageNameLabel, PageDescriptionLabel: TLabel;

procedure InitializeWizard();
begin
with WizardForm.WelcomeLabel2 do
begin
Left := ScaleX(85);
Width := ScaleX(400);
end;

with WizardForm.WelcomeLabel1 do
begin
Left := ScaleX(85);
Width := ScaleX(400);
end;

with WizardForm do begin
WizardBitmapImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(70), ScaleY(314));
WizardBitmapImage2.SetBounds(ScaleX(0), ScaleY(0), ScaleX(70), ScaleY(314));
WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleX(58));
end;

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;

PageNameLabel:= TLabel.Create(WizardForm);
PageNameLabel.SetBounds(ScaleX(10), ScaleY(10), ScaleX(300), ScaleY(20));
PageNameLabel.Parent:= WizardForm.MainPanel;
PageNameLabel.Transparent:= True;
PageNameLabel.Font.Style:= [fsBold]
PageNameLabel.Font.Color:= clWhite;

PageDescriptionLabel:= TLabel.Create(WizardForm);
PageDescriptionLabel.SetBounds(ScaleX(40), ScaleY(25), ScaleX(300), ScaleY(30));
PageDescriptionLabel.Parent:= WizardForm.MainPanel;
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.Font.Color:= clWhite;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption
end;
[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl[/more]

Shegorat
Спасибо!

boss911

пробовал так?

Код: Comment: {#SetupSetting('AppName')}{#SetupSetting('VersionInfoVersion')}

Подскажите, как сделать в окне выбора компонента простую надпись ?

Ну например:

Какую игру установить ? - вот эту злаполучную надпись :)
o Postal2
o Call of Duty 4
o Barby

Заранее благодарен!

доброго времени суток, прошу помощи у знающих - мне нужно повесить два обработчика - один на обработку чекбокса(при выборе ассоциировать с рограмой файлы ххх), второй - при инсталяции - на изменение файла при его наличии(если файл уже есть, то запрос и изменение/не содержимого).
читал и курил мануалы - не помогло(
код [more]
[Setup]
....
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1
; тут стоит радиобатон, а нуужен чек
Name: xxx; Description: "X - файлы (*.x) "; GroupDescription: "Ассоциировать"; Components: "main"; Flags: exclusive

[Types]
Name: "full"; Description: "моя печаталка"; Flags: iscustom


[Components]
Name: "main"; Description: "Необходимые компоненты"; Types: full; Flags: fixed


[Files]
Source: "C:\work\printer.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\work\params.ini"; DestDir: "{app}"; Flags: confirmoverwrite
; NOTE: Don't use "Flags: ignoreversion" on any shared system files


[Icons]
Name: "{group}\Print"; Filename: "{app}\print.exe"; WorkingDir: "{app}"
Name: "{group}\{cm:UninstallProgram,Print Reports}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\Print"; Filename: "{app}\print.exe"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Print"; Filename: "{app}\print"; Tasks: quicklaunchicon

[INI]
Filename: "{app}\params.ini"; Section: "params"; Key: "port"; String: "" ; Flags: uninsdeleteentry
Filename: "{app}\params.ini"; Section: "params"; Key: "val"; String: ""; Flags: uninsdeleteentry
Filename: "{app}\params.ini"; Section: "params"; Key: "dev"; String: ""; Flags: uninsdeleteentry


[Run]
Filename: "{app}\print.exe"; Description: "{cm:LaunchProgram,Print Reports}"; Flags: nowait postinstall skipifsilent



; регаем в реестре
[Registry]
Root: HKCR; Subkey: "xxx"; ValueType: string; ValueName: ""; ValueData: ""; Flags: uninsdeletevalue; Tasks: xxx
Root: HKCR; Subkey: "xxx\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{pf}\Print\print.exe,0"; Tasks: ххх
Root: HKCR; Subkey: "xxx\shell\open\command"; ValueType: string; ValueName: "(По умолчанию)"; ValueData: "{pf}\Print\print.exe %1"; Tasks: ххх


[/more]

Всем привет! Прикрутите, пожалуйста к этому скрипту распаковку freearc. Спасибо.
Скрипт

Что нужно прописать в скрипте Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone чтоб PhysX_10.05.12_9.10.0512_SystemSoftware.exe был как на скрине и устанавливался?
[more] [/more]
И устанавливался PhysX_10.05.12_9.10.0512_SystemSoftware.exe?
[more] [/more]

r1977
[Run]
Filename: {src}\Redist\PhysX_10.05.12_9.10.0512_SystemSoftware.exe; Parameters: /passive; StatusMsg: Nvidia PhysX System Software
нужно PhysX_10.05.12_9.10.0512_SystemSoftware.exe кинуть в папку Redist и папка Redist должно лежать рядом с инсталлятором

azerbaijanec
А srep как пользоваться не подскажешь?

[Run]
Filename: {src}\Redist\PhysX_10.05.12_9.10.0512_SystemSoftware.exe; Parameters: /passive; StatusMsg: Nvidia PhysX System Software
нужно PhysX_10.05.12_9.10.0512_SystemSoftware.exe кинуть в папку Redist и папка Redist должно лежать рядом с инсталлятором

Все равно выдает ошибку

r1977
скачай Packers Show 3.2