[El Sanchez]

Тоже через костыли, но вроде работает. »

nik1967, на 32-разрядной системе не будет, не проверяете разрядность при обращении к HKLM64, привет исключению. Та даже если проверку сделаете, на 32-разрядной всё равно ничего не найдёте, обращаетесь к несуществующему разделу реестра.
nik1967, Vanadiy777, вы оба используете раздел WOW6432Node явно, это нельзя делать. Это сейчас вы его читаете, а потом писать туда начнёте и вот уже на 32-разрядных системах появляется раздел WOW6432Node, где быть его не должно. Браузеры ищите сначала в HKCU, потом в HKLM64 (с IsWin64), потом в HKLM32. Подраздел для всех базовых разделов одинаков - SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall, не надо тут никакой отсебятины с WOW6432Node.

[nik1967]

El Sanchez, мне то что, мне это не надо. Попросил человек, я помог, чем мог. Давно не занимался скриптами, старый стал. А тут немного размялся. Взял бы да и сам написал скрипт. По всем правилам. Всё, хватит. Отписал своё. Больше не буду вводить пользователей в заблуждение.

[Vanadiy777]

nik1967, зря Вы так... Ни кого Вы в заблуждение не вводили...
Только благодаря Вам я решил свою проблему, над которой ломал голову не одну неделю.
И, хотя маэстро El Sanchez говорит, что написано не правильно, тем не менее, теперь все чётко отрабатывает
и на 32-разрядной и на 64-разрядной системе, а также на 64-разрядной, если установлена Mozilla x86.

За что Вам еще раз огромное сердечное спасибо!!!

[Garasahedov]

Приветствую, не одну неделю ищу такой скрипт: http://www.forum.oszone.ru/post-1242285-250.html
Но инсталятор почему-то мигает. Дайте пожалуйста если имеется такой скрипт с botva и/или InnoCallback!

[DA-Bro]

Здравствуйте! Подскажите пожалуйста!
Тут вопрос упирается в WizardSmallImage.bmp.
В справках копался, на глаза так и не попалось решения, может плохо искал.

Есть какая то возможность чтобы эта картинка отображалась не из WizardSmallImage.bmp,
а из экзешника программы Program.exe, допустим отображала иконку 48x48.

И есть ли возможность, чтобы там отображалась картинка в PNG.

Может скрипт такой есть.

[Vanadiy777]

Есть какая то возможность чтобы эта картинка отображалась не из WizardSmallImage.bmp, а из экзешника программы Program.exe, допустим отображала иконку 48x48. »

DA-Bro,
можно из экзешника программы выдернуть иконку и сделать из нее свой WizardSmallImage.bmp нужного размера.
На счет PNG не знаю, но вроде просто так не поддерживается... Попробуйте на форуме примеры поискать.

[DA-Bro]

Vanadiy777, да я пробовал в некоторых программках и онлайн сервисах. Непрозрачные получаются. У меня фон тёмный. Приходится на этот по размеру фон накладывать значок в PNG. Потом в BMP. Так вроде нормально смотрится. Других подходящих решений пока не нашел.

[ZVSRus]

Картинка в .png лежит на панельке

#include "botva2.iss"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Files]
Source: "b2p.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "botva2.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "Icon.png"; DestDir: "{tmp}"; Flags: dontcopy

[code]
var
Panel1: TPanel;

function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\Icon.png')) then ExtractTemporaryFile('Icon.png');
Result := True;
end;

procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
SetBounds(ScaleX(370), ScaleY(0), ScaleX(58), ScaleY(58));
end;

with WizardForm.PageDescriptionLabel do
begin
Width := ScaleX(289);
end;

with WizardForm.PageNameLabel do
begin
Width := ScaleX(305);
end;

Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Parent := WizardForm.MainPanel;
SetBounds(ScaleX(436), ScaleY(0), ScaleX(58), ScaleY(58));
BevelOuter := bvNone;
end;
ImgLoad(Panel1.Handle, ExpandConstant('{tmp}\Icon.png'), ScaleX(0), ScaleY(0), ScaleX(58), ScaleY(58), True, False); // Картинка PNG
ImgApplyChanges(Panel1.Handle);
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

Картинка в .png лежит на MainPanel

#include "botva2.iss"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Files]
Source: "b2p.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "botva2.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "Icon.png"; DestDir: "{tmp}"; Flags: dontcopy

[code]
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\Icon.png')) then ExtractTemporaryFile('Icon.png');
Result := True;
end;

procedure InitializeWizard();
begin
with WizardForm do
begin
WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(370), ScaleY(0), ScaleX(58), ScaleY(58));
WizardForm.PageDescriptionLabel.Width := ScaleX(289);
WizardForm.PageNameLabel.Width := ScaleX(305);
end;

ImgLoad(WizardForm.MainPanel.Handle, ExpandConstant('{tmp}\Icon.png'), ScaleX(436), ScaleY(0), ScaleX(58), ScaleY(58), True, False); // Картинка PNG
ImgApplyChanges(WizardForm.MainPanel.Handle);
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

[DA-Bro]

ZVSRus, Спасибо!

[DA-Bro]

Может ещё кто поможет как кнопки прикручивать.

Я вот видел как у кого-то из репакоделов на фоне картинки WizardImage.bmp есть дополнительные две кнопки.
Расположены одна ниже другой.
Одна - веб ссылка на сайт программы или форума.
Вторая - открывает файл Info.RTF в культурном окошке для просмотра.

Я тут нашел кусок кода с кнопкой для ссылки, но она на всех окнах инсталлятора видна.
Не то.

Code

Код:

{ Переменные }
var
  PupMnu: TPopupMenu;
  btn: TButton;

{ Процедура обработки нажатия на кнопку }
procedure BtnOnClick(Sender: TObject);
var ErrorCode: Integer;
  p: TPoint;
begin
  p.x := btn.Left;
  p.y := btn.Top + btn.Height;
  p := Wizardform.ClientToScreen(p);
  PupMnu.Popup(p.x, p.y);
  ShellExec('open', 'http://forum.oszone.net/forum-62.html', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
  
{ Функция инициализации GUI программы установки }
procedure InitializeWizard();
var
  Mnu: TMenuItem;
begin
  PupMnu := TPopupMenu.Create(WizardForm);
  // Кнопка
  btn := TButton.Create(WizardForm);
  btn.Caption := 'OSZone';
  btn.Anchors := [akLeft, akTop, akBottom];
  btn.Left := ScaleX(165);
  btn.Top := ScaleX(336);
  btn.Width := ScaleX(62);
  btn.Height := ScaleX(22);
  btn.Parent := WizardForm;
  btn.OnClick := @BtnOnClick;
  btn.PopupMenu := PupMnu;
end;

Попробовал её рядом с кнопкой "Назад" расположить. Вроде нормально, но всё равно не то. Во всех окнах она.
На десятке вроде ровно. А на семёрке на пару пикселей вниз съезжает.
Нормально это или нет, сравнить не с чем. Не знаю.

А хотелось бы как выше описано, две кнопки с вышеописанными функциями на фоне картинки WizardImage.