[Shkutu]

это точно не сработает. да и команда dir не работает даже при обычной установке »

во-первых, почему это не сработает? вы проверяли?
а во-вторых, вы код вообще смотрели? в каком месте там команда dir?
я порекомендовала это:

Код:

WizardForm.DirEdit.Text := ExpandConstant('{pf}\{#MyAppName}');

это обычное присвоение, где WizardForm.DirEdit - поле объекта формы установщика, содержащее путь установки вашего приложения. и конструкция эта прекрасно работает и при обычной установке и при тихой.

[habib2302]

Shkutu, ну вот мой код который на данный момент стоит

Скрытый текст

Код:

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
       wpFinished:
        begin
      if IsTaskSelected('ic\taskbar') then
        PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), True);
      if IsTaskSelected('ic\startmenu') then
        PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), True);
    end;
  wpSelectTasks:
     if IsComponentSelected('BSOD\I') then
  begin
    WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
  end;
  wpSelectDir: if WizardForm.Tag = 1 then

  begin
    WizardForm.SelectDirPage.Notebook.ActivePage:= WizardForm.SelectComponentsPage;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectComponents);
    WizardForm.Hint:= WizardForm.PageDescriptionLabel.Caption; // запомнить SetupMessage(msgSelectDirDesc)
    WizardForm.PageDescriptionLabel.Caption:= SetupMessage(msgSelectComponentsDesc);
  end;
  wpSelectComponents: if WizardForm.Tag = 1 then
  begin
    WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
    WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir);
    WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint; // иначе вместо названия программы [name]
    if not WizardSilent then
    if IsComponentSelected('BSOD\I') then
  begin
    WizardForm.DirEdit.Text :=(ExpandConstant('{#SetupSetting("DefaultDirName")}'))
  end else
      if not WizardSilent then
      if IsComponentSelected('BSOD\P') then
  begin
    WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Portable'
    WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
  end;
  end;
 end;
end;

вот и сделайте как вы говорили. а вообще мне кажется проблема из-за кода для смены страниц местами

[StongCool]

Не нашел я нормально рабочего скрипта на счет redist.

Кто какими пользуется, скиньте пожалуйста)

[Shift85]

Не нашел я нормально рабочего скрипта на счет redist. »

StongCool, Плохо искал.

Вот через секцию код + ISDone:

Код:

procedure Soft(CurStep: TSetupStep);
var res: integer;
begin
if (CurStep = ssPostInstall) and not ISDoneError then begin
  if BtnGetChecked(SoftCheck) then begin
    MainLabel.Left:= ScaleX(0);
    MainLabel.Caption:=ExpandConstant('{cm:SoftInstall1}');
    StatusLabel.Caption:=ExpandConstant('{cm:Status3}');
    BtnSetEnabled(hCancelBtn, False);
    Exec(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}'), SW_SHOW, ewWaitUntilTerminated, Res);
    Exec(ExpandConstant('{src}\Redist\VC\vcredist_x86.exe'), '/Q', ExpandConstant('{src}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
end;
end;

[Shkutu]

habib2302, в вашем коде вообще не прописана ветка, где WizardSilent=true, и не работает именно из-за этого, я думаю.

Код:

wpSelectComponents: if WizardForm.Tag = 1 then
  begin
    WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
    WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir);
    WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint; // иначе вместо названия программы [name]
    if not WizardSilent then
    if IsComponentSelected('BSOD\I') then
  begin
    WizardForm.DirEdit.Text :=(ExpandConstant('{#SetupSetting("DefaultDirName")}'))
  end  else
      if not WizardSilent then
      if IsComponentSelected('BSOD\P') then
  begin
    WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Portable'
    WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
  end;

По поводу как надо, я тоже уже писала. Собственно, этот кусок я и переписывала в своем посте http://forum.oszone.net/post-2457093-2313.html. Но судя по всему вам лень не только пробовать, что вам советуют, но даже просто читать, что вам отвечают. Правда в этом случае, уж извините за резкость, вообще непонятно, зачем вы тут вопросы задаете.

[habib2302]

Shkutu, мне уже дали код в krinkels

Код:

function ParamExists(S: String): Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ParamCount() do begin
    if Pos('/'+Uppercase(S), Uppercase(ParamStr(i))) > 0 then begin
      Result:= true;
      Break;
    end;
  end;
end;

function GetCmdDirValue(): String;
var
  i: Integer;
begin
  Result:= '';
  for i:= 0 to ParamCount() do begin
    if (Pos('/DIR', Uppercase(ParamStr(i))) > 0) then begin
      Result:= Copy(ParamStr(i), 6, Length(ParamStr(i)));
      StringChange(Result, 'expand:', '');
      StringChange(Result, 'EXPAND:', '');
      Result:= ExpandConstant(Result);
      Break;;
    end;
  end;
end;

***
if (ParamExists('dir')) then
  WizardForm.DirEdit.Text:= GetCmdDirValue();
***

но куда пихать

Код:

if (ParamExists('dir')) then
  WizardForm.DirEdit.Text:= GetCmdDirValue();

[StongCool]

Как сделать нижнею панель прозрачной?

[kotyarko@fb]

Как сделать нижнею панель прозрачной? »

Типо такого?

http://forum.oszone.net/attachment.p...1&d=1421538561

Пример прикрепил (взят с Krinkels).

[habib2302]

StongCool, ISWin7 бесполезен если вы используйте WinTB и добавлено лого в нижней панельке

[StongCool]

kotyarko@fb, Ссылка битая на скриншот.

И еще хотелось узнать.

Как сделать стартовой эту страницу + окошко такое.