[Serega]

Как изменить деинсталлятор Rimpack так, что если стоит Coderim то AviSynth не сносить. »

Первое, что приходит в голову, это заносим и удаляем ключи реестра через секцию [code], при удалении проверяем наличие файлов, если есть (допустим FileExists(FileName)), то не удаляем...

Можно ли изменить цвет текста »

Код:

  WizardForm.TasksList.Font.Color := clRed;

Dima2009, на ваших скринах - NSIS »

да, но это не значит, что такое нельзя сделать в IS, всё не удобство в том, что всё нужно писать вручную... см. ниже

Подскажите пожалуйста, есть всетаки код »

код вам никто не даст, т.к. его нет, проблема в том, как я уже сказал выше вам придётся писать всё вручную, вот накидал пример, но он не 100% соответствует NSIS, но стартовой точкой может послужить:

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

Код:

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

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

[Files]
Source: compiler:Examples\*; DestDir: {app}; BeforeInstall: Log; Flags: ignoreversion createallsubdirs recursesubdirs

[Code]
var
  Memo: TNewMemo;
  ISCustomPage: TWizardPage;

procedure Log;
begin
  Memo.Lines.Add('Извлечение: ' + ExtractFileName(CurrentFileName));
end;

procedure CreateLog;
begin
  { создадим Memo куда будем записывать лог... }
  Memo := TNewMemo.Create(WizardForm);
  with Memo do
    begin
      Parent := WizardForm.InstallingPage;
      SetBounds(WizardForm.InstallingPage.Left, ScaleY(75), WizardForm.InstallingPage.Width, ScaleY(140));
      ReadOnly := True;
      ScrollBars := ssVertical;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInstalling then
    CreateLog;
  if CurPageID = ISCustomPage.ID then
    begin
      Memo.Parent := ISCustomPage.Surface;
      Memo.Lines.Add('Готово');
      with WizardForm do
        begin
          BackButton.Visible := True;
          BackButton.Enabled := False;
          CancelButton.Visible := True;
          CancelButton.Enabled := False;
        end;
    end;
end;

procedure InitializeWizard();
begin
  { создадим копию страницы установки, которую покажем пользователю, чтоб он мог прочитать лог... }
  ISCustomPage := CreateCustomPage(wpInstalling,
    'Установка завершена', 'Установка успешно завершена');

  with TNewProgressBar.Create(WizardForm) do
    begin
      Parent := ISCustomPage.Surface;
      SetBounds(WizardForm.ProgressGauge.Left,
                WizardForm.ProgressGauge.Top,
                WizardForm.ProgressGauge.Width,
                WizardForm.ProgressGauge.Height);
      Max := 100;
      Position := 100;
    end;

  with TNewStaticText.Create(WizardForm) do
    begin
      Parent := ISCustomPage.Surface;
      AutoSize := False;
      Caption := 'Готово';
      ShowAccelChar := False;
      SetBounds(ScaleX(0), ScaleY(16), ScaleX(417), ScaleY(16));
    end;
end;