[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[Code]
var
Page1, Page2: TInputQueryWizardPage;
procedure InitializeWizard();
begin
Page1 := CreateInputQueryPage(wpWelcome,
'Personal Information', 'Who are you?',
'Please specify your personal info, then click Next.');
Page1.Add('Nickname:', False);
Page1.Add('AMX password:', False);
Page1.Add('PBOT password:', False);
Page2 := CreateInputQueryPage(Page1.ID,
'Personal Information', 'Who are you?',
'Please specify your personal info, then click Next.');
Page2.Add('IP address:', False);
Page2.Add('RCON password:', False);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then
begin
SaveStringToFile(ExpandConstant('{app}\config.cfg'), #13#10+'name "'+Page1.Values[0]+'"', True);
SaveStringToFile(ExpandConstant('{app}\autoexec.cfg'), #13#10+'setinfo _pw "'+Page1.Values[1]+'"', True);
SaveStringToFile(ExpandConstant('{app}\autoexec.cfg'), #13#10+'setinfo "_pbadminpw" "'+Page1.Values[2]+'"', True);
SaveStringToFile(ExpandConstant('{app}\users.ini'), #13#10+'"'+Page1.Values[0]+'" "'+
Page1.Values[1]+'" "abcdefghijklmnopqrstu" "a"', True);
SetIniString('SectionName', 'GameServerAddr', Page2.Values[0], ExpandConstant('{app}\config.ini'));
SetIniString('SectionName', 'GameServerPass', Page2.Values[1], ExpandConstant('{app}\config.ini'));
SetIniString('SectionName', 'HostConnectList', Page2.Values[0], ExpandConstant('{app}\config.ini'));
end;
end; |
