[Rikill]

VASYAKRN,

Код:

procedure InitializeWizard();
begin
ExtractTemporaryFile('иконка.bmp');
ExtractTemporaryFile('иконка на меню пуск.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\иконка.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\иконка на меню пуск.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;
end;

---

А вам insombia сюда.

[insombia]

Rikillя это уже когда то использовал у меня пропал прогресс бар и были 2 кнопки отмены

[Rikill]

insombia, (facepalm) а может прочитаете документацию к isSlideShow??? Даже в гоговском инсталле прогресс бар внизу, потому что он не может быть на слайд шоу, слайд шоу как правило поверх всего.
Можно поиграться с этим, поставив true

WizardForm.ProgressGauge.visible:=false;

А это злополучная кнопа отмены, удалить строчки:

WizardForm.CancelButton.Left:=ScaleX(405);
WizardForm.CancelButton.Top:=ScaleY(325);

[VASYAKRN]

Rikill
Ти можеш сделать ето в скрипте
Я пробивал У МЕНЯ НЕ ПОЛУЧАЕТСЯ

[insombia]

VASYAKRN

procedure InitializeWizard1();
begin
ExtractTemporaryFile('иконка.bmp');
ExtractTemporaryFile('иконка на меню пуск.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\иконка.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\иконка на меню пуск.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;
end;

procedure InitializeWizard();
begin
InitializeWizard1();
end;

[Rikill]

insombia, это оно и есть.

---

http://rghost.ru/17926531 лови, там надо было немного подумать просто.

[insombia]

Rikill то правильно он говорил что у него не получается вставить код я ему дал пример как его вставить

[Devils Night]

Devils Night, в тихом режиме эти программы сами делают проверку. »

Немного не то, нужно чтобы сам инсталятор проверял на наличие установленных компонентов, а при тихой установке dotnetfx3_x86, vcredist_x86, xliveredist, они всё равно запускаются, и создаётся впечатление, что они по новой устанавливаются т.к конец установки, довольно долго завершается.
Может будут, какие другие варианты?

[Rikill]

Devils Night, можно сделать проверку по реестру, но это сложновато

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

Devils Night,

Код:

//**проверка наличия фреймворка 3.5
function netfw35(): Boolean;
begin
	if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5') )
     then Result := True else Result := False;
end;

//** проверка на установку MS Visual C++ 2008
Function isvcredist():boolean;
var b1,b2,b3 : boolean;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b1 := True;
  if IsWin64 then begin
    if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b2 := True;
    if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b3 := True;
  end;
  if (b1 or b2 or b3) then Result := True else Result := False;
end;

Function InitializeSetup: Boolean;
begin
...
if (not isvcredist) then MsgBox('Не установлен Microsoft Visual C++ 2008', mbInformation, MB_OK);
if (not netfw35) then MsgBox('Не установлен FrameWork 3.5', mbInformation, MB_OK);
...
end;