Вопрос Как сделать "ваш ник" из которого текст будет сохранятся в ini?

Статус
В этой теме нельзя размещать новые ответы.

zettend

Старожил
Всем привет!
У меня есть поле "Желаемый псевдоним:" мне нужно сделать вывод текста из этого поля в ini файл типа:

UserName=[username]

Помогите реализовать.
За ранее огромное спасибо!
 

sergey3695

Ветеран
Модератор
при установке*
Код:
[INI]
Filename: "{app}\x64\codex.ini"; Section: "Settings"; Key: "UserName"; String: uName();
//
// Code
function uName(s: String): String;
begin
  Result:= WizardForm.DirEdit.Text; // Edit с вводимым ником
end;
как то так вроде.
 
Последнее редактирование:

vint56

Ветеран
Проверенный
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

Код:
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;
 

zettend

Старожил
sergey3695, Упс, извеняй, запутался:D.
Спасибо всем. Разобрался.
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху