Inno Setup (создание инсталяционных пакетов). Часть 1

[Sten]

Подскажите, почему перенося тасклист на страницу выбора папки:
WizardForm.TasksList.Parent:=WizardForm.SelectDirPage;
он переносится, а вот чекбоксы в нём нет Т.е. получается пустой тасклист....

 

[LexBell]

Задачи создаются только на странице выбора задач, при переходе на страницу ниже - они освобождаются. Это сделано потому. что задачи являются зависимыми от каких-либо условий созданных, например, в коде, либо могут быть привязаны к языку, компонентам, и тому подобное.

 

[Bower]

Всем здравствует !
Скажите пожалуйста название скина или киньте ссылку http://i053.radikal.ru/1112/1d/5bb2c7065fee.jpg

 

[alexa1995]

Bower, кинь сюда сетапник)

 

[Snoopak96]

Bower,
http://rghost.ru/35719469

 

[Gooodziila]

Дайте пожалусто пример распаковки FA архива с паролем через ISExec

 

[SotM]

Gooodziila, Не уж то клавишу Enter заклинило?!

 

[David.D.Rocco]

Win7Aero v1.0
результат моих экспериментов над аеро. думаю не последний вариант, кнопки еще по другому как-нибудь сделаю. спасибо всем за тестирование.

 

[GVS276]

David.D.Rocco, На инно всё реализовал, ммм круто :up:

 

[sergey3695]

Почему на MainForm не срабатывает botva2.dll?

 

[alexa1995]

у меня чекбоксы "Не создавать папку в меню "Пуск"" и "Создать ярлык на рабочем столе" получается слитны, тоесть когда я не хочу создавать папку в меню "Пуск", у меня не создается и "ярлык на рабочем столе"(даже когда чекбокс отмеченный)... но если я хочу создавать папку в меню ПУСК, а с "ярлыка на рабочем столе" галку снимаю, то папка появляется в пуске, а ярлык соответственно нет. Запутано, но по-другому никак не могу объяснить.


http://rghost.ru/35826323

Спойлер: скрипт

[SOURCE="inno"]var
DesktopIcon: TCheckBox;

function MakeDesktopIcon: Boolean;
begin
Result:=DesktopIcon.Checked;end;

procedure InitializeWizard14();
begin //Создание чекбокса для создания ярлыка на рабочем столе
DesktopIcon := TCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectProgramGroupPage;
Caption := 'Ярлык на Рабочем столе';
Left := ScaleX(30);
Top :=210;
Width := ScaleX(149);
Height := ScaleY(17);
TabOrder := 0;
Checked := True;
end;
end;



var
NewCheckBox5: TNewCheckBox;


procedure NewCheckBox5Click(Sender: TObject);
begin
WizardForm.NoIconsCheck.Checked:=not NewCheckBox5.Checked;
end;

procedure InitializeWizard15();
begin
NewCheckBox5 := TNewCheckBox.Create(WizardForm);
with NewCheckBox5 do
begin
Parent := WizardForm.SelectProgramGroupPage;
Left := ScaleX(250);
Width := ScaleX(140);
Top :=210;
Caption := 'Папка в меню «Пуск»';
OnClick := @NewCheckBox5Click;
Checked := True;
end;
end;[/SOURCE]

 

[YURSHAT]

alexa1995, я вообще не понял, что в коде написано. Тебе нужно создать два кастомных чекбокса, один из которых будет создавать ярлык, а второй папку в пуске?

 

[alexa1995]

Да

 

[YURSHAT]

Щас набросаю пример...

 

[Edison007]

alexa1995

#define MyAppName "My Program" 
#define MyAppVerName "My Program 1.5" 
#define MyAppExeName "MyProg.exe" 
  
[Setup] 
AppName={#MyAppName} 
AppVerName={#MyAppVerName} 
DefaultDirName={pf}\{#MyAppName} 
DefaultGroupName={#MyAppName} 
OutputBaseFilename=setup 
OutputDir=. 
DisableProgramGroupPage=true 

[Icons] 
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: MakeStartMenuIcon 
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: MakeDesktopIcon 
 
[*Code] 
var
  StartMenuIcon,DesktopIcon: TCheckBox; 
  
function MakeDesktopIcon: Boolean;
begin
  Result:=DesktopIcon.Checked;
end; 

function MakeStartMenuIcon: Boolean;
begin
  Result:=StartMenuIcon.Checked;
end;   
  
procedure InitializeWizard (); 
begin   
  DesktopIcon := TCheckBox.Create(WizardForm); 
  DesktopIcon.Parent := WizardForm.SelectDirPage; 
  DesktopIcon.Caption := 'Добавить ярлык на Рабочий стол'; 
  DesktopIcon.SetBounds(ScaleX(0),WizardForm.DirEdit.Top+ScaleY(90),ScaleX(400),ScaleY(25)); 
  DesktopIcon.TabOrder := 0; 
  DesktopIcon.Checked:= true; 
  
  StartMenuIcon := TCheckBox.Create(WizardForm); 
  StartMenuIcon.Parent := WizardForm.SelectDirPage; 
  StartMenuIcon.Caption := 'Создать папку в меню Пуск'; 
  StartMenuIcon.SetBounds(ScaleX(220),WizardForm.DirEdit.Top+ScaleY(90),ScaleX(400),ScaleY(25)); 
  StartMenuIcon.TabOrder := 0; 
  StartMenuIcon.Checked:= true; 
end;

[ADMIN="YURSHAT"]Зря только писал [/ADMIN]

 

[Gooodziila]

Помогите у меня перестал создаватся records.inf

 

[Krinkels]

Версия ISDone какая?

 

[Gooodziila]

0.6b

 

[Krinkels]

Если файлы прогнать через стандартный скрипт ISDone то records.inf создается?

 

[Gooodziila]

Нашел в чем проблема, он не создавался из-за антивиря.