Как сделать чтобы он был в правом углу инсталятора а не левом?
пробелами добить



Код: Выделить всё
var
RegClick: TNotifyEvent;
procedure Reg;
begin
RegEdit := ExpandConstant('{sys}\reg.exe');// вызов консольной системной утилиты для работы с реестром
reg := ExpandConstant('{src}\') + 'reg.reg'; // берем рег-файл рядом с инсталлом
Exec(RegEdit, ' import ' + ' ' + AddQuotes(reg),ExpandConstant('{src}'),SW_HIDE, ewWaitUntilTerminated, ResultCode); // импортируем файл реестра
end;
procedure RegClick();
begin
if WizardForm.CurPageID=wpReady then // добавляем клик только на странице готовности
//begin // Проверить, как стабильнее работает
Reg // выполняем procedure Reg;
//end; // Проверить, как стабильнее работает
OldClick(Sender); // выполняем родной клик
end;
procedure InitializeWizard();
begin
OldClick:= WizardForm.NextButton.OnClick; // Заставляем не забыть родной клик
WizardForm.NextButton.OnClick:=@RegClick; // Задаем новый клик
end;
Вносится в реестр будет по нажатии кнопки далее на странице готовности.