Форум: "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.021 c
14-66348          asafr                 2001-11-22 16:01  2002.01.21  
FastReport. Информация к размышлению...


1-66303           msys                  2002-01-02 18:21  2002.01.21  
SaveDialog


1-66231           Oleg Fomicheff        2001-12-31 05:26  2002.01.21  
ComboBox: проверка уникальности элементов


3-66182           Polevi                2001-12-14 12:03  2002.01.21  
Отзовитесь, кто нибудь :))


1-66313           Strelok               2002-01-02 16:15  2002.01.21  
Хорошие книги по Дельфи