home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DLL / RTREGW32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-13  |  3.3 KB  |  93 lines
  1. unit RtRegw32;
  2.  
  3. interface
  4.  
  5. uses
  6.    Windows;
  7.  
  8. type
  9.   TSaveKind = (skNone,skDef,skIni,skDll);
  10.   TGenKind = (gkSingle,gkDouble);
  11.  
  12. procedure RTSetPCLock(Value: BOOL); stdcall;
  13.  
  14. function RTRegister(ProductKey,UserKey,RegKey: PChar): BOOL; stdcall;
  15. function RTRegisterByFile(ProductKey,FileName: PChar): BOOL; stdcall;
  16.  
  17. function RTGetUserKey(ProductKey,Value: PChar): BOOL; stdcall;
  18. function RTSetUserInfo(ProductKey,Info,Value: PChar): BOOL; stdcall;
  19. function RTGetUserInfo(ProductKey,Info,Value: PChar): BOOL; stdcall;
  20. function RTDelUserInfo(ProductKey,Info: PChar): BOOL; stdcall;
  21.  
  22. function RTIsReg(ProductKey: PChar): Bool; stdcall;
  23. function RTDelReg(ProductKey: PChar): Bool; stdcall;
  24. function RTCheckReg(ProductKey: PChar): longint; stdcall;
  25.  
  26. function RTIsCountLock(ProductKey: PChar): BOOL; stdcall;
  27. function RTSetCountLock(ProductKey: PChar; Value: longint): BOOL; stdcall;
  28. function RTDelCountLock(ProductKey: PChar): BOOL; stdcall;
  29. function RTCheckCountLock(ProductKey: PChar): longint; stdcall;
  30.  
  31. function RTIsDateLock(ProductKey: PChar): BOOL; stdcall;
  32. function RTSetDateLock(ProductKey: PChar; Value: longint): BOOL; stdcall;
  33. function RTDelDateLock(ProductKey: PChar): BOOL; stdcall;
  34. function RTCheckDateLock(ProductKey: PChar): longint; stdcall;
  35.  
  36. function RTGetVersion: longint; stdcall;
  37. function RTGetGenKind: TGenKind; stdcall;
  38. function RTSetGenKind(Value: TGenKind): BOOL; stdcall;
  39. procedure RTSetEncodeKey(Value: PChar); stdcall;
  40.  
  41. function RTGetSaveKind: TSaveKind; stdcall;
  42. function RTSetSaveKind(Value: TSaveKind): BOOL; stdcall;
  43. procedure RTGetSaveFile(Value: PChar); stdcall;
  44. function RTSetSaveFile(Value: PChar): BOOL; stdcall;
  45.  
  46. function RTGetSafeKind: TSaveKind; stdcall;
  47. function RTSetSafeKind(Value: TSaveKind): BOOL; stdcall;
  48. procedure RTGetSafeFile(Value: PChar); stdcall;
  49. function RTSetSafeFile(Value: PChar): BOOL; stdcall;
  50.  
  51. implementation
  52.  
  53. procedure RTSetPCLock;     external 'RTREGW32';
  54.  
  55. function RTRegister;       external 'RTREGW32';
  56. function RTRegisterByFile; external 'RTREGW32';
  57.  
  58. function RTGetUserKey;        external 'RTREGW32';
  59. function RTSetUserInfo;        external 'RTREGW32';
  60. function RTGetUserInfo;        external 'RTREGW32';
  61. function RTDelUserInfo;        external 'RTREGW32';
  62.  
  63. function RTIsReg;          external 'RTREGW32';
  64. function RTDelReg;         external 'RTREGW32';
  65. function RTCheckReg;       external 'RTREGW32';
  66.  
  67. function RTIsCountLock;    external 'RTREGW32';
  68. function RTSetCountLock;   external 'RTREGW32';
  69. function RTDelCountLock;   external 'RTREGW32';
  70. function RTCheckCountLock; external 'RTREGW32';
  71.  
  72. function RTIsDateLock;     external 'RTREGW32';
  73. function RTSetDateLock;    external 'RTREGW32';
  74. function RTDelDateLock;    external 'RTREGW32';
  75. function RTCheckDateLock;  external 'RTREGW32';
  76.  
  77. function RTGetVersion;     external 'RTREGW32';
  78. function RTGetGenKind;        external 'RTREGW32';
  79. function RTSetGenKind;        external 'RTREGW32';
  80. procedure RTSetEncodeKey;  external 'RTREGW32';
  81.  
  82. function RTGetSaveKind;    external 'RTREGW32';
  83. function RTSetSaveKind;    external 'RTREGW32';
  84. procedure RTGetSaveFile;    external 'RTREGW32';
  85. function RTSetSaveFile;        external 'RTREGW32';
  86. function RTGetSafeKind;    external 'RTREGW32';
  87. function RTSetSafeKind;    external 'RTREGW32';
  88. function RTSetSafeFile;        external 'RTREGW32';
  89. procedure RTGetSafeFile;    external 'RTREGW32';
  90.  
  91. end.
  92.  
  93.