MessageBox из Winlogon'а

Недавно, в ответ на один из топиков на ВБСтритс, я написал програмку, перехватывающую в Винлогоне CTRL+ALT+DELETE. При перехвате, перед передачей управления настоящей оконной функции я вызываю MessageBox, дабы показать, что кто-то давит три клавиши. Вся проблема в том, что у меня на работе, где стоит WinXP SP2 home, все отлично работает. А дома, на WinXP SP1 professional, MessageBox не выводится. Потрейсил Винлогон в том месте - оказывается, что вызов MessageBoxA происходит, но в ее недрах что-то не так срабатывает и до MessageBoxIndirect дело не доходит. Может кто подскажет, в чем может быть дело? Вот код внедряемой в Винлогон либы:

Код (Text):

1. library cad_hook_dll;
2.  
3. uses
4.   Windows, Messages;
5.  
6. var
7.   lpOldSASProc: pointer;
8.   hwSAS: DWORD;
9.  
10. {$R *.res}
11.  
12. function NewSASProc(hSAS, uMsg, wParam, lParam: DWORD): DWORD; stdcall;
13. begin
14. if uMsg = WM_HOTKEY then
15.   //Если нажата комбинация клавиш ALT+CTRL+DELETE
16.   if lParam = DWORD(MAKELONG(MOD_CONTROL or MOD_ALT, VK_DELETE)) then
17.     MessageBox(GetActiveWindow, 'Кто-то давит ALT+CTRL+DELETE', 'SAS-хук',
18.                MB_ICONINFORMATION + MB_DEFAULT_DESKTOP_ONLY)
19.   //Если нажата комбинация клавиш CTRL+SHIFT+ESCAPE
20.   else if lParam = DWORD(MAKELONG(MOD_CONTROL or MOD_SHIFT, VK_ESCAPE)) then
21.     MessageBox(GetActiveWindow, 'Кто-то давит CTRL+SHIFT+ESCAPE', 'SAS-хук',
22.                MB_ICONINFORMATION + MB_DEFAULT_DESKTOP_ONLY);
23. result := CallWindowProc(lpOldSASProc, hSAS, uMsg, wParam, lParam);
24. end;
25.  
26. begin
27. hwSAS := FindWindow('SAS Window class', 'SAS window');
28. if hwSAS <> 0 then
29.   lpOldSASProc := pointer(SetWindowLong(hwSAS, GWL_WNDPROC, DWORD(@NewSASProc)));
30. MessageBox(GetActiveWindow, 'Сообщение из Winlogon''а', 'Мы здесь!',
31.            MB_ICONINFORMATION + MB_DEFAULT_DESKTOP_ONLY);
32. end.

 

Совсем забыл добавить - первый MessageBox, который выскакивает при загрузке либы, отрабатывает нормально, то бишь выводится...

 

Twister
внимательно смотри на http://irazin.ru/samples/sashook.htm

хотя... у тебя почти то же самое

 

При написании я опирался именно на этот код.
Проблема не в хуке - все прекрасно перехватывается.
Проблема в MessabeBox'e, который срабатывает когда хочет... (

 

getactivewindow настораживает меня, может поставить 0 просто для пробы?

 

Мы с тобой думаем в одном направлении - при отладке Винлогона я первым делом проверил, что возвращает GetActiveWindow. Вроде все в норме.
На этой страничке лежит файл cad_hook.rar. Можешь потестить у себя?

 

У меня работает. WXPSP2Eng Prof Version 2002

 

sp1 у меян нет.

 

Скорее всего, это баг SP1. Нужно дождаться того, у кого он есть и еще потестить.

 

Если сильно надо, выложи бинарник.
Есть SP1, нету делфи.

 

http://twister.orgfree.com/sources/cad_hook.rar

 

Помогите пожалуйста дописать код подовления alt+tab , ctr+esc ,alt+f4 или игнорировать нажатие клавиш SHIFT, CTR, ESC, ALT, и клавиши виндовс. Горит дипломка, все работает осталось только cad отключить.

 

дипломка)) чёто больше похоже на sms-locker) Срочно вернитесь в школу пока не сгорели..

 

да нет, у меня действительно дипломка. У меня тут тема http://www.delphisources.ru/forum/showthread.php?p=31700#post31700 Сейчас отключает CTRL+ALT+DEL и CTRL+ALT+ESC, а ALT+TAB и клавишу windows не получается.

 

Zveros
> код подовления alt+tab , ctr+esc
DisableLowLevelKeys.cpp, Written 2000 Jeffrey Richter

 

q_q: Спасибо, все заработало.