home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DLL / RTREGW32.TXT < prev   
Encoding:
Text File  |  1996-02-23  |  2.6 KB  |  38 lines
  1. Attribute VB_Name = "RTREGW"
  2. Option Explicit
  3. Declare Function RTGetPCKey Lib "RTREGW32.DLL" (ByVal PCKey$) As Integer
  4. Declare Sub RTSetPCLock Lib "RTREGW32.DLL" (ByVal Value As Integer)
  5. Declare Function RTRegister Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal UserKey$, ByVal RegKey$) As Integer
  6. Declare Function RTRegisterByFile Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal FileName$) As Integer
  7. Declare Function RTGetUserKey Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Value$) As Integer
  8. Declare Function RTSetUserInfo Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
  9. Declare Function RTGetUserInfo Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
  10. Declare Function RTDelUserInfo Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Info$) As Integer
  11. Declare Function RTIsReg Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  12. Declare Function RTDelReg Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  13. Declare Function RTCheckReg Lib "RTREGW32.DLL" (ByVal ProductKey$) As Long
  14. Declare Function RTIsCountLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  15. Declare Function RTSetCountLock Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
  16. Declare Function RTDelCountLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  17. Declare Function RTCheckCountLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Long
  18. Declare Function RTIsDateLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  19. Declare Function RTSetDateLock Lib "RTREGW32.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
  20. Declare Function RTDelDateLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Integer
  21. Declare Function RTCheckDateLock Lib "RTREGW32.DLL" (ByVal ProductKey$) As Long
  22. Declare Function RTGetVersion Lib "RTREGW32.DLL" () As Long
  23. Declare Sub RTSetVersion Lib "RTREGW32.DLL" (ByVal Value As Long)
  24. Declare Sub RTSetEncodeKey Lib "RTREGW32.DLL" (ByVal Value$)
  25. Declare Function RTGetSaveKind Lib "RTREGW32.DLL" () As Integer
  26. Declare Function RTSetSaveKind Lib "RTREGW32.DLL" (ByVal Value As Integer) As Integer
  27. Declare Sub RTGetSaveFile Lib "RTREGW32.DLL" (ByVal File$)
  28. Declare Function RTSetSaveFile Lib "RTREGW32.DLL" (ByVal File$) As Integer
  29. Declare Function RTGetSafeKind Lib "RTREGW32.DLL" () As Integer
  30. Declare Function RTSetSafeKind Lib "RTREGW32.DLL" (ByVal Value As Integer) As Integer
  31. Declare Sub RTGetSafeFile Lib "RTREGW32.DLL" (ByVal File$)
  32. Declare Function RTSetSafeFile Lib "RTREGW32.DLL" (ByVal File$) As Integer
  33. Global Const SAVE_NONE = 0
  34. Global Const SAVE_DEF = 1
  35. Global Const SAVE_INI = 2
  36. Global Const SAVE_DLL = 3
  37.  
  38.