[Setup] AppName=My App AppVersion=1.0 DefaultDirName=pf\MyApp [Registry] Root: HKCU; Subkey: "Software\MyApp"; ValueType: string; ValueName: "UserName"; ValueData: "code:GetUserName"
Then call the form from InitializeWizard or a custom button: inno setup form designer 2.0.8 download
function CreateCustomForm: TForm; var Label1: TLabel; EditUsername: TEdit; BtnOK, BtnCancel: TButton; begin Result := TForm.Create(nil); with Result do begin Caption := 'My Custom Setup Dialog'; Width := 400; Height := 300; Position := poScreenCenter; BorderStyle := bsDialog; end; Label1 := TLabel.Create(Result); with Label1 do begin Parent := Result; Caption := 'Enter username:'; Left := 20; Top := 20; end; [Setup] AppName=My App AppVersion=1
function GetUserName(Param: string): string; begin Result := UserNameValue; end; var Label1: TLabel