使用SetwindowsHookEx的问题(50分)

function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
begin
Result:=1;
end;

iWordThreadId是我获取被打开的word文档
SetwindowsHookEx(WH_KEYBOARD,HookProc,HInstance,iWordThreadId);
执行完这句话，我另外打开一个word文档、晕、这个新打开的文档的键盘操作也被禁止了，不知道哪位大哥能给个解决办法！

你HOOK了键盘当然所有的都禁止了。
var
a: DOWRD
begin
a := SetwindowsHookEx(WH_KEYBOARD,HookProc,HInstance,iWordThreadId);
//进行相关操作
a = UnhookWindowsHookEx(a);
end;

其实我发现调用OLE之前，外部先启动了word，那就不会出现刚刚这个问题，呵呵，奇怪的很！