同上
解决方案 »
- IdFTP控件,这函数怎么调用???看不懂
- Delphi如何读取VB的Form文件并创建窗体
- [散分]笔记本丢了,女朋友终于说我在乎她比在乎笔记本多了
- 关于LISTVIEW 选中项的双击问题 分不够我再加哦
- ValueListEditor问题(急!!!)
- 在查询数据库是只显示100条记录?谢谢大家,给贴有分!
- 一个很不错的学习资料网站,有很多教学视频资料下载,晚了就没了.
- 如何用dephi实现sql的数据表自动导出成dbf数据库?
- 如何把double类型的小数点控制在两位,而不出现类似9.8999999999这样的数。
- 有关TTreeView的问题
- 请教关于NMPOP31下载邮件的问题(有源程序)?
- ADODataSet中可不可以使用Update语句。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;STDCALL;
var
Form1: TForm1;
WinHook: HHOOK;
implementation{$R *.dfm}function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;begin
if (nCode>-1) then
begin
if wparam=VK_SHIFT then
showmessage('your press the shift');
result:=0;
end
else
Result := CallNextHookEx(WinHook, nCode, wParam, lParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WinHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, 0, GetCurrentThreadID);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnhookWindowsHookEx(WinHook);
end;end.
键盘钩子