ZPanel 10.1.1 -> Sentora 1.0.3 Windows Version

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;

Code:

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
begin
    Result := ''

    if MemoUserInfoInfo <> '' then begin
        Result := MemoUserInfoInfo + Newline + NewLine;
    end;
    if MemoDirInfo <> '' then begin
        Result := Result + MemoDirInfo + Newline + NewLine;
    end;
    if MemoTypeInfo <> '' then begin
        Result := Result + MemoTypeInfo + Newline + NewLine;
    end;
    if MemoComponentsInfo <> '' then begin
        Result := Result + MemoComponentsInfo + Newline + NewLine;
    end;
    if MemoGroupInfo <> '' then begin
        Result := Result + MemoGroupInfo + Newline + NewLine;
    end;
    if MemoTasksInfo <> '' then begin
        Result := Result + MemoTasksInfo + Newline + NewLine;
    end;
    Result := Result + 'Your Sentora install Configure:' + NewLine + NewLine; 
    Result := Result + 'Your Full Name: ' + PageParam.Values[0] + NewLine; 
    Result := Result + 'Your Email: ' + PageParam.Values[1] + NewLine; 
    Result := Result + 'Your FQDN: ' + PageParamm.Values[0] + NewLine; 
    Result := Result + 'Password For Zadmin: ' + PageParamm.Values[1] + NewLine;
end;