[t16bz]

R.i.m.s.k.y., мне нужно название не страница выбора папки установки, а окна, которое появляется при нажатии на кнопку "Обзор"

[Johny777]

t16bz,
можно поинтересоваться зачем оно тебе?

появляется форма с TFolderTreeView, эдитом и двумя кнопками
в дизайнере это окно не редактируется

не хочу сморозить чушь, но вроде оно вообще не редактируется (разве что в исходном коде самой инно), но его можно воссоздать двумя способами
1. - самый простой - использовать встроенную функцию
function BrowseForFolder(const Prompt: String; var Directory: String; const NewFolderButton: Boolean): Boolean;
наглядный пример

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DirExistsWarning=no


[  Code]
procedure DirBrowseButtonOnClick(Sender: TObject);
var
  Dir: String;
begin
  if BrowseForFolder(SetupMessage(msgBrowseDialogLabel), Dir, False) then
    WizardForm.DirEdit.Text:=Dir + '\My Program'
end;

procedure InitializeWizard();
begin
  WizardForm.DirBrowseButton.OnClick:=@DirBrowseButtonOnClick
end;

жирным False отвечает за появление кнопки "создать папку" (False - нет кнопки, True - есть)

2. - рисовать свою форму и всё, что нужно на ней

[Ivan_009]

Как добавить чекбокс "Не создавать папку в меню пуск" подскажите кто знает заранее спасибо...

[Johny777]

Ivan_009,

[Setup]
AllowNoIcons=yes или no

или тебе кастомный нужен?

[Ivan_009]

Johny777, мне кастомный нужен

[Johny777]

мне кастомный нужен »

вот:

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

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
EnableDirDoesntExistWarning=false


[Icons]
Name: {group}\Notepad; Filename: notepad.exe; Check:  not  Is_No_Ico_CheckBox_Checked

[code] 
var
  No_Icons_CheckBox: TNewCheckBox;


function Is_No_Ico_CheckBox_Checked: Boolean; 
begin
  Result := No_Icons_CheckBox.Checked;
end;


procedure No_Icons_CheckBox_OnClick(Sender: TObject);
begin
  with WizardForm do
  begin
    GroupEdit.Enabled := not TNewCheckBox(Sender).Checked;
    GroupBrowseButton.Enabled := not TNewCheckBox(Sender).Checked;
  end;
end;


procedure InitializeWizard();
begin

  { No_Icons_CheckBox }
  No_Icons_CheckBox := TNewCheckBox.Create(WizardForm);
  with No_Icons_CheckBox do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    SetBounds(ScaleX(32), ScaleY(168), ScaleX(200), ScaleY(17));
    Caption := SetupMessage(msgNoProgramGroupCheck2);
    OnClick :=@No_Icons_CheckBox_OnClick;
  end;
  
end;

если через код значки создаёшь (не через секцию [Icons]), то переделаю

[Ivan_009]

Johny777, Респект и большое спасибо

[Yury_Prizrak]

Всем привет! Вопрос следующий(искал, чесно, чет не нашел - если было - плиз, дайте линку на ответ) - мне в инсталяции надо сделать чекбокс "полная версия" - его я сделал, а как "объяснить" инсталу, что если он не нажат - некоторые файлы устанавливать не надо? Т.е. есть например 5 файлов - 1 2 3 4 5, если чекбокс нажат - устанавливаем все, если нет - устанавливаем 1, 3, 4 а 2 и 5 нет. Заранее спасибо

[detiedyatosla]

Помогите плз
Как это сделать прозрачным ?

[bond07]

Парни, большая просьба.
Путь установки: "C:\Program Files\Games\Selena6000
В реестре это выглядит так:
[HKEY_LOCAL_MACHINE\SOFTWARE\BaseGame\FileSystem]
"DataPath"="C:\Program Files\Games\Selena6000"

После установки программы нужно заменить "\Selena6000" на "\SELENA~1/>;"
То есть поменять название конечной папки, прога иначе не работает. Выручайте!