Сохранить введенный текст в файл TXT в Inno Setup

Question

Мне нужно сохранить имя пользователя и пароль, которые были введены пользователем в текстовый файл, но он создает текстовый файл и сохраняет тексты перед тем, как пользователь вводит их. (Таким образом, создается пустой текстовый файл).

Я думаю, что мне нужно делать что-то с процедурой, но хотя я и ищу решение, я не мог найти.

Мой код:

[Code] 
var 
    Page: TInputQueryWizardPage; 
    username: String; 
    password: String; 

procedure InitializeWizard; 
begin 
    { Create the page } 
    Page := CreateInputQueryPage(wpWelcome, 
    'Username & Password', 'Username like : e201600', 
    'Please enter your username and password.'); 
    { Add items (False means it's not a password edit) } 
    Page.Add('Username:', False); 
    Page.Add('Password:', True); 
    { Set initial values (optional) } 
    Page.Values[0] := ExpandConstant('hello5'); 
    Page.Values[1] := ExpandConstant(''); 
    { Read values into variables } 
    username := Page.Values[0]; 
    password := Page.Values[1]; 
    SaveStringToFile('c:\filename.txt', username+#13#10+password+#13#10, False); 
end; 

Answer 1

Вы создаете страницу ввода при запуске программы установки и сразу же сохранения поля в текстовый файл.

Вы должны ждать, пока пользователь вводит данные и нажимает кнопку Далее на нужной странице:

function NextButtonClick(CurPageID: Integer): Boolean; 
begin 
    if(CurPageID = Page.ID) then 
    begin 
    { Process the page } 
    { Read values into variables } 
    username := Page.Values[0]; 
    password := Page.Values[1]; 
    SaveStringToFile('c:\filename.txt', username+#13#10+password+#13#10, False); 
    end; 

Result := True; 
end; 

И несколько советов: сохранение имен/паролей не безопасно! Также использование жестко заданного пути крайне необычно ...