[Raz3r]

Извините что досаждаю, можно узнать какой командой прописать иконку в "Установка и удаление программ"?

[Shkutu]

Raz3r, так тебе чекбокс нужен или чтоб ярлыки устанавливались, когда пользователь не может сам галки выставить (т е в "тихом" режиме)?
Если надо, чтобы ярлык устанавливался автоматически, без пользователя, просто убери

Код:

 Tasks: desktopicon

из параметров ярлыка

[Raz3r]

Shkutu, Я хотел, чтобы можно было управлять установкой иконок в обычном режиме установки и что бы они автоустанавливались в режиме /silent.
Благо я уже в этом разобрался, спасибо вам.

Напоследок просто хотел спросить как сделать, чтобы было видно иконку в "Установка и удаление программ", а то там не отображается. Наверное потому что программа использует .exe файл другой программы для запуска.

[Optitron]

Nordek, .reg файл лежит рядом с инсталлятором. Название .reg файла везде одинаковое (1.reg), Убрав Flags, ошибку не выдало, тем менее опять же не занеслось.
Доп. информация: кроме занесения информации из 1.reg инсталлятор заносит в реестр кое-какие данные, но даже если убрать их, то все-равно не занесется.
Shkutu, в вашем методе жалуется на "i", ещё до этого (как я понял) жаловалась на отсутствие begin (добавил begin и end, перестала жаловаться).

[gvshil]

как сделать, чтобы было видно иконку в "Установка и удаление программ" »

[Setup]
UninstallDisplayIcon={app}\MyProg.exe

[Farser21]

Всем привет, возник такой вопрос.
1) Когда наводишь на компонент, то выскакивает картинка, как задать определенные координаты картинке? Задумка сделать все картинки одного размера, и чтобы они выскакивали в одном месте.

[Shkutu]

Optitron, тот код, что я написала - это просто оператор, который надо вставить в какую либо функцию.\

жалуется на "i" »

Ну да, переменные надо объявлять. Т е в итоге это может выглядеть например так

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

Код:

procedure CurStepChanged(CurStep: tSetupStep);
var i:integer;
begin
 if (CurStep=ssPostInstall) then
 begin 
  if FileExists('1.reg') then
   Exec(ExpandConstant('{win}') + '\regedit.exe', '1.reg', '', SW_HIDE, ewWaitUntilTerminated, i);
 end;
end;

[Raz3r]

Не могу понять какой код писать в секцию [code], чтобы сделать два чекбокса для двух ярлыков на рабочий стол.
И связывать их одной командой Check: MakeLaunchIcon в [Icons]?

Вот собственно код, но для одного чекбокса:

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

var
QuickLaunchIcon: TCheckBox;

function MakeQuickLaunchIcon: Boolean;
begin
Result:=QuickLaunchIcon.Checked;
end;

procedure InitializeWizard();
begin
LaunchIcon := TCheckBox.Create(WizardForm);
with LaunchIcon do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Создать значки на рабочем столе';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top + 117;
Width := ScaleX(300);
Height := ScaleY(15);
TabOrder := 0;
Checked := True;
end;
end;

[Shkutu]

Raz3r, для 2го чекбокса просто добавить аналогичную конструкцию. Итого

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

Код:

var 
QuickLaunchIcon1, QuickLaunchIcon2 : TCheckBox;
 
procedure InitializeWizard(); 
begin
 QuickLaunchIcon1:= TCheckBox.Create(WizardForm); 
with QuickLaunchIcon1do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Создать значок 1 на рабочем столе';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top + 97;
Width := ScaleX(300);
Height := ScaleY(15);
TabOrder := 0;
Checked := True;
end;

QuickLaunchIcon2 := TCheckBox.Create(WizardForm); 
with QuickLaunchIcon1do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Создать значок 2 на рабочем столе';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top + 117;
Width := ScaleX(300);
Height := ScaleY(15);
TabOrder := 0;
Checked := True;
end;
end;

связывать их одной командой Check: MakeLaunchIcon »

Это в смысле, чтобы они выставлялись, если выбраны одновременно?
Тогда

Код:

function MakeQuickLaunchIcon: Boolean; 
begin 
Result:=QuickLaunchIcon1.Checked and QuickLaunchIcon2.Checked; 
end;

Если тебе надо, чтобы чекбоксы выбирались по отдельности, то для 2го чекбокса придется написать аналогичную функцию проверки

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

Код:

function MakeQuickLaunchIcon: Boolean; 
begin 
Result:=QuickLaunchIcon2.Checked; 
end;

и использовать в [Icons] ее

[Nordek]

файл лежит рядом с инсталлятором. Название .reg файла везде одинаковое (1.reg) »

Код:

[Run]
Filename: {win}\regedit.exe; Parameters: "/S ""{src}\1.reg"""; Flags: skipifdoesntexist

Убрав Flags, ошибку не выдало »

Знаю почему, проверил.