Скрипты Inno Setup. Помощь и советы [часть 3]

[Serega]

так получилось что их 2 штуки в коде, что делать? »
Объединить в одну, руками или с помощью InnoSetup Script Joiner (ссылка в шапке темы).

[Vamp1re]

а можете мне дать целую готовую командную строку rar?
или изменить параметр в моей строке
Filename: {src}\Data.exe; WorkingDir: {src}; Parameters: "-o""{app}"" -y -aoa"; StatusMsg: Распаковка игровых архивов...; Flags: waituntilterminated;

[Gnom_aka_Lexander]

Filename: {src}Data.exe; »
Правильно будет так: Filename: {src}\Data.exe;

[actavir]

А можно поставить фон так у инсталлятора что бы изображения справа и в шапке не исчезли?

[Rostlv]

Serega, огромное Вам спасибо, теперь прогрессбар такой, как надо.
Про бегунок в XP. В стандартных темах, типа Luna, бегунок есть, но в более новых темах для XP под Висту и Севен, где прогрессбар цельный, он не отображается. При этом, основной прогрессбар работает правильно и виден. В самой Seven бегунок есть.
Пожелание, а можно текст "Ваше сообщение" расположить не над основным прогрессбаром, а над фейковым? Было бы резоннее.

А теперь ещё одна небольшая проблема. На странице мастера "Всё готово к установке" в графе "Тип установки:" не переводится "Full installation", "Custom installation", при условии наличия в скрипте секции [Types], без неё перевод есть. Добавление перевода в секцию [CustomMessages] проблему не решает. Сделать два языка в секции [Types] не получается, программа не позволяет дважды добавлять типы full и сustom.

[gur74]

Как можно сделать что бы IS проверял платформу и устанавливал соответствующую ей 32 bit или 64-bit, или это только можно сделать при помощи страницы выбора компонентов???

[R.i.m.s.k.y.]

Как можно сделать что бы IS проверял платформу и устанавливал соответствующую ей 32 bit или 64-bit, или это только можно сделать при помощи страницы выбора компонентов »
Стандартная функция IsWin64 - True если винда 64
В секциях, кроме Code, можно использовать Check: (IsWin64) и Check: (not IsWin64)
Source: Profiles\*; DestDir: {app}\Profiles\; Flags: ignoreversion recursesubdirs createallsubdirs restartreplace; Check: (IsWin64)

Так же рекомендую в справке инно в поиске набрать x64 и почитать что он там напишет. Там мало, минут 5 читать всего лишь.

[Молодой]

Доброго времени суток, подскажите как убрать текст
http://imagepost.ru/thumbs/417/qBvb9JTLgR9q.PNG (http://imagepost.ru/?v=417/qBvb9JTLgR9q.PNG)
Заранее благодарен ))

Спасибо за помощь!
Вопрос решил, в коде разобрался!

[gur74]

R.i.m.s.k.y.

Спасибо!!!

[Gnom_aka_Lexander]

ksunechkin, serg aka lain,
Вот, оценивайте, от ботвы отказался, слишком громоздко, родные средства Инно позмоляют вставлять битмапы и икон-файлы на любые страницы. И скрипт выходит заметно меньше размером :)

[R.i.m.s.k.y.]

Лександер, разрешите поинтересоваться, как Инно Ультра поживает? есть ли страничка с постоянно обновляемым дистром?

[Gnom_aka_Lexander]

R.i.m.s.k.y., У меня нету, поскольку это всего лиш комплект уже готовых программ. Обновлять на данный момент пока нечего, единственное могу посоветовать удалить русский язык из расширенной версии, он для предидущей, и на новой пока кривовато работает. Как русик для расширенной версии новый напишут, так обновлю. Сделаю два варианта дистра - нормальный, и для тех, у кого инет не резиновый, без Скин Билдера (полторы сотни метров установленный весит).
Может чего по оформлению посоветуеш?И, да, данный вопрос ближе кэтой (http://forum.oszone.net/thread-148707.html) теме, там я и выкладываю обновленные пакеты.

[R.i.m.s.k.y.]

Лександер,
ок

[Raf96]

Скажите кто нибудь как переместить кнопки, изменить их размер и сместить в них текст?

[R.i.m.s.k.y.]

Скажите кто нибудь как переместить кнопки, изменить их размер и сместить в них текст? »
В шапке Inno Form Designer

[Gnom_aka_Lexander]

Raf96, Можно. В расширенном редакторе это легко реализуется :)
R.i.m.s.k.y., Фром дизайнер встроен в расширенную версию, это раз, на семерке он не работает, это два :)
По этим причинам я сбираюсь исключить его из своего пакета :)
Кто-бы справочку сваял нормальную по расширенной версии... Это три :)

[serg aka lain]

Вот, оценивайте »
Нормально.
Для аккуратности битмапов (белые квадраты фона) можно добавить:

ReplaceColor := clWhite;
ReplaceWithColor := clBtnFace;

[Gnom_aka_Lexander]

serg aka lain, Ну, под себя там еще много чего можно сделать :) я уже все перелопатил под темный фон:)

[Vamp1re]

а как сделать чтоб перед установкой программы (игры) показалась картинка или логотип программы (игры)

[Vista-w]

Как сделать, чтоб после установки игры, запустилась установка DirrectX ?
как тут http://img7.imageshost.ru/imgs/090802/0c19f89157/924ac.jpg

Вот код, сделать не как не могу.

[Setup]
SourceDir=.
OutputDir=Setup
AppName=Operation 7
AppVerName=Operation 7
AppVersion=Operation 7
AppPublisher=Vista-w
AppCopyright=Vista-w
DefaultDirName={pf}\GFI\Operation 7
DefaultGroupName=Operation 7
AllowNoIcons=yes
OutputBaseFilename=setup
SetupIconFile=C:\Program Files\GFI\Operation 7\OPERATION7.ico
WindowVisible=no
WindowShowCaption=no
WizardImageFile=C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Operation 7\Типография\WizardImage.bmp
WizardSmallImageFile=C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Operation 7\Типография\WizardSmallImage.bmp
WindowResizable=no
Compression=lzma/ultra
SolidCompression=yes
DiskSpanning=yes
DiskSliceSize=2100000000
SlicesPerDisk=1

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"

[Files]
Source: C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Operation 7\1.reg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Operation 7\Типография\Logo.bmp"; DestDir: "{tmp}"; Flags: dontcopy

Source: "C:\Program Files\GFI\Operation 7\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\Operation 7"; Filename: "{app}\OPERATION7.exe"; WorkingDir: "{app}";
Name: "{userdesktop}\Operation 7"; Filename: "{app}\OPERATION7.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{group}\{cm:UninstallProgram,Operation 7}"; Filename: "{uninstallexe}"

[Registry]
Root: HKLM; Subkey: "Software\GFI"; Flags: uninsdeletekeyifempty
Root: HKLM; Subkey: "Software\GFI\Operation 7"; Flags: uninsdeletekey
Root: HKLM; Subkey: "Software\GFI\Operation 7"; ValueType: string; ValueName: "PATH"; ValueData: "{app}"

[Run]
Description: "{cm:LaunchProgram, Operation 7}"; Filename: "{app}\OPERATION7.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent unchecked
Filename: {win}\regedit.exe; Parameters: /s {tmp}\1.reg; StatusMsg: "Вносим изменения в реестр ..."; Flags: waituntilterminated runasoriginaluser

[UninstallDelete]
Type: filesandordirs; Name: "{app}"
Name: {tmp}\1.reg; Type: filesandordirs; Components: ; Tasks: ; Languages:

[Code]

function InitializeSetup:boolean;
begin
ExtractTemporaryFile('1.reg');
Result:=True;
end;

var
MyPanel: TPanel;
bottom_img:TBitmapImage;
BmpFile: TBitmapImage;

procedure InitializeWizard();
begin
MyPanel := TPanel.Create(WizardForm);
with MyPanel do
begin
Align := alClient;
Parent := WizardForm;
end;

with WizardForm.WizardBitmapImage do
begin
Align := alClient;
Parent := MyPanel;
end;

with TLabel.Create(WizardForm) do
begin
AutoSize := WizardForm.WelcomeLabel1.AutoSize;
WordWrap := WizardForm.WelcomeLabel1.WordWrap;
Left := WizardForm.WelcomeLabel1.Left;
Top := WizardForm.WelcomeLabel1.Top;
Width := WizardForm.WelcomeLabel1.Width;
Height := WizardForm.WelcomeLabel1.Height;
Caption := WizardForm.WelcomeLabel1.Caption;
Font.Size := WizardForm.WelcomeLabel1.Font.Size;
Font.Style := WizardForm.WelcomeLabel1.Font.Style;
Font.Color := clWhite;
TransParent := True;
Parent := MyPanel;
end;

with TLabel.Create(WizardForm) do
begin
AutoSize := WizardForm.WelcomeLabel2.AutoSize;
WordWrap := WizardForm.WelcomeLabel2.WordWrap;
Left := WizardForm.WelcomeLabel2.Left;
Top := WizardForm.WelcomeLabel2.Top;
Width := WizardForm.WelcomeLabel2.Width;
Height := WizardForm.WelcomeLabel2.Height;
Caption := WizardForm.WelcomeLabel2.Caption;
Font.Size := WizardForm.WelcomeLabel2.Font.Size;
Font.Style := WizardForm.WelcomeLabel2.Font.Style;
Font.Color := clWhite;
TransParent := True;
Parent := MyPanel;
end;

WizardForm.NextButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
MyPanel.Hide;
if CurPageID = wpWelcome then
MyPanel.Show;
begin
with WizardForm do begin
with MainPanel do
Height := Height - 0;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 59; //Размер рисунка
Width := 497; //
end;
with PageNameLabel do begin
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
with PageDescriptionLabel do begin
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
end;
end;
begin
WizardForm.FileNameLabel.Visible:= False;
ExtractTemporaryFile('Logo.bmp');
bottom_img:= TBitmapImage.Create(WizardForm);
bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
bottom_img.SetBounds(0, 315, 175, 40);
bottom_img.Parent:= WizardForm;
bottom_img.Stretch:= True;
end;
end;