inno-setup - 在某些具有隐藏 UserInfoPage Inno Setup 页面的机器上获取 "You must enter a name"和 "Cannot focus a disabled or invisible window"

Question

我做了一个快速安装程序，在一些 PC 上安装时我发现了问题。我有“序列号”系统，当我按“下一步”时它给我一个错误

You must enter a name

然后:

Cannot focus a disabled or invisible window

但在许多其他具有相同 SO 的 PC 中，这工作正常。这是我正在使用的代码:

[Setup]
WizardStyle=modern
UserInfoPage=yes

[Code]

procedure CurPageChanged(CurPageID: Integer);
begin  
  if CurPageID = wpUserInfo then begin  
    WizardForm.UserInfoOrgLabel.Hide();
    WizardForm.UserInfoOrgEdit.Hide();
    WizardForm.UserInfoNameLabel.Hide();
    WizardForm.UserInfoNameEdit.Hide();
  end;
end;

// Presence of the CheckSerial event function displays the serial number box.
// But here we accept any non-empty serial.
// We will validate it only in the NextButtonClick,
// as the online validation can take long.
function CheckSerial(Serial: String): Boolean;
begin
  Result := (Serial <> '');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  WinHttpReq: Variant;
  Url: string;
begin
  Result := True;
  if CurPageID = wpUserInfo then
  begin
    WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    Url := 'Link that i use to check the serial number' +
           WizardForm.UserInfoSerialEdit.Text;
    WinHttpReq.Open('GET', Url, False);
    WinHttpReq.Send('');
    // Depending on implementation of the server,
    // use either HTTP status code (.Status)
    // or contents of returned "page" (.ResponseText)
    // Here we use the HTTP status code:
    // 200 = serial is valid, anything else = serial is invalid,
    // and when invalid, we display .ResponseText
    Result := (WinHttpReq.Status = 200);
    if not Result then
      MsgBox(WinHttpReq.ResponseText, mbError, MB_OK);
  end;
end;

Answer 1

启用UserInfoPage 后，必须填写“用户名” 框。该框预先填充了 RegisteredOwner 注册表值。如果该值恰好为空，因此该框为空，则您无法离开该页面，除非您手动填写它。您收到“您必须输入名称” 错误，Inno Setup 将焦点移至该框。失败并显示“无法聚焦禁用或不可见的窗口”，因为您隐藏了该框。

如果您不关心用户名，只需填写一些虚拟值:

WizardForm.UserInfoNameEdit.Text := 'foo';