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