[Gnom_aka_Lexander]

Leka_651, Если прога уже ставилась с помощью Инно и присвоенный тобой либо взятый оригинальный GuID не изменен то выбор компонентов автоматом будет выставлен тот, который был при первой установке.
Важно только, чтоб названия (не описания) компонентов совпадали с предидущей установкой.

[Leka_651]

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

[Gnom_aka_Lexander]

Leka_651, тогда вот:

Код:

Function isHLPinstalled : boolean;
var
VersionMS0, VersionLS0 : Cardinal; b1, b2 ,b3, b4 : boolean;
begin
b1 := False; b2 := False; b3 := False; b4 := False;
GetVersionNumbers(ExpandConstant('{win}\winhlp32.exe'), VersionMS0, VersionLS0);
if (VersionLS0 >= 498089986) then b1 := True;
if (FileExists(ExpandConstant('{sys}\ftlx041e.dll'))) then b2 := True;
if (FileExists(ExpandConstant('{sys}\ftlx0411.dll'))) then b3 := True;
if (FileExists(ExpandConstant('{sys}\fftsrch.dll'))) then b4 := True;
if (b1 or b2 or b3 or b4) then Result := True else Result := False
end;

Смысл общий, думаю, понятен, поправить под себя и дописать процедуру, чтото вроде:
if isHLPinstalled then компонент выбран, полностью код расписать помогут, думаю, более сведущие знатоки.
Но если файлов очень много, то незнаю, не знаю...
Нужно смотреть, если компонента - отдельная прога, то проще выловить ее из реестра.

[Leka_651]

Лександер, спасибо. пойду попробую.

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

if isHLPinstalled »

Ну раз вставил то хоть бы написал, что код проверяет установлено ли обновление для Win7 для чтения hlp файлов.

Но мне нужно чтобы поставились галочки только у тех компонент, которые уже находятся в выбранном пользователем каталоге для установки »

Примерно так:

Код:

[Components]
# define app01 "прога 1"
Name: app\app-01; Description: {#app01}; Flags: checkablealone dontinheritcheck

[_Code]
function appexist(path:string): Boolean;
begin 
  if (FileExists(path)) then result := true else Result := false;
end;

procedure InitializeWizard();
Begin
if appexist(путь к файлу проги) then WizardForm.ComponentsList.Checked[WizardForm.ComponentsList.Items.IndexOf('{#app01}')]:=True;
end;

Можно усложнить процедуру проверки на проверку всех файлов в каталоге, но я думаю можно ограничиться экзешником.

[Gnom_aka_Lexander]

R.i.m.s.k.y., А я и написал, что нужно под свои нужды править А знатококв последнее время нету...
Может подскажеш - действие наведения мышки на кнопку, чекбокс или активный лейбл - как называется?
Чтобы привязать к етому действию еще одно действие

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

Может подскажеш - действие наведения мышки на кнопку, чекбокс или активный лейбл - как называется? »

наведения - не знаю, знаю клик

Код:

[_Code]
procedure ComponentOnClick(Sender: TObject);
begin
  if WizardSelectedComponents(False) = '' then WizardForm.NextButton.Enabled:= False else WizardForm.NextButton.Enabled:= True;
end;

procedure InitializeWizard();
begin
WizardForm.ComponentsList.OnClick := @ComponentOnClick
end;

[nik1967]

Лександер,
Если просто, то:

Код:

OnClick:=
OnMouseDown:=
OnMouseUp:=
OnMouseMove:=
OnMouseLeave:=

Если через botva2.dll, то:

Код:

procedure BtnSetEvent(h :HWND; EventID :integer; Event :Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
//устанавливает событие для кнопки
//h       - хэндл кнопки (результат возвращенный BtnCreate)
//EventID - идентификатор события, заданный константами   BtnClickEventID, BtnMouseEnterEventID, BtnMouseLeaveEventID, BtnMouseMoveEventID
//Event   - адрес процедуры выполняемой при наступлении указанного события
//пример использования - BtnSetEvent(hBtn, BtnMouseMoveEventID, WrapBtnCallback(@BtnClick,1));

[Leka_651]

R.i.m.s.k.y., а в какой момент будет выполняться InitializeWizard??

[Gnom_aka_Lexander]

Leka_651, Сразу Даже по смыслу - Инициализация визарда - InitializeWizard и InitializeSetup начинают работать сразу.