var
NickInfo: TWizardPage;
NickEdit: TNewEdit;
procedure InitializeWizard();
begin
NickInfo := CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
NickEdit := TNewEdit.Create(WizardForm);
with NickEdit do
begin
Parent := NickInfo.Surface;
Left := ScaleX(184);
Top := ScaleY(144);
Width := ScaleX(177);
Height := ScaleY(21);
Text := '';
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
Var S1: String;
begin
if CurStep = ssPostInstall then begin
if NickEdit.Text <> '' then begin //Если поле эдита пустое, то файлы не создаем
S1 := '[UserName]' +#13+#10+ 'Login=' + NickEdit.Text;
SaveStringToFile(ExpandConstant('{app}\my.ini'), S1, false);
end;
end;
end;