Inno Setup - Custom Computer name prompt.

[Setup]
AppName=My Program
AppVersion=1.5
WizardStyle=modern
DisableWelcomePage=yes
DisableFinishedPage=yes
DisableProgramGroupPage=yes
DisableReadyPage=yes
DefaultDirName={autopf}\My Program
DefaultGroupName=My Program
;UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma2
SolidCompression=yes
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "*"; DestDir: "{tmp}\"; Flags: ignoreversion recursesubdirs

[Code]
var
  CustomQueryPage: TInputQueryWizardPage;

procedure AddCustomQueryPage();
begin
  CustomQueryPage := CreateInputQueryPage(
    wpWelcome,
    'Custom message',
    'Custom description',
    'Custom instructions');

  { Add items (False means it's not a password edit) }
  CustomQueryPage.Add('Custom Field:', False);
end;

procedure InitializeWizard();
begin
  AddCustomQueryPage();
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    { Read custom value }
    MsgBox('Custom Value = ' + CustomQueryPage.Values[0], mbInformation, MB_OK);
    ComputerName: CustomQueryPage.Values[0];
  end;
end;

[Run]
;Filename: "powershell.exe"; \
  ;Parameters: "-ExecutionPolicy Bypass -File ""{tmp}\Toolkit\Deployment-Application.ps1"""; \
  ;WorkingDir: "{tmp}\Toolkit";

Filename: "{tmp}\Toolkit\Deploy-Application.exe"; \
  Parameters: '-ComputerName ' + ComputerName; \
  WorkingDir: "{tmp}\Toolkit";