又一个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下通过。 　　myshiftchar:string;//返回shift状态 例如 ctrl