Remove the win32 debug channel, misc cleanup of debugging code.
[wine/dcerpc.git] / dlls / user / hook.c
blob87b7de9b5e43e111e5a8389c1705ba90f41764a5
1 /*
2 * Windows hook functions
4 * Copyright 2002 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 * NOTES:
21 * Status of the various hooks:
22 * WH_MSGFILTER OK
23 * WH_JOURNALRECORD Partially implemented
24 * WH_JOURNALPLAYBACK Partially implemented
25 * WH_KEYBOARD OK
26 * WH_GETMESSAGE OK (FIXME: A/W mapping?)
27 * WH_CALLWNDPROC OK (FIXME: A/W mapping?)
28 * WH_CBT
29 * HCBT_MOVESIZE OK
30 * HCBT_MINMAX OK
31 * HCBT_QS OK
32 * HCBT_CREATEWND OK
33 * HCBT_DESTROYWND OK
34 * HCBT_ACTIVATE OK
35 * HCBT_CLICKSKIPPED OK
36 * HCBT_KEYSKIPPED OK
37 * HCBT_SYSCOMMAND Not implemented
38 * HCBT_SETFOCUS OK
39 * WH_SYSMSGFILTER OK
40 * WH_MOUSE OK
41 * WH_HARDWARE Not supported in Win32
42 * WH_DEBUG Not implemented
43 * WH_SHELL
44 * HSHELL_WINDOWCREATED OK
45 * HSHELL_WINDOWDESTROYED OK
46 * HSHELL_ACTIVATESHELLWINDOW Not implemented
47 * HSHELL_WINDOWACTIVATED Not implemented
48 * HSHELL_GETMINRECT Not implemented
49 * HSHELL_REDRAW Not implemented
50 * HSHELL_TASKMAN Not implemented
51 * HSHELL_LANGUAGE Not implemented
52 * HSHELL_SYSMENU Not implemented
53 * HSHELL_ENDTASK Not implemented
54 * HSHELL_ACCESSIBILITYSTATE Not implemented
55 * HSHELL_APPCOMMAND Not implemented
56 * HSHELL_WINDOWREPLACED Not implemented
57 * HSHELL_WINDOWREPLACING Not implemented
58 * WH_FOREGROUNDIDLE Not implemented
59 * WH_CALLWNDPROCRET OK (FIXME: A/W mapping?)
60 * WH_KEYBOARD_LL Implemented but should use SendMessage instead
61 * WH_MOUSE_LL Implemented but should use SendMessage instead
64 #include "config.h"
65 #include "wine/port.h"
67 #include <stdarg.h>
69 #include "windef.h"
70 #include "winbase.h"
71 #include "winuser.h"
72 #include "winerror.h"
73 #include "heap.h"
74 #include "message.h"
75 #include "win.h"
76 #include "wine/server.h"
77 #include "wine/unicode.h"
78 #include "wine/debug.h"
79 #include "winternl.h"
81 WINE_DEFAULT_DEBUG_CHANNEL(hook);
82 WINE_DECLARE_DEBUG_CHANNEL(relay);
84 static const char * const hook_names[WH_MAXHOOK - WH_MINHOOK + 1] =
86 "WH_MSGFILTER",
87 "WH_JOURNALRECORD",
88 "WH_JOURNALPLAYBACK",
89 "WH_KEYBOARD",
90 "WH_GETMESSAGE",
91 "WH_CALLWNDPROC",
92 "WH_CBT",
93 "WH_SYSMSGFILTER",
94 "WH_MOUSE",
95 "WH_HARDWARE",
96 "WH_DEBUG",
97 "WH_SHELL",
98 "WH_FOREGROUNDIDLE",
99 "WH_CALLWNDPROCRET",
100 "WH_KEYBOARD_LL",
101 "WH_MOUSE_LL"
105 /***********************************************************************
106 * get_ll_hook_timeout
109 static UINT get_ll_hook_timeout(void)
111 /* FIXME: should retrieve LowLevelHooksTimeout in HKEY_CURRENT_USER\Control Panel\Desktop */
112 return 2000;
116 /***********************************************************************
117 * set_windows_hook
119 * Implementation of SetWindowsHookExA and SetWindowsHookExW.
121 static HHOOK set_windows_hook( INT id, HOOKPROC proc, HINSTANCE inst, DWORD tid, BOOL unicode )
123 HHOOK handle = 0;
124 WCHAR module[MAX_PATH];
126 if (tid) /* thread-local hook */
128 if (id == WH_JOURNALRECORD ||
129 id == WH_JOURNALPLAYBACK ||
130 id == WH_KEYBOARD_LL ||
131 id == WH_MOUSE_LL ||
132 id == WH_SYSMSGFILTER)
134 /* these can only be global */
135 SetLastError( ERROR_INVALID_PARAMETER );
136 return 0;
138 inst = 0;
140 else /* system-global hook */
142 if (id == WH_KEYBOARD_LL || id == WH_MOUSE_LL) inst = 0;
143 else if (!inst || !GetModuleFileNameW( inst, module, MAX_PATH ))
145 SetLastError( ERROR_INVALID_PARAMETER );
146 return 0;
150 SERVER_START_REQ( set_hook )
152 req->id = id;
153 req->tid = tid;
154 req->unicode = unicode;
155 if (inst) /* make proc relative to the module base */
157 req->proc = (void *)((char *)proc - (char *)inst);
158 wine_server_add_data( req, module, strlenW(module) * sizeof(WCHAR) );
160 else req->proc = proc;
162 if (!wine_server_call_err( req )) handle = reply->handle;
164 SERVER_END_REQ;
166 TRACE( "%s %p %lx -> %p\n", hook_names[id-WH_MINHOOK], proc, tid, handle );
167 return handle;
171 /***********************************************************************
172 * call_hook_AtoW
174 static LRESULT call_hook_AtoW( HOOKPROC proc, INT id, INT code, WPARAM wparam, LPARAM lparam )
176 LRESULT ret;
177 UNICODE_STRING usBuffer;
178 if (id != WH_CBT || code != HCBT_CREATEWND) ret = proc( code, wparam, lparam );
179 else
181 CBT_CREATEWNDA *cbtcwA = (CBT_CREATEWNDA *)lparam;
182 CBT_CREATEWNDW cbtcwW;
183 CREATESTRUCTW csW;
185 cbtcwW.lpcs = &csW;
186 cbtcwW.hwndInsertAfter = cbtcwA->hwndInsertAfter;
187 csW = *(CREATESTRUCTW *)cbtcwA->lpcs;
189 if (HIWORD(cbtcwA->lpcs->lpszName))
191 RtlCreateUnicodeStringFromAsciiz(&usBuffer,cbtcwA->lpcs->lpszName);
192 csW.lpszName = usBuffer.Buffer;
194 if (HIWORD(cbtcwA->lpcs->lpszClass))
196 RtlCreateUnicodeStringFromAsciiz(&usBuffer,cbtcwA->lpcs->lpszClass);
197 csW.lpszClass = usBuffer.Buffer;
199 ret = proc( code, wparam, (LPARAM)&cbtcwW );
200 cbtcwA->hwndInsertAfter = cbtcwW.hwndInsertAfter;
201 if (HIWORD(csW.lpszName)) HeapFree( GetProcessHeap(), 0, (LPWSTR)csW.lpszName );
202 if (HIWORD(csW.lpszClass)) HeapFree( GetProcessHeap(), 0, (LPWSTR)csW.lpszClass );
204 return ret;
208 /***********************************************************************
209 * call_hook_WtoA
211 static LRESULT call_hook_WtoA( HOOKPROC proc, INT id, INT code, WPARAM wparam, LPARAM lparam )
213 LRESULT ret;
215 if (id != WH_CBT || code != HCBT_CREATEWND) ret = proc( code, wparam, lparam );
216 else
218 CBT_CREATEWNDW *cbtcwW = (CBT_CREATEWNDW *)lparam;
219 CBT_CREATEWNDA cbtcwA;
220 CREATESTRUCTA csA;
222 cbtcwA.lpcs = &csA;
223 cbtcwA.hwndInsertAfter = cbtcwW->hwndInsertAfter;
224 csA = *(CREATESTRUCTA *)cbtcwW->lpcs;
226 if (HIWORD(cbtcwW->lpcs->lpszName))
227 csA.lpszName = HEAP_strdupWtoA( GetProcessHeap(), 0, cbtcwW->lpcs->lpszName );
228 if (HIWORD(cbtcwW->lpcs->lpszClass))
229 csA.lpszClass = HEAP_strdupWtoA( GetProcessHeap(), 0, cbtcwW->lpcs->lpszClass );
230 ret = proc( code, wparam, (LPARAM)&cbtcwA );
231 cbtcwW->hwndInsertAfter = cbtcwA.hwndInsertAfter;
232 if (HIWORD(csA.lpszName)) HeapFree( GetProcessHeap(), 0, (LPSTR)csA.lpszName );
233 if (HIWORD(csA.lpszClass)) HeapFree( GetProcessHeap(), 0, (LPSTR)csA.lpszClass );
235 return ret;
239 /***********************************************************************
240 * call_hook
242 static LRESULT call_hook( HOOKPROC proc, INT id, INT code, WPARAM wparam, LPARAM lparam,
243 BOOL prev_unicode, BOOL next_unicode )
245 LRESULT ret;
247 if (TRACE_ON(relay))
248 DPRINTF( "%04lx:Call hook proc %p (id=%s,code=%x,wp=%08x,lp=%08lx)\n",
249 GetCurrentThreadId(), proc, hook_names[id-WH_MINHOOK], code, wparam, lparam );
251 if (!prev_unicode == !next_unicode) ret = proc( code, wparam, lparam );
252 else if (prev_unicode) ret = call_hook_WtoA( proc, id, code, wparam, lparam );
253 else ret = call_hook_AtoW( proc, id, code, wparam, lparam );
255 if (TRACE_ON(relay))
256 DPRINTF( "%04lx:Ret hook proc %p (id=%s,code=%x,wp=%08x,lp=%08lx) retval=%08lx\n",
257 GetCurrentThreadId(), proc, hook_names[id-WH_MINHOOK], code, wparam, lparam, ret );
259 return ret;
263 /***********************************************************************
264 * get_hook_proc
266 * Retrieve the hook procedure real value for a module-relative proc
268 static HOOKPROC get_hook_proc( HOOKPROC proc, const WCHAR *module )
270 HMODULE mod;
272 if (!(mod = GetModuleHandleW(module)))
274 TRACE( "loading %s\n", debugstr_w(module) );
275 /* FIXME: the library will never be freed */
276 if (!(mod = LoadLibraryW(module))) return NULL;
278 return (HOOKPROC)((char *)mod + (ULONG_PTR)proc);
282 /***********************************************************************
283 * HOOK_CallHooks
285 LRESULT HOOK_CallHooks( INT id, INT code, WPARAM wparam, LPARAM lparam, BOOL unicode )
287 MESSAGEQUEUE *queue = QUEUE_Current();
288 HOOKPROC proc = NULL;
289 HHOOK handle = 0;
290 DWORD pid = 0, tid = 0;
291 WCHAR module[MAX_PATH];
292 BOOL unicode_hook = FALSE;
293 LRESULT ret = 0;
295 if (!queue) return 0;
296 SERVER_START_REQ( start_hook_chain )
298 req->id = id;
299 wine_server_set_reply( req, module, sizeof(module)-sizeof(WCHAR) );
300 if (!wine_server_call( req ))
302 module[wine_server_reply_size(req) / sizeof(WCHAR)] = 0;
303 handle = reply->handle;
304 proc = reply->proc;
305 pid = reply->pid;
306 tid = reply->tid;
307 unicode_hook = reply->unicode;
310 SERVER_END_REQ;
312 if (tid)
314 TRACE( "calling hook in thread %04lx %s code %x wp %x lp %lx\n",
315 tid, hook_names[id-WH_MINHOOK], code, wparam, lparam );
317 switch(id)
319 case WH_KEYBOARD_LL:
320 MSG_SendInternalMessageTimeout( pid, tid, WM_WINE_KEYBOARD_LL_HOOK, wparam, lparam,
321 SMTO_ABORTIFHUNG, get_ll_hook_timeout(), &ret );
322 break;
323 case WH_MOUSE_LL:
324 MSG_SendInternalMessageTimeout( pid, tid, WM_WINE_MOUSE_LL_HOOK, wparam, lparam,
325 SMTO_ABORTIFHUNG, get_ll_hook_timeout(), &ret );
326 break;
329 else if (proc)
331 TRACE( "calling hook %p %s code %x wp %x lp %lx module %s\n",
332 proc, hook_names[id-WH_MINHOOK], code, wparam, lparam, debugstr_w(module) );
334 if (!module[0] || (proc = get_hook_proc( proc, module )) != NULL)
336 int locks = WIN_SuspendWndsLock();
337 HHOOK prev = queue->hook;
338 queue->hook = handle;
339 ret = call_hook( proc, id, code, wparam, lparam, unicode, unicode_hook );
340 queue->hook = prev;
341 WIN_RestoreWndsLock( locks );
345 else return 0;
347 SERVER_START_REQ( finish_hook_chain )
349 req->id = id;
350 wine_server_call( req );
352 SERVER_END_REQ;
353 return ret;
357 /***********************************************************************
358 * HOOK_IsHooked
360 BOOL HOOK_IsHooked( INT id )
362 return TRUE; /* FIXME */
366 /***********************************************************************
367 * SetWindowsHookA (USER32.@)
369 HHOOK WINAPI SetWindowsHookA( INT id, HOOKPROC proc )
371 return SetWindowsHookExA( id, proc, 0, GetCurrentThreadId() );
375 /***********************************************************************
376 * SetWindowsHookW (USER32.@)
378 HHOOK WINAPI SetWindowsHookW( INT id, HOOKPROC proc )
380 return SetWindowsHookExW( id, proc, 0, GetCurrentThreadId() );
384 /***********************************************************************
385 * SetWindowsHookExA (USER32.@)
387 HHOOK WINAPI SetWindowsHookExA( INT id, HOOKPROC proc, HINSTANCE inst, DWORD tid )
389 return set_windows_hook( id, proc, inst, tid, FALSE );
392 /***********************************************************************
393 * SetWindowsHookExW (USER32.@)
395 HHOOK WINAPI SetWindowsHookExW( INT id, HOOKPROC proc, HINSTANCE inst, DWORD tid )
397 return set_windows_hook( id, proc, inst, tid, TRUE );
401 /***********************************************************************
402 * UnhookWindowsHook (USER32.@)
404 BOOL WINAPI UnhookWindowsHook( INT id, HOOKPROC proc )
406 BOOL ret;
408 TRACE( "%s %p\n", hook_names[id-WH_MINHOOK], proc );
410 SERVER_START_REQ( remove_hook )
412 req->handle = 0;
413 req->id = id;
414 req->proc = proc;
415 ret = !wine_server_call_err( req );
417 SERVER_END_REQ;
418 return ret;
423 /***********************************************************************
424 * UnhookWindowsHookEx (USER32.@)
426 BOOL WINAPI UnhookWindowsHookEx( HHOOK hhook )
428 BOOL ret;
430 TRACE( "%p\n", hhook );
432 SERVER_START_REQ( remove_hook )
434 req->handle = hhook;
435 ret = !wine_server_call_err( req );
437 SERVER_END_REQ;
438 return ret;
442 /***********************************************************************
443 * CallNextHookEx (USER32.@)
445 LRESULT WINAPI CallNextHookEx( HHOOK hhook, INT code, WPARAM wparam, LPARAM lparam )
447 MESSAGEQUEUE *queue = QUEUE_Current();
448 HOOKPROC proc = NULL;
449 WCHAR module[MAX_PATH];
450 HHOOK handle = 0;
451 DWORD pid = 0, tid = 0;
452 INT id = 0;
453 BOOL prev_unicode = FALSE, next_unicode = FALSE;
454 LRESULT ret = 0;
456 if (!queue) return 0;
458 SERVER_START_REQ( get_next_hook )
460 req->handle = queue->hook;
461 wine_server_set_reply( req, module, sizeof(module)-sizeof(WCHAR) );
462 if (!wine_server_call_err( req ))
464 module[wine_server_reply_size(req) / sizeof(WCHAR)] = 0;
465 handle = reply->next;
466 id = reply->id;
467 pid = reply->pid;
468 tid = reply->tid;
469 proc = reply->proc;
470 prev_unicode = reply->prev_unicode;
471 next_unicode = reply->next_unicode;
474 SERVER_END_REQ;
476 if (tid)
478 TRACE( "calling hook in thread %04lx %s code %x wp %x lp %lx\n",
479 tid, hook_names[id-WH_MINHOOK], code, wparam, lparam );
481 switch(id)
483 case WH_KEYBOARD_LL:
484 MSG_SendInternalMessageTimeout( pid, tid, WM_WINE_KEYBOARD_LL_HOOK, wparam, lparam,
485 SMTO_ABORTIFHUNG, get_ll_hook_timeout(), &ret );
486 break;
487 case WH_MOUSE_LL:
488 MSG_SendInternalMessageTimeout( pid, tid, WM_WINE_MOUSE_LL_HOOK, wparam, lparam,
489 SMTO_ABORTIFHUNG, get_ll_hook_timeout(), &ret );
490 break;
493 else if (proc)
495 TRACE( "calling hook %p %s code %x wp %x lp %lx module %s\n",
496 proc, hook_names[id-WH_MINHOOK], code, wparam, lparam, debugstr_w(module) );
498 if (!module[0] || (proc = get_hook_proc( proc, module )) != NULL)
500 HHOOK prev = queue->hook;
501 queue->hook = handle;
502 ret = call_hook( proc, id, code, wparam, lparam, prev_unicode, next_unicode );
503 queue->hook = prev;
506 return ret;
510 /***********************************************************************
511 * CallMsgFilterA (USER32.@)
513 BOOL WINAPI CallMsgFilterA( LPMSG msg, INT code )
515 if (HOOK_CallHooks( WH_SYSMSGFILTER, code, 0, (LPARAM)msg, FALSE )) return TRUE;
516 return HOOK_CallHooks( WH_MSGFILTER, code, 0, (LPARAM)msg, FALSE );
520 /***********************************************************************
521 * CallMsgFilterW (USER32.@)
523 BOOL WINAPI CallMsgFilterW( LPMSG msg, INT code )
525 if (HOOK_CallHooks( WH_SYSMSGFILTER, code, 0, (LPARAM)msg, TRUE )) return TRUE;
526 return HOOK_CallHooks( WH_MSGFILTER, code, 0, (LPARAM)msg, TRUE );
530 /***********************************************************************
531 * SetWinEventHook [USER32.@]
533 * Set up an event hook for a set of events.
535 * PARAMS
536 * dwMin [I] Lowest event handled by pfnProc
537 * dwMax [I] Highest event handled by pfnProc
538 * hModule [I] DLL containing pfnProc
539 * pfnProc [I] Callback event hook function
540 * dwProcess [I] Process to get events from, or 0 for all processes
541 * dwThread [I] Thread to get events from, or 0 for all threads
542 * dwFlags [I] Flags indicating the status of pfnProc
544 * RETURNS
545 * Success: A handle representing the hook.
546 * Failure: A NULL handle.
548 * BUGS
549 * Not implemented.
551 HWINEVENTHOOK WINAPI SetWinEventHook(DWORD dwMin, DWORD dwMax, HMODULE hModule,
552 WINEVENTPROC pfnProc, DWORD dwProcess,
553 DWORD dwThread, DWORD dwFlags)
555 FIXME("(%ld,%ld,%p,%p,%ld,%ld,0x%08lx)-stub!\n", dwMin, dwMax, hModule,
556 pfnProc, dwProcess, dwThread, dwFlags);
557 return 0;
561 /***********************************************************************
562 * UnhookWinEvent [USER32.@]
564 * Remove an event hook for a set of events.
566 * PARAMS
567 * hEventHook [I] Event hook to remove
569 * RETURNS
570 * Success: TRUE. The event hook has been removed.
571 * Failure: FALSE, if hEventHook is invalid.
573 * BUGS
574 * Not implemented.
576 BOOL WINAPI UnhookWinEvent(HWINEVENTHOOK hEventHook)
578 FIXME("(%p)-stub!\n", hEventHook);
580 return (hEventHook != 0);
584 /***********************************************************************
585 * NotifyWinEvent [USER32.@]
587 * Inform the OS that an event has occurred.
589 * PARAMS
590 * dwEvent [I] Id of the event
591 * hWnd [I] Window holding the object that created the event
592 * nId [I] Type of object that created the event
593 * nChildId [I] Child object of nId, or CHILDID_SELF.
595 * RETURNS
596 * Nothing.
598 * BUGS
599 * Not implemented.
601 void WINAPI NotifyWinEvent(DWORD dwEvent, HWND hWnd, LONG nId, LONG nChildId)
603 FIXME("(%ld,%p,%ld,%ld)-stub!\n", dwEvent, hWnd, nId, nChildId);
607 /***********************************************************************
608 * IsWinEventHookInstalled [USER32.@]
610 * Determine if an event hook is installed for an event.
612 * PARAMS
613 * dwEvent [I] Id of the event
615 * RETURNS
616 * TRUE, If there are any hooks installed for the event.
617 * FALSE, Otherwise.
619 * BUGS
620 * Not implemented.
622 BOOL WINAPI IsWinEventHookInstalled(DWORD dwEvent)
624 FIXME("(%ld)-stub!\n", dwEvent);
625 return TRUE;