Чтобы создать форму для ввода логина и пароля, вам нужно в скрипте создать свою страничку для мастера установки и указать после какой стандартной странички она должна появляться. Если вы хотите спрашивать логин и пароль после установки, то вашу страничку нужно показывать после wpInstalling
или wpInfoAfter
.
Страничка создается, например, так:
[code]
var
LoginPassPage: TWizardPage;
LoginEdit: TNewEdit;
PassEdit: TNewEdit;
// обработчик нажатия кнопки Next на нашей страничке
function OnLoginPassPage_NextButtonClick(Sender: TWizardPage): Boolean;
var
Login, Pass: string;
begin
Login := LoginEdit.Text; // здесь лежит введенный логин
Pass := PassEdit.Text; // здесь лежит введенный пасс
// здесь можно с ними что-то сделать
Result := True; // можно продолжать установку
end;
procedure CreateCustomLoginPassPage;
var
LoginLabel: TLabel;
PassLabel: TLabel;
begin
// Создание страницы задания логина и пароля
LoginPassPage := CreateCustomPage(wpInstalling, 'CustomPageCaption', 'CustomPageText');
LoginPassPage.OnNextButtonClick := @OnLoginPassPage_NextButtonClick; // обработчик нажатия кнопки Next
// логин
LoginLabel := TLabel.Create(WizardForm);
LoginLabel.Parent := LoginPassPage.Surface;
LoginLabel.Left := 0;
LoginLabel.Top := 0;
LoginLabel.Caption := 'Login:';
LoginEdit := TNewEdit.Create(WizardForm);
LoginEdit.Parent := LoginPassPage.Surface;
LoginEdit.Left := 0;
LoginEdit.Top := LoginLabel.Top + LoginLabel.Height + 6;
LoginEdit.Width := 200;
// пасс
PassLabel := TLabel.Create(WizardForm);
PassLabel.Parent := LoginPassPage.Surface;
PassLabel.Left := 0;
PassLabel.Top := LoginEdit.Top + LoginEdit.Height + 6;
PassLabel.Caption := 'Pass:';
PassEdit := TNewEdit.Create(WizardForm);
PassEdit.Parent := LoginPassPage.Surface;
PassEdit.Left := 0;
PassEdit.Top := PassLabel.Top + PassLabel.Height + 6;
PassEdit.Width := 200;
PassEdit.PasswordChar := '*'; // пароль можно прикрыть звездочками
end;
procedure InitializeWizard();
begin
CreateCustomLoginPassPage;
end;