ushellhookdemo.dfm

键盘钩子程序及控件, C++ Builder 和DELPHI可用

object FMain: TFMain
  Left = 272
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TCPShellHook Demo Version 1.1'
  ClientHeight = 445
  ClientWidth = 556
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lb_userhookmsg: TLabel
    Left = 252
    Top = 51
    Width = 69
    Height = 13
    Caption = 'UserHookMsg:'
  end
  object lb_windowhandle: TLabel
    Left = 366
    Top = 51
    Width = 75
    Height = 13
    Caption = 'WindowHandle:'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 556
    Height = 37
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 6
      Top = 9
      Width = 190
      Height = 19
      Caption = 'Shell Application Monitor'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Aari'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 301
      Top = 12
      Width = 246
      Height = 14
      Alignment = taRightJustify
      Caption = 'An Example using the TCPShellHook Class and DLL'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object btn_starthook: TButton
    Left = 6
    Top = 45
    Width = 110
    Height = 25
    Caption = 'Start ShellHook'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = btn_starthookClick
  end
  object btn_stophook: TButton
    Left = 120
    Top = 45
    Width = 110
    Height = 25
    Caption = 'Stop ShellHook'
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = btn_stophookClick
  end
  object GroupBox1: TGroupBox
    Left = 6
    Top = 384
    Width = 541
    Height = 55
    Caption = 'Developer Contact Information'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object lwebpage: TLabel
      Left = 19
      Top = 25
      Width = 140
      Height = 14
      Cursor = crHandPoint
      Caption = 'Web: www.bitlogic.co.uk'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lwebpageClick
    end
    object lemail: TLabel
      Left = 199
      Top = 26
      Width = 190
      Height = 14
      Cursor = crHandPoint
      Caption = 'Email: [e-mail]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lemailClick
    end
  end
  object loglist: TListView
    Left = 6
    Top = 78
    Width = 541
    Height = 301
    Columns = <
      item
        Caption = 'Event Type'
        Width = 100
      end
      item
        Caption = 'Window ID'
        Width = 70
      end
      item
        Caption = 'Window Title'
        Width = 160
      end
      item
        Caption = 'Process ID'
        Width = 70
      end
      item
        AutoSize = True
        Caption = 'Process FileName'
      end>
    ColumnClick = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    GridLines = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    SmallImages = ImageList1
    TabOrder = 4
    ViewStyle = vsReport
  end
  object ImageList1: TImageList
    Left = 468
    Top = 42
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000