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

[Dima2009]

маркузяка Спасибо!

А как прикрутить ссылку на сайт.

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

[Habetdin]

Цитата R.i.m.s.k.y.:



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

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

Первое, что приходит в голову, это заносим и удаляем ключи реестра через секцию

Код: Выделить всё

, при удалении проверяем наличие файлов, если есть (допустим FileExists(FileName)), то не удаляем...




				Цитата [b]geroinnn[/b]:
	
	
		
				Можно ли изменить цвет текста [url=viewtopic.php?p=2805888#p2805888]»[/url]
		
	
	

 
 Код: [url=#][/url]
 [code]  WizardForm.TasksList.Font.Color := clRed;

Цитата Habetdin:



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

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

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




Цитата Dima2009:



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

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

код вам никто не даст, т.к. его нет, проблема в том, как я уже сказал выше вам придётся писать всё вручную, вот накидал пример, но он не 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;

[BooSla]

Здравствуйте!

Помогите, пожалуйста. После установки аппликухи в Add/Remove Programs отображается неверный размер приложения. Не то, чтоб чуть-чуть неверный, а совсем. Ну т.е. в реальности 200 метров, а в списке 7 Гиг. Смею предположить, что размер где-то прописывается в реестрах при установке. Удалось найти только, что за регистрацию приложений в системе отвечает appmgmts.dll, но каким образом система получает размер файлов - не ясно. Может кто знает в чем может быть причина?

В сетап зашито много мелких файлов, при инсталляции нужно выбирать из списка. Может в этом месте что-то сбивается? Максимум - 10 000 файлов, общим объемом не более 1, 5 Гб. Полученный setup.exe записывается на CD, т.е. не более 700 метров. Вообще, это сетап-скрипт рассказывает системе о приложении?

[маркузяка]

Цитата geroinnn:



а можно ли изменитьцвет окошка?

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

Код:

Код: Выделить всё

  WizardForm.TasksList.Color := clGreen;

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

Цитата Serega:



Для лучшего сжатия попробуйте добавить флаги:

sortfilesbyextension sortfilesbyname



не помогло, стало толще

[Habetdin]

Цитата geroinnn:



Нельзя ли это исправить?

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

можно, просто распаковку архивов делайте до установки доп. ПО, т.е.:



Код:

Код: Выделить всё

[Run]
; именно здесь записываете распаковку ваших архивов, а уже потом всё, что идёт ниже...
Filename: {src}\Redist\DirectX\DirectX.exe; Parameters: /silent; Tasks: task1\task2; Flags: waituntilterminated
Filename: {src}\Redist\PhysX.exe; Parameters: /Q; Tasks: task1\task3; Flags: waituntilterminated
Filename: {src}\Redist\VC Redist.exe; Parameters: /Q; Tasks: task1\task4; Flags: waituntilterminated

[Dima2009]

Подскажите как добавить окно чтобы в нем отображался список распаковываемых файлов...

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

[tupica]

Цитата Serega:



Первое, что приходит в голову, это заносим и удаляем ключи реестра через секцию

Код: Выделить всё

, при удалении проверяем наличие файлов, если есть (допустим FileExists(FileName)), то не удаляем [url=viewtopic.php?p=2805890#p2805890]»[/url]
		
	
	

				Цитата [b]Serega[/b]:
	
	
		
				Tasks [url=viewtopic.php?p=2805894#p2805894]»[/url]
		
	
	
Ключей очень много, руками их подписывать в Code - идиотом сделаешься.

[Vitek 07]

tupica, вы об этом?



PHP код:

Код: Выделить всё

[Setup]

AppID=Dmaster 

Имя записи в HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall.



А это имя отображаемое в Уст. и удалении программ



PHP код:

Код: Выделить всё

[Setup]

UninstallDisplayName={#MyAppName} 

[nik1967]

Здравствуйте, уважаемые форумчане! Может кто знает,

как проценты распаковки поместить на прогресс бар?

Научите неуча. В идеале было бы, что бы цвет индикатора процентов менялся по мере прохождения полосы прогресса.

На ботве без проблем, но нужно штатными средствами Inno.