unit1.dfm

TTrialSoftware LITE时间限制的共享软件控件。(源代码

object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TTrialSoftware 1.6 LT DEMO - Martin Software'
  ClientHeight = 368
  ClientWidth = 353
  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 = 48
    Top = 8
    Width = 127
    Height = 13
    Caption = 'What'#39's TTrialSoftware'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 96
    Width = 45
    Height = 13
    Caption = 'License'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 26
    Height = 26
    AutoSize = True
    BevelOuter = bvLowered
    TabOrder = 0
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 24
      Height = 24
      AutoSize = True
      Picture.Data = {
        07544269746D6170F6060000424DF60600000000000036000000280000001800
        0000180000000100180000000000C0060000C30E0000C30E0000000000000000
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFE2E6C1DDE0BFDDE2
        BFDFE6BFDFE6BFDFE4BFDDE1BFDCE0CBE0E3E4EBEEF2F6F7FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBD9DB69AEBB0E
        839600869500879B008AA1008DA2008A9F008597008897078C9D3197AA49A4B2
        7CBDC2ADCDD1FFFCFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3E5E64998
        A6108C9E008DA300A1B800ACBE00AFBE00ACBD00B2BF00B6BF00B4C100AFBF00
        AEBE00A5B9009BB40094A8078F9E4CAFBEEDF8F9FFFFFFFFFFFFFFFFFFFFFFFF
        D5EAEB248795007C8E00A2B600B2C500B8CA00C0D300C0D300C2D200D6D900B0
        E50089F300C9DA00C6D000BED400B9D100B8CD00B2C100A5B93AB7C5E7F6F9FF
        FFFFFFFFFFE8F1F335909C007E9400A4B500B7C500C2D200CAD800CCDE00CFE5
        00D4E300B3E90065F9003CFF008AEF00CDE400D1E000C8DA00C9D700CBD900C2
        D800ACC15DC3D0F6FBFAFFFFFF8CBCC3007A8B00A4B900B7C800C5D100CFDC00
        D3E700DDED05EDEF0CBDF5003DFD003DFF0053FF0140FE017CF800DEEA00D9ED
        00D7EA00D6E100D1E200C2D908AEC0D2EEF0E2EFEF2D909C0095A800B5C500C5
        D100CFDB00D9E810E9F42EF8FC3BFDFE32B5FF1B74FF22A4FF1EA9FF2394FF07
        53FF1DE1F91DF1FC14EFFC02E3F000D3E600D1DE00B8C8A2E1E9C6E0E2008796
        00A8BC00BACC00CADC0DDEE725EFFA4DF8FF5EFAFF57FBFF51F8FF52FFFF3ECB
        FF2591FF227FFF0E60FF4AEEFF64FDFF5BFAFF32F6FC04E3F100D7E700C5D74B
        CCD9CDE3E80C99A600B3C600C6D600D1E60FE6F93CF9FF56F9FF61F8FF68F9FF
        5FFFFF3FC6FF116DFF0346FF0452FF41B2FF6FFEFF74FAFF72F8FF41F7FF05EA
        F600DEED00C7D579DAE4FCFDFD71C5CF00A7BE00CBD700D3E200D7EB0EE7FC25
        F2FB42F6FF5AFFFF53D8FF0C56FF0744FF267FFC55E7FD72FFFF75FAFF6EF8FF
        53F9FF1FEFFB00E7F400DCED02C5D6C3EFF3FFFFFFC7E6EC1CABB900B6C700CF
        DD00D4E000D6E900E1F00AEAF72AFDFD23AFFB0C51FF219FFF44B5FA65E6FC5D
        DEFF61FAFF3EF5FF12EFF601EAEF00E2F100CBE153D4E1F1FBFCFFFFFFFFFFFF
        CEEDEF1EB0C200B5C800CCDB00D1E100D2E400D9EC00EDF100BCF70540FF0864
        FF1E7AFF1358FF1F98FF29F9FF06EBF600E7F000E2F100CCE13ACFDCE9F8F9FF
        FFFFFFFFFFFFFFFFFFFFFFD9F2F855C8D813B8CB00BECD00CBDB00D0E000D4E5
        00D5ED0092EE004BFC003EFF0072FB02D4F405EBF700E4F000DCED00CCE13FCF
        DCEDF9FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0E7ED69CED90E
        B8CB00BACD00C6D600CCD700DADC00C0EC00A2F900E2F300ECF000DDEC00D3E6
        00C9DD56D6E1EBF8FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFCFEDF3BDE8EF41C6D704B6C100CED300E3DE00ECDF00DDE100
        CCE107CAE032D3E2BCF0F5FAFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FCFDB2E9EB1BA0CC0889
        C60B8CC613B2CC4CD1DCBBEDF2F5FCFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        F8F2FA5E4BE72812F2270FEF829DE4FFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFBFBEDC232DCC1E21E5091DE2B6BFF6FFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBCD6DD0E7A920195B100A0C03EB6C6E5
        F6F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7DBAC100959C00C4
        D200D2DE00ADBF41B7C3DEF3F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7EDF2
        288FA200AABB03D2E605E3F500D0E000AFBE81CFD8FCFEFEFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFB8D4D80093A300CCDD00D9F000E2F200D3E300C4D706BDCCD3F3F5
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFF9FBFB41A9B810BCCE6BE4EF16C7D900CADC83E3EC93
        E2ED87E4EBE9FBFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFCFDC5E9EDD1F7FAFFFFFFD4F2
        F3C4EFF3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFF}
    end
  end
  object Memo1: TMemo
    Left = 64
    Top = 24
    Width = 281
    Height = 65
    BorderStyle = bsNone
    Color = clBtnFace
    Lines.Strings = (
      'This component will allow you to make any program '
      'that you distribute a SHAREWARE program for an '
      'specified number of days, also you can use this '
      'component to limitate your software like in DEMO '
      'program.')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 64
    Top = 112
    Width = 281
    Height = 65
    BorderStyle = bsNone
    Color = clBtnFace
    Lines.Strings = (
      'TTrialSoftware 1.6 LITE is FREEWARE.'
      ''
      'You can use it in your commercial program without '
      'buy it, but I should know when you use my '
      'component in your program and where I can '
      'download it (thank you).'
      ''
      'ATTENTION: I cannot accept any responsibility for '
      'any damages, losses, etc. caused by '
      'this component.')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 192
    Width = 337
    Height = 137
    Caption = 'Example'
    TabOrder = 3
    object Label3: TLabel
      Left = 88
      Top = 24
      Width = 215
      Height = 13
      Caption = 'You can use my key-generator to register this '
    end
    object Label4: TLabel
      Left = 88
      Top = 37
      Width = 128
      Height = 13
      Caption = 'demo (variable = TrialTest).'
    end
    object Label5: TLabel
      Left = 88
      Top = 64
      Width = 216
      Height = 13
      Caption = 'Try to press this button befor and after register'
    end
    object Label6: TLabel
      Left = 88
      Top = 77
      Width = 48
      Height = 13
      Caption = 'this demo.'
    end
    object Label7: TLabel
      Left = 88
      Top = 104
      Width = 74
      Height = 13
      Caption = 'This program is:'
    end
    object Label8: TLabel
      Left = 168
      Top = 104
      Width = 29
      Height = 13
      Caption = 'none'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Button2: TButton
      Left = 8
      Top = 24
      Width = 73
      Height = 25
      Caption = 'Register'
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 8
      Top = 64
      Width = 73
      Height = 25
      Caption = 'Shareware'
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 104
      Width = 73
      Height = 25
      Caption = 'Update Status'
      TabOrder = 2
      OnClick = Button4Click
    end
  end
  object Button1: TButton
    Left = 272
    Top = 336
    Width = 73
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = Button1Click
  end
  object TrialSoftware1: TTrialSoftware
    TrialClose = True
    Times = 20
    TrialType = ttDays
    EMail = '[e-mail]'
    HomePage = 'http://utenti.tripod.it/martinsoft/index.htm'
    Variable = 'TrialTest'
    UserName = 'Martin'
    Days = 20
    SoftwareType = wtTrial
    UserNameEnabled = True
    ShowWindowTrial = True
    OrderNowVisible = True
    ApplicationName = 'Demo1'
    SoftwareHouse = 'Martin Software'
    Left = 8
    Top = 40
  end
end