Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

SetWindowsHookEx 


YUS   (2001-11-18 19:07) [0]

Мастера,подскажите почему функция SetHook возвращает false при (IDProc=ID процесса куда устанавливаем хук), но если
SetWindowsHookEx(WH_GETMESSAGE,@GetMsdProc,hInstance,0); ,то true. Почему хук не устанавливается в заданный процесс???

function SetHook(IDProc:Cardinal):boolean; export;
begin
HookID:=SetWindowsHookExWH_GETMESSAGE,@GetMsdProc,
hInstance,IDProc);
if HookID = 0 then Result:=false else Result:=true;



paul_shmakov   (2001-11-18 19:13) [1]

потому как последний параметр функции SetWindowsHookEx не идентификатор процесса, а идентификатор потока.



YUS   (2001-11-18 19:28) [2]

Прошу прошения --потока. Его нахожу функцией, GetWindowThreadProcessId(hwnd,@IDProc);где hwnd- хэндл окна.



Polevi   (2001-11-18 19:51) [3]

hMod

Identifies the DLL containing the hook procedure pointed to by the lpfn parameter. The hMod parameter must be set to NULL if the dwThreadId parameter specifies a thread created by the current process and if the hook procedure is within the code associated with the current process.

dwThreadId

Specifies the identifier of the thread with which the hook procedure is to be associated. If this parameter is zero, the hook procedure is associated with all existing threads.


HookID:=SetWindowsHookEx(WH_GETMESSAGE,@GetMsdProc,
0,IDProc);



YUS   (2001-11-18 20:48) [4]

СПАСИБО за ПОМОЩЬ!!!!!!!!



YUS   (2001-11-18 22:51) [5]

Нет, ничего не выходит.Возвращает false. Привожу полное описание функции.

function SetHook(hMain:THandle):boolean; export;
var
IDProc : cardinal;
begin
hServ:=hMain;
GetWindowThreadProcessId(hStol,@IDProc); //находим его ID
HookID:=SetWindowsHookEx(WH_GETMESSAGE, @GetMsdProc,0,IDProc);
if HookID <> 0 then begin
PostThreadMessage(IDProc,WM_NULL,0,0);
Result:=true;
end else Result:=false;
end;



paul_shmakov   (2001-11-19 00:21) [6]


ThreadID := GetWindowThreadProcessId(hStol,@IDProc);
HookID:=SetWindowsHookEx(WH_GETMESSAGE, @GetMsdProc,0,ThreadID);



YUS   (2001-11-19 07:02) [7]

Хук устанавливается, но обращения к GetMsgProc функции нет.



YUS   (2001-11-19 07:26) [8]

Всем Спасибо HookID:=SetWindowsHookEx(WH_GETMESSAGE, @GetMsdProc,hinstance,ThreadID);




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
3-66185           DS                    2001-12-17 16:51  2002.01.21  
Кирица в DBD


4-66415           Константин            2001-11-17 21:50  2002.01.21  
По(ту)сторонние звуки


6-66331           Роллер                2001-10-25 10:51  2002.01.21  
Windows SocketError: что за ошибки?


3-66207           borisich              2001-12-16 18:51  2002.01.21  
Какой лучше формат СУБД использовать для локальных


1-66283           L_Coder               2002-01-04 16:45  2002.01.21  
inline()