_uf_wizard.pas

unit _uf_wizard;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,FileCtrl, StdCtrls;

type
  TF_SETUP_WIZARD = class(TForm)
    AA_0532_Label2: TLabel;
    edz: TEdit;
    AA_0533_Label3: TLabel;
    fed: TEdit;
    Button1: TButton;
    AA_0569_cNo: TButton;
    cOk: TButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    AA_0531_Label1: TLabel;
    AA_0551_ccRouter: TCheckBox;
    LbbPorts: TLabel;
    procedure fedChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AA_0569_cNoClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AA_0551_ccRouterClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;



implementation

uses _uc_refs_consts, _uc_refs_vars, _uc_GuiLanG, _uc_funcs;

{$R *.DFM}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.fedChange(Sender: TObject);
begin
cOk.Enabled:=(length(edz.Text)in[2..16]) and (fed.Text<>'') and (edz.Text<>'  ');
end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.Button1Click(Sender: TObject);
var
s: string;
begin

if SelectDirectory(___ccc__0049__SelectPubFolder,'',s)then
begin
fed.text:=s+'\';
fed.text:=stringreplace(fed.text,'\\','\',[rfReplaceAll]);
end;


end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0569_cNoClick(Sender: TObject);
begin
Application.Terminate;
end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=(tag=1);
end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.cOkClick(Sender: TObject);
var
s,z:string;
begin


z:=UpperCase(edz.Text); // nik

if (z<>'') then begin
                if (pos('EXOSEE',z)>0)
                or (pos('EXO-SEE',z)>0)
                or (pos('EXOSE',z)>0)
                or (pos('XOSEE',z)>0)
                or (pos('XO-SEE',z)>0)
                or (pos('EXO-C',z)>0)
                or (pos('XO-C',z)>0)
                or (pos('TO XOC',z)>0)
                then begin
                     ShowMessage('Application resreved words are not allowed.'+ret+ret+
                                 'Check "Nickname" entry !');
                     exit;
                     end;
                end;



s:=fed.text;
EXPLORER_PUBLIC_ROOTS.Add(s);
_VV_LOCAL_USER_NIKO:=edz.text;

if (_VV_LOCAL_CONFIG_ROUTER_IS_ON) then _VV_LOCAL_USER_IP_IS_OK_WAN:=true;

s:=s+'_My_downloads';
CreateDir(s);
_VV_LOCAL_CONFIG_THE_DOWNLOADS_FOLDER:=s+'\';

tag:=1;
close;

end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCreate(Sender: TObject);
begin
GoSetLANG(Self); //----- go loadLang --- if ok  (1st here)
end;

//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0551_ccRouterClick(Sender: TObject);
begin
_VV_LOCAL_CONFIG_ROUTER_IS_ON:=AA_0551_ccRouter.Checked;
LbbPorts.Visible:=AA_0551_ccRouter.Checked;
end;

end.





../delphi71code/exosee-code-source/uf_wizard-pas..