在 Inno Setup 中将输入的文本保存到 TXT 文件

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;

还有一些提示：保存 names/passwords 并不安全！使用硬编码路径也很不寻常...

在 Inno Setup 中将输入的文本保存到 TXT 文件

Save entered text to TXT file in Inno Setup

inno-setup

pascalscript