unit1.dfm.~46~

全局快捷键的示例 采用EnumWindows使进程唯一,设置全局快捷键

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'BossX'
  ClientHeight = 506
  ClientWidth = 649
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 399
    Top = 226
    Width = 56
    Height = 23
    Caption = 'ALT+A'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object ListView1: TListView
    Left = 16
    Top = 51
    Width = 377
    Height = 198
    Columns = <
      item
        Caption = 'Caption'
        Width = 150
      end
      item
        Caption = 'HandleID'
        Width = 100
      end>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object GetAllWindow: TButton
    Left = 16
    Top = 20
    Width = 377
    Height = 25
    Caption = 'GetAllWindow'
    TabOrder = 1
    OnClick = GetAllWindowClick
  end
  object Button1: TButton
    Left = 399
    Top = 83
    Width = 114
    Height = 25
    Caption = 'Show/Hide Windows'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 399
    Top = 168
    Width = 114
    Height = 25
    Caption = 'Delete'
    TabOrder = 3
    OnClick = Button2Click
  end
  object PopupMenu1: TPopupMenu
    Left = 488
    Top = 216
    object N1: TMenuItem
      Caption = 'Show'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = 'Hide'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = 'Quit'
      OnClick = N3Click
    end
  end
end