home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 299
- Top = 241
- Width = 379
- Height = 213
- Caption = 'Demo TmRegApp'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 232
- Top = 8
- Width = 88
- Height = 13
- Caption = 'Password (Delphi):'
- end
- object Label2: TLabel
- Left = 272
- Top = 160
- Width = 89
- Height = 20
- Caption = 'Registered'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Visible = False
- end
- object Label3: TLabel
- Left = 224
- Top = 168
- Width = 32
- Height = 13
- Caption = 'Label3'
- Visible = False
- end
- object Button2: TButton
- Left = 16
- Top = 16
- Width = 161
- Height = 25
- Caption = 'Get LastUse-date'
- TabOrder = 0
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 16
- Top = 48
- Width = 161
- Height = 25
- Caption = 'Get Installation-date'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 16
- Top = 80
- Width = 161
- Height = 25
- Caption = 'Get Expire-date'
- TabOrder = 2
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 16
- Top = 144
- Width = 161
- Height = 25
- Caption = 'Clear Registry'
- TabOrder = 3
- OnClick = Button5Click
- end
- object Edit1: TEdit
- Left = 232
- Top = 24
- Width = 121
- Height = 21
- PasswordChar = '*'
- TabOrder = 4
- end
- object Button6: TButton
- Left = 232
- Top = 56
- Width = 75
- Height = 25
- Caption = 'Register'
- TabOrder = 5
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 16
- Top = 112
- Width = 161
- Height = 25
- Caption = 'Has clock been moved back?'
- TabOrder = 6
- OnClick = Button7Click
- end
- object mRegApp1: TmRegApp
- P = '09244148512D'
- CodeKey = 'MA-89D7-02'
- DaysToUse = 31
- FakeGUID = '{A1159D67-71E0-11D4-BE52-39A481D50110}'
- About = 'Version 1.0, 2002 '#174' Mats Asplund, http://go.to/masdp'
- Left = 192
- Top = 16
- end
- end
-