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.
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.