home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / VB4 / MODULE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-04-13  |  1.5 KB  |  55 lines
  1. Attribute VB_Name = "MODULE1"
  2. Option Explicit
  3. Global Cnt As Long, Locks As Long
  4. Global Registered As Integer
  5. Global Const cPrg = "ProductKey"
  6. Global Const cRegVer = "DEMO Registered Version"
  7.  
  8.  
  9. Sub Main()
  10. Dim Msg As String
  11. Dim i As Integer
  12.     i = RTSetSaveFile("REGVB.INI") 'save data into REGVB.INI
  13.     i = RTSetSaveKind(SAVE_INI)     'it should be INI file
  14.     Locks = 0
  15.     Cnt = 1
  16.     If RTCheckReg(cPrg) < 0 Then
  17.         Msg = "This an unregister version of the DEMO program." + Chr$(13) + Chr$(10)
  18.         If RTIsCountLock(cPrg) Then
  19.             Locks = 1
  20.             Cnt = RTCheckCountLock(cPrg)
  21.             Msg = Msg + "You have " + CStr(Cnt) + " more calls to test it." + Chr$(13) + Chr$(10)
  22.         ElseIf RTIsDateLock(cPrg) Then
  23.             Locks = 2
  24.             Cnt = RTCheckDateLock(cPrg)
  25.             Msg = Msg + "You have " + CStr(Cnt) + " more days to test it." + Chr$(13) + Chr$(10)
  26.         End If
  27.         Msg = Msg + "Do you want to register now?"
  28.         If MsgBox(Msg, MB_YESNO + MB_ICONQUESTION) = IDYES Then
  29.             i = Register()
  30.         Else
  31.             i = False
  32.         End If
  33.         If (i = 0) And (Locks = 0) Then
  34.             SetLock
  35.         End If
  36.     End If
  37.     If Cnt > 0 Then
  38.         Load Form1
  39.         Form1.Show
  40.     End If
  41. End Sub
  42.  
  43. Function Register() As Integer
  44.     Registered = False
  45.     Load Form3
  46.     Form3.Show 1
  47.     Register = Registered
  48. End Function
  49.  
  50. Sub SetLock()
  51.     Load Form4
  52.     Form4.Show 1
  53. End Sub
  54.  
  55.