home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2000 September / PCWORLD_PLUS.iso / topshare / netwatch.exe / _SETUP.1 / VBOLock.ocx / 0 / RCDATA / TFORM4 / TFORM4.txt
Text File  |  1999-11-08  |  2KB  |  93 lines
  1. object Form4: TForm4
  2.   Left = 194
  3.   Top = 161
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Code Generator'
  7.   ClientHeight = 269
  8.   ClientWidth = 403
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Memo1: TMemo
  19.     Left = 12
  20.     Top = 12
  21.     Width = 377
  22.     Height = 229
  23.     Lines.Strings = (
  24.       'Private Sub Form_Load()'
  25.       ' Dim RetVal As Integer'
  26.       ''
  27.       ' LockIt1.Visible = False               '#39'Set OCX to invisible'
  28.       
  29.         ' LockIt1.SetPath (App.Path)       '#39'Let OCX know where LICENSE.DA' +
  30.         'T FILE is'
  31.       
  32.         ' RetVal = LockIt1.GetTrialStatus '#39'Check to see status of protect' +
  33.         'ion'
  34.       ' '
  35.       ' Select Case RetVal'
  36.       '  Case -1'
  37.       '   '#39' Still running'
  38.       '  Case 0'
  39.       '   '#39' LICENSE.DAT file is missing'
  40.       '  Case 1'
  41.       '   '#39' Trial Expired'
  42.       '  Case 2'
  43.       '   '#39' Illegal Copy'
  44.       '  Case 3'
  45.       '   '#39' Maximum times used'
  46.       '  Case 4'
  47.       '  '#39'  Registered copy'
  48.       ' End Select'
  49.       ' '
  50.       ' '#39'1) OnRunning      Copy protection is still active'
  51.       ' '#39'2) OnRegistered   The program was registered'
  52.       ' '#39'3) OnMissing      LICENSE.DAT file is missing'
  53.       
  54.         ' '#39'4) OnMaxtimes     The program has exceeded the number of times' +
  55.         ' allowed'
  56.       
  57.         ' '#39'5) OnIllegal      Program was illegally copied to another mach' +
  58.         'ine'
  59.       ' '#39'6) OnExpired      Copy protection has expired.'
  60.       'End Sub'
  61.       ''
  62.       'Private Sub LockIt1_OnExpired()'
  63.       #39' Trial version expired'
  64.       'End'
  65.       'End Sub'
  66.       ''
  67.       'Private Sub LockIt1_OnIllegal()'
  68.       #39' this is an illegal copy'
  69.       'End'
  70.       'End Sub'
  71.       ''
  72.       'Private Sub LockIt1_OnMaxtimes()'
  73.       #39' Max times exceeded'
  74.       'End'
  75.       'End Sub'
  76.       ''
  77.       'Private Sub LockIt1_OnMissing()'
  78.       ' '#39' License file is missing'
  79.       ' End'
  80.       'End Sub'
  81.       ''
  82.       'Private Sub LockIt1_OnRegistered()'
  83.       #39' The program is registered'
  84.       ''
  85.       'End Sub'
  86.       ''
  87.       'Private Sub LockIt1_OnRunning()'
  88.       #39' Trial program still running'
  89.       'End Sub')
  90.     TabOrder = 0
  91.   end
  92. end
  93.