WH_CBT. Почему не работает? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.223.196.211]

Правила раздела C/C++: Системное программирование и WinAPI

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются.
4. Используйте теги [ code=cpp ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Старайтесь формулировать свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной и более давности без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта (C++) user posted image

FAQ Форума

Наши Исходники user posted image

Поиск по Разделу user posted image

MSDN Library Online (Windows Driver Kit) user posted image

Google

Ваше мнение о модераторах: user posted image

B.V.

Модераторы: B.V.

Новое голосование

WH_CBT. Почему не работает?

Song

Сообщ. #1 , 12.04.03, 11:51

Unregistered

Dpr:

program MainUnit; Uses Windows,SysUtils; type MyProcType = procedure (Flag: Boolean); stdcall; Var Hook: MyProcType; HDLL:HWND; begin @Hook:=nil; HDLL:=LoadLibrary(PChar('HPPCloser.dll')); IF HDLL>HINSTANCE_ERROR then Begin @Hook:=GetProcAddress(HDLL,'Hook'); Hook(True); End else MessageBox(0,'Error loading of hook!','Error',MB_OK or MB_ICONERROR); end.

DLL:

library HppCloser; uses Windows, Classes; Var SysHook:HHook=0; Procedure PrintClassName(Hnd: HWND); Var P: PChar; Begin New(P); GetClassName(Hnd,P,255); MessageBox(0,P,'info',MB_OK); Dispose(P); End; Function SysCbtProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; Begin IF Code=HCBT_CREATEWND then PrintClassName(wParam); //='#32770:Dialog'; Result:=CallNextHookEx(SysHook,Code,WParam,LParam); end; procedure Hook(Flag:Boolean); export; stdcall; Begin IF Flag then SysHook:=SetWindowsHookEx(WH_CBT,@SysCbtProc,HInstance,0) Else Begin UnhookWindowsHookEx(SysHook); SysHook:=0; End; End; exports Hook; {$R *.res} begin end.

И получаю в резльтате что ни один MessageBox() не выдаётся, хотя должно выдаться по меньшей мере сотня.
stdcall ставить пробовал..

У кого есть какие идеи?

Сообщение отредактировано: Song - 12.04.03, 12:03

Song	Сообщ. #2 , 13.04.03, 07:50
Unregistered	Проблема решена.

vot	Сообщ. #3 , 13.04.03, 08:51
Administrator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 17	как именно?

Song	Сообщ. #4 , 13.04.03, 09:31
Unregistered	Был перепутана форма параметров call-back ф-ии хука. С точки зрения Object Pascal и АПИ вообще x1,x2: Integer и x1: Integer; x2: Integer; - совершенно разные вещи. В стёк эти параметры передаются неодинаково, хотя выглядит как одно и тоже.

7in	Сообщ. #5 , 13.04.03, 13:35
Unregistered	Гы! А разве в этом проблема была? (см. >тут<) Сообщение отредактировано: 7in - 13.04.03, 13:37

vot	Сообщ. #6 , 14.04.03, 08:26
Administrator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 17	2 Song: Покажи наглядно, как было, и как надо?

Song	Сообщ. #7 , 14.04.03, 14:23
Unregistered	Было: Function SysCbtProc(Code: Integer; WParam: LongInt; LParam: LongInt):LongInt; Надо: Function SysCbtProc(Code:Integer; WParam, LParam: LongInt): LongInt; JinX оспаривает что из-за этого, но у меня его сведения не проходят, возможно проблема в разных Дельфях.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0244 ] [ 16 queries used ] [ Generated: 1.05.24, 23:14 GMT ]