*********************************************************************
*	    Windows   
* :         RegistrMan
*  : Custom
* :    Registr.vcx
* :         .., --, olegvbru@yahoo.com
* :          10.05.2002
*********************************************************************

:

  hKey             -   

   (  Open, Create):
  cClassKey        -  
  tLastTime        -         DateTime.
                     (  WinNT  ,  Win9x    )
  nSubKeys         - - 
  nValues          - -  

  nMaxSubKeyLen    - .  
  nMaxClassLen     - .  
  nMaxValueNameLen - .   
  nMaxValueLen     - .   

nOptions           - .   (default = 0 -  )
nDisposition       -   Create: 1-  , 2-  
nType              -    

nError             -         

:

1. 

  <Object>.Create (tnSection, tcSubKey [, tcClassKey [, tnOptions]] ) : LOGICAL

  :
  tnSection -  : HKEY_CLASSES_ROOT, HKEY_CURRENT_USER  .. (.regist.h)
  tcSubKey  -      "Key1\Key2\...\eyN"
  tcClassKey -   (  -   :( ).   - ""
  tnOptions - .  :
              REG_OPTION_NON_VOLATILE (=0) - ( ),
              REG_OPTION_VOLATILE (=1)     - (  WinNT)

  : .T.   , .F.  

     ,   .    
  .nDisposition   :
  REG_CREATED_NEW_KEY (=1)     -      
  REG_OPENED_EXISTING_KEY (=2) -      

        cClassKey, tLastTime,
  nSubKeys, nValues, nMaxSubKeyLen, nMaxClassLen, nMaxValueNameLen, nMaxValueLen

2.   

  <Object>.Open ( tnSection [, tcSubKey] ) : LOGICAL

  :
  tnSection -  : HKEY_CLASSES_ROOT, HKEY_CURRENT_USER  .. (.regist.h)
  tcSubKey  -     "Key1\Key2\...\eyN"
                 ,     tnSection


  : .T.   , .F.  

        cClassKey, tLastTime,
  nSubKeys, nValues, nMaxSubKeyLen, nMaxClassLen, nMaxValueNameLen, nMaxValueLen

3.   .hKey

  <Object>.Close ()

4.  

  <Object>.GetInfo() : LOGICAL 

    cClassKey, tLastTime,
  nSubKeys, nValues, nMaxSubKeyLen, nMaxClassLen, nMaxValueNameLen, nMaxValueLen

     

5.  

  <Object>.SubKeys ( tnIndex ) : CHARACTER

  :
  tnIndex -    0  .nSubKeys-1

  :  

       cClassKey, tLastTime

     

6.   

  <Object>.Values ( tnIndex ) : CHARACTER

  :
  tnIndex -    0  .nValues-1

  :  

       nType

     

7.     

  <Object>.DeleteKey ( tcSubKey ) : LOGICAL

  :
  tcSubKey -   ( !)
 
  : .T.   , .F.  

   Win9x    ,  WinNT    

8.     

  <Object>.DeleteValue ( tcName ) : LOGICAL

  :
  tcName -   
 
  : .T.   , .F.  

     

9.   

  <Object>.GetValue ( tcName [, taValue [, tnItemSize]] ): [NUMERIC|CHARACTER|LOGICAL] 

  :
  tcName     -   
                tcName="",      
  taValue    -    REG_BINARY, REG_MULTI_SZ -    ,
                 ,     
                  -     
  tnItemSize -     REG_BINARY      
                , default = 1.    

  :     REG_BINARY, REG_MULTI_SZ    taValue - .T.
                 -   (NUMERIC  CHARACTER)
               - .F.

       nType

10.    

  <Object>.SetValue (tcName, tnType [, tuValue, tnItemSize] ) : LOGICAL

  :
  tcName -  
                tcName="",      
  tnType -  
  tuValue -    REG_BINARY, REG_MULTI_SZ  tnItemSize<>.F. -
               ,   
                   -   
  tnItemSize -    REG_BINARY        
                   REG_MULTI_SZ - .T.      

  : .T. -   ,  .F. -  

     ,  

     

11.   

  <Object>.FlushKey() : LOGICAL

  : .T. -   ,  .F. -  

      -       
    . FlushKey   .

     

12. DLL, OCX

  <Object>.DLLRegistr (tcFile) : Logical

  :
  tcFile -   

  : .T. -   
             .F. -   
                     DllRegisterServer   
                    

13.  DLL. OCX

  <Object>.DLLUnRegistr (tcFile) : Logical

  :
  tcFile -   

  : .T. -    
	     .F. -   
                     DllUnRegisterServer   
                     

14.   

  <Object>.SetLicense (tcLicenseId, tcLicenseValue) : LOGICAL

  :
  tcLicenseId - . 
  tcLicenseValue -  

  : .T. -   ,  .F. -  

          .SRG

15. 

  <Object>.Release()

       
