源碼下載: http://www.zg4o1577.cn/f/delphigoujiapan.rar
超強悍的delphi鍵盤鉤子 說明
本軟件可以截獲幾乎所有鍵值，例如：shift+?，ctrl+？，alt+？，F1~F12，shift或者ctrl或者alt + F1~F12，單獨的 shift、ctrl、alt 鍵值，特殊鍵ins、del、caps lock、num lock、小鍵盤數字 等等，你只要稍作修改，也可以截獲 ctrl+alt+？等鍵值，沒有截獲不到的鍵值，本程序不使用dll方式，使用常規方式，方便你編譯調試修改，支持xp、vista、win7，是最強悍的鍵盤鉤子控件， 本軟件在delphi7下通過。
使用方法：
先點擊 按鈕 【安裝鍵盤鉤子】，然后memo編輯框就開始顯示所有的系統鍵盤消息了， 在 memo編輯框的onChange事件中編寫自己的 鍵盤消息接受主控制過程，其中 字符串mypresschar 返回總鍵值，它跟memo編輯框中顯示值是一樣的 ，例如 g、shift+g、ctrl+2、F9、alt+F9、 等等，其中 字符串shiftstr 返回 控制鍵 shift ctrl alt 的狀態，例如按下ctrl，則 shiftstr=‘ctrl’ ，否則=''。
安裝方法：
本控件的核心源代碼在 unit2
首先 創建調用主窗體，假定是form1，在form1上放一個 memo控件（必須），然后創建一個新單元 如unit2，把我的unit2 單元的源代碼全部復制過去，做以下修改，首先確保form1使用 新單元 如unit2，并且unit2也使用form1。
在新單元unit2中 ，找到 函數 function KeyBHkHandle 過程，在其中找到以下兩條語句：
// 在這里根據自己的情況修改
form1.Memo1.Lines.Add(mypresschar);
// 在這里根據自己的情況修改
if mypresschar<>'' then form1.Memo1.Lines.Add(mypresschar);
如果你的調用主窗體就叫form1，則不用修改，否則把這兩條語句的form1修改為你的調用主窗體的名字。
在 memo編輯框的onChange事件中編寫自己的 鍵盤消息接受主控制過程，其中 字符串mypresschar 返回總鍵值，它跟memo編輯框中顯示值是一樣的 ，例如 g、shift+g、ctrl+2、F9、alt+F9、 等等，其中 字符串shiftstr 返回 控制鍵 shift ctrl alt 的狀態，例如按下ctrl，則 shiftstr=‘ctrl’ ，否則=''。
最后不要忘記在程序退出時卸載鍵盤鉤子！
我的郵件地址：
wanglinyun1@sina.com
王凌云
2010-06-16