main.dfm

用DLL文件的形式挂载键盘与鼠标钩子的例子

object Form1: TForm1
  Left = 279
  Top = 204
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 247
  ClientWidth = 412
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Trebuchet MS'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 18
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 393
    Height = 105
    Caption = 'Mouse'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 48
      Height = 18
      Caption = 'Position:'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 45
      Height = 18
      Caption = 'Click at:'
    end
    object btStartMouse: TButton
      Left = 8
      Top = 72
      Width = 73
      Height = 25
      Caption = 'Start'
      TabOrder = 0
      OnClick = btStartMouseClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 128
    Width = 393
    Height = 105
    Caption = 'Keyboard'
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 234
      Height = 18
      Caption = 'Press ESC key to test the keyboard hook !'
    end
    object btStartKeyboard: TButton
      Left = 8
      Top = 72
      Width = 73
      Height = 25
      Caption = 'Start'
      TabOrder = 0
      OnClick = btStartKeyboardClick
    end
  end
end