you remember this is the nut form that opens in the php window
![[Image: kaia.png]](https://zupimages.net/up/20/27/kaia.png)
well you can say ugly goodbye
and hello to the new form that you would have
![[Image: o36x.png]](https://zupimages.net/up/20/27/o36x.png)
![[Image: jm69.png]](https://zupimages.net/up/20/27/jm69.png)
![[Image: hf8j.png]](https://zupimages.net/up/20/27/hf8j.png)
good there is still work on the configuration and for all to update but the presentation, tation and very well like its
Code:
//presentation pascal code
Procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.sentora.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
var
PageParam: TInputQueryWizardPage;
// Créer les Pages Personnalisées
procedure CreateTheWizardPages;
begin
// Create the page
PageParam := CreateInputQueryPage(wpInfoBefore,
ExpandConstant('Configure your Sentora Installation'), ExpandConstant('Information of your installation'),
ExpandConstant('please fill in the information requested to configure your Setora installation'));
// Add items (False means it's not a password edit)
PageParam.Add(ExpandConstant('Your Full name:'), False);
PageParam.Add(ExpandConstant('Your Email:'), False);
PageParam.Values[0]:= '';
PageParam.Values[1]:= '';
end;
// Fonctions de retour
function GetParam1(Param: String): String;
begin
Result := PageParam.Values[0];
end;
function GetParam2(Param: String): String;
begin
Result := PageParam.Values[1];
end;
var
PageParamm: TInputQueryWizardPage;
procedure CreateTheWizardPages1;
begin
// Create the page
PageParamm := CreateInputQueryPage(wpUserInfo,
ExpandConstant('Configure your Sentora Installation'), ExpandConstant('Information of your installation'),
ExpandConstant('please fill in the information requested to configure your Setora installation'));
// Add items (False means it's not a password edit)
PageParamm.Add(ExpandConstant('Your FQDN:'), False);
PageParamm.Add(ExpandConstant('Password For Zadmin:'), False);
PageParamm.Values[0]:= '';
PageParamm.Values[1]:= '';
end;
// Fonctions de retour
function GetParam3(Paramm: String): String;
begin
Result := PageParam.Values[0];
end;
function GetParam4(Paramm: String): String;
begin
Result := PageParamm.Values[1];
end;
//code for configure PATH Variable
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Path, AppDir: string;
Index: Integer;
begin
if CurUninstallStep = usUninstall then
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE,
'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
'Path', Path) then
begin
AppDir := ExpandConstant('{app}\bin\apache\bin;{app}\bin\mysql\bin;{app}\bin\php;{app}\bin\wget;{app}\bin\bind\bin');
Index := Pos(AppDir, Path);
Delete(Path, Index-1, Length(AppDir)+1);
RegWriteStringValue(HKEY_LOCAL_MACHINE,
'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
'Path', Path);
end;
end;
end;
//end path config
procedure InitializeWizard();
var
URLLabel: TNewStaticText;
begin
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := 'www.sentora.org';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
{ Alter Font *after* setting Parent so the correct defaults are inherited first }
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Top := WizardForm.ClientHeight - URLLabel.Height - 15;
URLLabel.Left := ScaleX(20);
//end;
//begin
CreateTheWizardPages;
CreateTheWizardPages1;
end;
and can retrieve the parameters to send them to the script even hide this one seen which more interaction on it
the script will be executed like this
install_services.bat {app} {tmp} {code:GetParam1} {code:GetParam2} {code:GetParam3} {code:GetParam4}
install_services.bat install_folder temp_dir your_full_name your_email your_fqdn password_for_zadmin
Code:
@echo off
SET install_folder=%1
SET temp_dir=%2
SET your_full_name=%3
SET your_email=%4
SET your_fqdn=%5
SET password_for_zadmin=%6
Code:
<?php
$install_folder = $argv[0]
$temp_dir = $argv[1]
$your_full_name = $argv[2]
$your_email = $argv[3]
$your_fqdn = $argv[4]
$password_for_zadmin = $argv[5]
and if everything goes as planned
you will be able to choose the installation directory
including in another hard drive
I remember that some have asked
and at the time it was petter who said that it was not possible
yes indeed at the time but more today
since we can customize the installer with code
so can rewrite all config files
and for the paths in the db 2 3 update command and it is set
I want to reassure everyone too
even I suggest improvements
on the installer
I do not intend to modify the theme of the panel nor to add unnecessary modules like imagik or even to make you come back to a version 2.2 of apache
I'm not MarkDark all of it makes him
what I propose will work on
apache 2.4.38
php 5.6.40
suhosin 0.9.38
mysql 5.7.29
I will also add the wget version of cygwin
and what tools such as unzip zip tar gzip xz sed and coreutils
but it stops no change in the panel code itself by changing the theme either
![[Image: 02wy.png]](https://zupimages.net/up/20/27/02wy.png)
