[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[Code]
var
Page: TInputQueryWizardPage;
procedure InitializeWizard();
begin
Page := CreateInputQueryPage(wpWelcome,
'Personal Information', 'Who are you?',
'Please specify your personal info, then click Next.');
Page.Add('Сколько Вам лет?', False);
Page.Add('Совершали ли Вы преступления против человечества?', False);
Page.Add('Если да, поясните:', False);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then
begin
SaveStringToFile(ExpandConstant('{app}\test.bat'),
'@echo off' + #13#10 +
'Age: "' + Page.Values[0] + '" nevermind',True)
end;
end; |
