Вот код:
Код:
var
b_cb:boolean;
function InitializeSetup(): Boolean;
begin
b_cb:=False;
Result:=True;
end;
procedure cdClick(Sender: TObject);
begin
b_cb:=cb.CHECKED;
end;
procedure CurPageChanged(CurPageID: Integer);
var
i:Integer;
begin
If CurPageID=wpSelectDir then
begin
If cb=nil then
begin
cb:=TCheckBox.Create(WizardForm);
cb.Parent:=WizardForm;
cb.Left:=WizardForm.SELECTDIRLABEL.Left;
cb.Top:=ScaleY(180);
cb.CAPTION:='MyCheckBox';
cb.ONCLICK:=@cdClick;
end;
end
else
begin
If cb<>nil then
begin
cb.Free;
cb:=nil;
end;
end;
If CurPageID=wpInstalling then
begin
If b_cb then
MsgBox('cb.CHECKED', mbInformation, MB_OK)
else
MsgBox('not cb.CHECKED', mbInformation, MB_OK)
end;
end;Пришлите код скрипта, у меня почему то при переустановке ничего не удаляется.
Создавайте свою группу, в которую помещайте устанавливаемые программы.
Не получится, можно только текст изменить.
, например: "Удалить" может быть в середине программной группы (особенно если ярлыков много). Хотелось бы знать, имеется ли возможность назначения последовательности размещения ярлыков в программной группе с ярлыками.