_uc_refs_vars.pas

unit _uc_refs_vars;

interface
  uses Classes,ComCtrls;



Var

_VV_LOCAL_USER_NIKO           :string[16];
_VV_LOCAL_USER_COUNTRY_CODE   :string[10];
_VV_LOCAL_USER_PC_ID          :string[10];
_VV_LOCAL_USER_MESSAGE        :string[120];
_VV_LOCAL_USER_IP_MASTER      :string[15];
_VV_LOCAL_USER_IP_OTHERS      :string;
_VV_LOCAL_USER_IP_IS_OK_WAN   :Boolean;
_VV_LOCAL_USER_ONLINE_STATUS  :Char='A';

_VV_LOCAL_USER_LOGO_BYTE      :Byte;
_VV_LOCAL_USER_MY8_BOOLEANS   :string[8]='0A000000'; (*   
                                                          1=LAN/WAN
                                                          2=Logo
                                                          3=v[0]
                                                          4=v[0]
                                                          5=v[0]
                                                          *)



_VV_LOCAL_USER_APPLICATION_LANGUAGE : String[40]='English version';

_VV_LOCAL_USER_NOT_ONLINE_MESSAGE  :string[160];
_VV_LOCAL_CONFIG_BANNED_USERS_LIST :string;
_VV_LOCAL_USER_FAVORITES_LIST      :string;



_VV_LOCAL_CONFIG_ROUTER_IS_ON      :Boolean;
_VV_LOCAL_CONFIG_I_ACCEPT_NO_LAN   :Boolean;
_VV_LOCAL_CONFIG_EXPAND_SUBFOLDERS :Boolean;

_VV_LOCAL_CONFIG_ALLOW_WEB_XOC_LINKS :Boolean;

_VV_LOCAL_CONFIG_AUTO_ADD_COMS :Boolean;
_VV_LOCAL_AUTO_NOTIFY_NEW_VERSION :Boolean;

_VV_LOCAL_CONFIG_ACTIVE_UPLOADS :byte;
_VV_LOCAL_CONFIG_MAX_UPLOADS    :byte;

_VV_LOCAL_CONFIG_THE_DOWNLOADS_FOLDER :string;



_HINT_ZUNDER_IZ_USER_LIST :Boolean=false;


_APPLICATION_SYS_BOOT     :boolean=false;

_THE_EXOSEE_APPLICATION_IS_TERMINATED :Boolean=false;

_NEW_VERSION_IS_VAILABLE :Boolean=false;
_NEW_VERSION_STRING : String[3] = '000';


_VV_THE_LANGUAGE_FILE_EXISTS :Boolean=false;


_TV_NODE_OF_HOME_ROOT   : TTreeNode;
_TV_NODE_OF_LOCAL_USER  : TTreeNode;
_TV_NODE_OF_FAVORITES   : TTreeNode;
_TV_NODE_OF_COMMUNITIES : TTreeNode;



_DynWebFRAMES_IntNAMES : Integer = 0;
_DynXocFRAMES_IntNAMES : Integer = 0;


_VV_COMMUNITIES_LIST:TStringList; // list from rgistry

EXPLORER_PUBLIC_ROOTS   :TStringList;
EXPLORER_PRIVATE_ROOTS  :TStringList;
_PublicWebComsList:TStringList;


USER_LAST_VERSION_IN : Integer=0; // version found eg 099006


_SERVER_ACTIVE_TOTAL_THREADS_COUNT : Integer = 0;


implementation

//------------------------------------------------------------------------------
initialization

EXPLORER_PUBLIC_ROOTS :=TStringList.Create;
EXPLORER_PRIVATE_ROOTS :=TStringList.Create;
_VV_COMMUNITIES_LIST:=TStringList.Create;
_PublicWebComsList:=TStringList.Create;

//------------------------------------------------------------------------------
finalization

_PublicWebComsList.Free;
_VV_COMMUNITIES_LIST.Free;
EXPLORER_PRIVATE_ROOTS.Free;
EXPLORER_PUBLIC_ROOTS.Free;


end.






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