[Winstan]

Я так полагаю, что изображение загружено на какой-то контрол, если да то: UninstallProgressForm.ProgressBar.Parent:= ваш контрол; »

За это спасибо,а как можно убрать стандартное сообщение переде удаление и после?
Что бы их просто не было запустил унинстал.ехе появилась стр. с пб. удалилось и закрылось.

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

В дополнение к предыдущему вопросу моему
как можно в коде обработать выбор пользователя в Components?

[Serega]

как можно убрать стандартное сообщение переде удаление и после? »

Написал пример, для Restools, можно и для обычной, но там надо использовать InnoCallBack.dll...

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
const
  BM_CLICK    = $00F5; // это обычный клик 
  WM_CLOSE    = $0010; // понятно из названия

// Осуществляет поиск дочернего окна
function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND;
  external 'FindWindowExA@user32.dll stdcall';

var
  Timer: TTimer;
  msg: string;
  Wnd, WndEx: HWND;
  count: Integer;
  
procedure OnTimer(Sender: TObject);
begin
  Wnd:= FindWindowByWindowName(msg); // ищем сообщение
  if Wnd > 0 then // если нашли
    if count = 1 then // если первое уже находили, то
      PostMessage(Wnd, WM_CLOSE, 0, 0) // просто закрываем
    else
    begin
      WndEx:= FindWindowEx(Wnd, 0,'Button', SetupMessage(msgButtonYes)); // ищем кнопку
      if WndEx > 0 then // если нашли
        begin
          PostMessage(WndEx, BM_CLICK, 0, 0); // нажимаем кнопку
          count:= 1; // указываем что первое сообщение уже нашли
          Timer.Enabled:= False; // отключаем таймер
        end;
    end;
end;

function InitializeUninstall(): Boolean;
begin
  Result:= True;

  // задаём переменной текст окна
  msg:= SetupMessage(msgUninstallAppFullTitle);
  StringChange(msg, '%1', '{#SetupSetting('AppName')}');

  Timer:= TTimer.Create(nil);
  with Timer do
    begin
      OnTimer:= @OnTimer;
      Interval:= 1;
      Enabled:= True;
    end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then Timer.Enabled:= True; // включаем таймер ещё раз
end;

[AH4OyC]

Как сделать так чтобы передвинуть текст на всех страницах по разному(как на скринах)? И как сделать размер и другой шрифт всего текста на всех страницах?

ЗЫ. Я начинающий пользователь так что если можно можете расписать в скрипте как для чайника.

[Winstan]

Serega,
Все понял фишку происходит мили секундное появление и переходит на другую страницу. Но все же глаз человека их видит. Интервал больше ставишь происходит по стондарту, норм интервал где то коло 100 еще более мения махом мелькает.
Но все же если бы была возможность их отключить (то их бы отключили) и написать новую форму то другое дело а так значит не как.
Спасибо за вариант решения данной проблемы..

[Serega]

при параметре /auto инсталлер не отсвечивал лишними окнами »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
function IsParamStr: Boolean;
var
  i: Integer;
  str: string;
begin
  Result:= False;
  for i:= 0 to ParamCount do
    str:= str + ParamStr(i);
  if Pos(Lowercase('/auto'), Lowercase(str)) > 0 then
  Result:= True;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID > 0) and IsParamStr then
    WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;

но при параметре /auto в скрипте должны отрабатываться свои "ветки") »

Если где-то в коде, то if IsParamStr then - какое-то дествие...
Если выполнять или нет какие-то секции в скрипте, задавайте с помощью Check:

Код:

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Check: IsParamStr; Flags: ignoreversion

как можно в коде обработать выбор пользователя в Components? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Components]
Name: a; Description: Моя программа™; Types: full custom
Name: a\a; Description: Руководство пользователя; Types: full
Name: a\a\a; Description: Русский; Flags: exclusive
Name: a\a\b; Description: English; Flags: exclusive
Name: a\b; Description: Справка; Types: full

[Code]
procedure ClickCheck(Sender: TObject);
var
  msg: string;
begin
  msg:= 'Был клик по компоненту:' + #13#10;
  msg:= msg + 'Номер: ' + IntToStr(WizardForm.ComponentsList.ItemIndex) + #13#10;
  msg:= msg + 'Описание: ' + WizardForm.ComponentsList.ItemCaption[WizardForm.ComponentsList.ItemIndex];
  MsgBox(msg, mbInformation, MB_OK);
end;

procedure InitializeWizard();
begin
  WizardForm.ComponentsList.OnClickCheck:= @ClickCheck;
end;

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

Serega
Спасибо! Будем адаптировать

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

Уже косметический вопрос - как увеличить размер окна выбора компонентов? Чтобы вместе с белым списком этих компонентов, окно то я растянул.

И заодно подскажите, как поменять текст на странице приветсвия? (самой первой после запуска экзешника)

Подозреваю, что ответит Serega, душевное ему спасибо!

[YURSHAT]

И заодно подскажите, как поменять текст на странице приветсвия? »

WelcomeLabel1.Caption:= 'бла-бла-бла'
WelcomeLabel2.Caption:= 'бла-бла-бла'

или так

Код:

WelcomeLabel2:=TLabel.Create(WizardForm); 
with WelcomeLabel2 do 
begin 
  Top:= ScaleY(270); 
  Left:= ScaleX(70); 
  Width:= ScaleX(650); 
  Height:= ScaleY(200); 
  AutoSize:= false; 
  WordWrap:= true; 
  Font.Name:= 'Georgia'; 
  Font.Size:= 11 
  Font.Style := [fsBold, fsItalic]; 
  Font.Color:=ClWhite; 
  Transparent:= true; 
  Parent:= WizardForm.WelcomePage; 
  Caption:= 'Отключите всю байду, чтоб игра нормально проинсталлилась'; 
end;

[Молодой]

Подскажите как реализовать вот такую установку

Заранее спасибо за ответ