home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / VB4 / FORM3.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-13  |  3.4 KB  |  115 lines
  1. VERSION 4.00
  2. Begin VB.Form Form3 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Registering DEMO Program"
  6.    ClientHeight    =   2670
  7.    ClientLeft      =   2100
  8.    ClientTop       =   2220
  9.    ClientWidth     =   6615
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3075
  22.    Left            =   2040
  23.    LinkTopic       =   "Form3"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2670
  27.    ScaleWidth      =   6615
  28.    Top             =   1875
  29.    Width           =   6735
  30.    Begin VB.CommandButton Command1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "Register"
  34.       Default         =   -1  'True
  35.       Height          =   495
  36.       Left            =   2400
  37.       TabIndex        =   0
  38.       Top             =   1920
  39.       Width           =   1575
  40.    End
  41.    Begin Threed.SSFrame SSFrame1 
  42.       Height          =   1215
  43.       Left            =   240
  44.       TabIndex        =   1
  45.       Top             =   360
  46.       Width           =   6135
  47.       _Version        =   65536
  48.       _ExtentX        =   10821
  49.       _ExtentY        =   2143
  50.       _StockProps     =   14
  51.       Begin VB.TextBox Text2 
  52.          Appearance      =   0  'Flat
  53.          Height          =   285
  54.          Left            =   1800
  55.          TabIndex        =   5
  56.          Text            =   "74030960"
  57.          Top             =   720
  58.          Width           =   3975
  59.       End
  60.       Begin VB.TextBox Text1 
  61.          Appearance      =   0  'Flat
  62.          Height          =   285
  63.          Left            =   1800
  64.          TabIndex        =   4
  65.          Text            =   "UserKey"
  66.          Top             =   240
  67.          Width           =   3975
  68.       End
  69.       Begin VB.Label Label2 
  70.          Appearance      =   0  'Flat
  71.          BackColor       =   &H80000005&
  72.          Caption         =   "Reg Key"
  73.          ForeColor       =   &H80000008&
  74.          Height          =   255
  75.          Left            =   240
  76.          TabIndex        =   3
  77.          Top             =   720
  78.          Width           =   1335
  79.       End
  80.       Begin VB.Label Label1 
  81.          Appearance      =   0  'Flat
  82.          BackColor       =   &H80000005&
  83.          Caption         =   "User Key"
  84.          ForeColor       =   &H80000008&
  85.          Height          =   255
  86.          Left            =   240
  87.          TabIndex        =   2
  88.          Top             =   240
  89.          Width           =   1335
  90.       End
  91.    End
  92. Attribute VB_Name = "Form3"
  93. Attribute VB_Creatable = False
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. Private Sub Command1_Click()
  97. Dim i As Integer
  98.    Registered = RTRegister(cPrg, Text1.Text, Text2.Text)
  99.    If Registered > 0 Then
  100.       If RTIsCountLock(cPrg) Then
  101.         i = RTDelCountLock(cPrg)
  102.       ElseIf RTIsDateLock(cPrg) Then
  103.         i = RTDelDateLock(cPrg)
  104.       End If
  105.       Locks = 0
  106.       Cnt = 1
  107.    Else
  108.         MsgBox "Wrong registration key!", MB_ICONEXCLAMATION + MB_OK
  109.    End If
  110.    Unload Me
  111. End Sub
  112. Private Sub SSFrame1_Click()
  113. USER Key
  114. End Sub
  115.