[A1EXXX]

BlackSelf, а можно на исходники взглянуть? Интересно, как там всё устроено
(ответ получен...)

[МИШАНЧИК]

Serega,

У меня есть все версии, но по умолчанию стоит InnoCompiler091007 + Inno_ISCmplr_Setup от Restools »

А вот из

Inno_ISCmplr_Setup»

что нужно использовать?

[x-net]

1.Как туда вставить ссылку с картинкой и черточкой под кнопками?
2.Как поменять кнопки на свои?
3.Можно ли поменять шрифт в заголовке на свой в системе?

[Serega]

что нужно использовать? »

Я использую все файлы из InnoSetup_ANSI\FullVCL\*

[MrAWP]

Кто знает - возможно ли на странице компонентов прикрутить комментарий к каждому компоненту? Желательно чтобы он отображался под полем компонентов (над кнопками далее и отмена). Спасибо.

[Serega]

как сделать средствами WinApi кнопки плоскими »

Сделал не на WinApi, а с помощью панелей, но обычный Inno не понимает OnMouseDown и OnMouseUp...

Пример

Код:

[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]
var
  Backbtn, Nextbtn, Cancelbtn: TPanel;

procedure MouseDown(Sender: TObject; TButton: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TPanel(Sender).BorderStyle:= bsSingle;
end;

procedure MouseUp(Sender: TObject; TButton: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TPanel(Sender).BorderStyle:= bsNone;
end;

procedure Click(Sender: TObject);
begin
  case TPanel(Sender) of
    Backbtn: WizardForm.BackButton.OnClick(WizardForm.BackButton);
    Nextbtn: WizardForm.NextButton.OnClick(WizardForm.NextButton);
    Cancelbtn: WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
  end;
end;

procedure CancelbtnClick(Sender: TObject);
begin
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure InitializeWizard;
begin
  Backbtn:= TPanel.Create(WizardForm.BackButton);
  with Backbtn do
    begin
      SetBounds(WizardForm.BackButton.Left, WizardForm.BackButton.Top,
                WizardForm.BackButton.Width, WizardForm.BackButton.Height);
      BorderStyle:= bsNone;
      BevelOuter:= bvRaised;
      OnClick:= @Click;
      OnMouseDown:= @MouseDown;
      OnMouseUp:= @MouseUp;
      Parent:= WizardForm;
    end;
  Nextbtn:= TPanel.Create(WizardForm.NextButton);
  with Nextbtn do
    begin
      SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top,
                WizardForm.NextButton.Width, WizardForm.NextButton.Height);
      BorderStyle:= bsNone;
      BevelOuter:= bvRaised;
      OnClick:= @Click;
      OnMouseDown:= @MouseDown;
      OnMouseUp:= @MouseUp;
      Parent:= WizardForm;
    end;
  Cancelbtn:= TPanel.Create(WizardForm.NextButton);
  with Cancelbtn do
    begin
      SetBounds(WizardForm.CancelButton.Left, WizardForm.CancelButton.Top,
                WizardForm.CancelButton.Width, WizardForm.CancelButton.Height);
      BorderStyle:= bsNone;
      OnClick:= @Click;
      OnMouseDown:= @MouseDown;
      OnMouseUp:= @MouseUp;
      Parent:= WizardForm;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  Backbtn.Caption:= WizardForm.BackButton.Caption;
  Backbtn.Visible:= WizardForm.BackButton.Visible;
  Nextbtn.Caption:= WizardForm.NextButton.Caption;
  Nextbtn.Visible:= WizardForm.NextButton.Visible;
  Cancelbtn.Caption:= WizardForm.CancelButton.Caption;
  Cancelbtn.Visible:= WizardForm.CancelButton.Visible;
end;

[A1EXXX]

Как сделать, чтобы аддон к игре устанавливался строго в папку оригинала без возможности изменения пути установки, и чтоб если оригинала нет (в реестре; подхватывало путь из него), выскакивало такое окошко???

[BlackSelf]

A1EXXX,

читать дальше »

Код:

[Setup]
AppName=NBA 2K10
AppVerName=NBA 2K10
DefaultDirName={reg:HKLM\Software\2K Sports\NBA 2K10,InstallDir}
OutputDir=.

[_code]
function InitializeSetup(): Boolean;
var
ResultCode:Integer;
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\2K Sports\NBA 2K10','InstallDir')
then
  Result := True
else
MsgBox('Игра NBA 2K10 не найдена.',mbInformation, mb_Ok)
end;

Procedure InitializeWizard();
begin
WizardForm.DirEdit.Enabled:=False;
WizardForm.DirBrowseButton.Enabled:=False;
end;

[A1EXXX]

BlackSelf, Thank you, man!

[A1EXXX]

Немного поправил скрипт от ResTools для добавления анимации (копирования) на страницу процесса инсталляции;
необходимое прикрепил, визуально - смотрим скрин
Исходники можно взять здесь