1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
| ;InnoSetupVersion=5.5.0
[Setup]
etc
[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: french; MessagesFile: compiler:Languages\French.isl
[Files]
Source: {app}\*; DestDir: {app}; MinVersion: 0.0,5.0; Flags: ignoreversion recursesubdirs createallsubdirs
[Run]
Filename: {app}\bin\zpss\configurex.bat; StatusMsg: Configuring the enviroment; MinVersion: 0.0,5.0; Parameters: {code:GetName} {code:GetEmail} {code:GetFQDN} {code:GetPassword}
[UninstallDelete]
Type: filesandordirs; Name: {app}\*
[CustomMessages]
NameAndVersion=%1 version %2
AdditionalIcons=Additional icons:
CreateDesktopIcon=Create a &desktop icon
CreateQuickLaunchIcon=Create a &Quick Launch icon
ProgramOnTheWeb=%1 on the Web
UninstallProgram=Uninstall %1
LaunchProgram=Launch %1
AssocFileExtension=&Associate %1 with the %2 file extension
AssocingFileExtension=Associating %1 with the %2 file extension...
AutoStartProgramGroupDescription=Startup:
AutoStartProgram=Automatically start %1
AddonHostProgramNotFound=%1 could not be located in the folder you selected.%n%nDo you want to continue anyway?
; Français (French)
french.name=Nom Complet (Nom et prénom)
;English
english.name=Full Name (name space first name)
;je sais pas la bonne balise
; mai la balise code semble être traité en phpbb
(code)
var
AuthPage : TInputQueryWizardPage;
procedure InitializeWizard;
begin
AuthPage := CreateInputQueryPage(wpWelcome,
'Account Information', 'Please enter your Account Information',
'');
AuthPage.Add('{cm:name}', False);
AuthPage.Add('Email:', False);
AuthPage.Add('FQDN:', False);
AuthPage.Add('Password of Zadmin:', True);
end;
function AuthForm_NextButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;
function GetName(Param: String): string;
begin
result := AuthPage.Values[0];
end;
function GetEmail(Param: String): string;
begin
result := AuthPage.Values[1];
end;
function GetFQDN(Param: String): string;
begin
result := AuthPage.Values[2];
end;
function GetPassword(Param: String): string;
begin
result := AuthPage.Values[3];
end; |
Partager