<acronym id="xonnx"></acronym>
      <td id="xonnx"></td>
    1. <pre id="xonnx"></pre>

      1. 專注電子技術學習與研究
        當前位置:單片機教程網 >> MCU設計實例 >> 瀏覽文章

        delphi鍵盤鉤子(按鍵攔截程序源代碼)

        作者:佚名   來源:本站原創   點擊數:  更新時間:2014年04月18日   【字體:

        源碼下載: http://www.thefapper.com/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        

        關閉窗口

        相關文章

        欧美性色欧美精品视频,99热这里只有精品mp4,日韩高清亚洲日韩精品一区二区,2020国自产拍精品高潮