Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

О перехвате сообщений   Найти похожие ветки 

 
Redhopter ©   (2004-10-29 23:00) [0]

Здравствуйте товарищи!!!!
Помогите найти ошибку в Dll

Код  

library hook_dll1;
uses
 Windows,
 Messages,dialogs, system,
 Forms;
var
 SysHook : HHook = 0;
 Wnd : Hwnd = 0;
function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
a:string[10];
begin
 Wnd:=findwindow(nil,"Server");
 if (TMsg(Pointer(lParam)^).hwnd=wnd)and(wnd<>0) then
 begin
   if TMsg(Pointer(lParam)^).message=wm_datacopy then
   begin
     TMsg(TMsg(Pointer(lParam)^).message:=0;
     showmessage("Перехватил");
   end;
 end;
end;
procedure hook(switch : Boolean) export; stdcall;
begin
 if switch=true then
 begin
   SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0);
   if SysHook <> 0 then
       MessageBox(0, "HOOK1 установлен !", "Message from Exampel1/Process1", 0)
     else
       MessageBox(0, "HOOK1 установить не удалось !", "Message from Exampel1/Process1", 0);
 end
 else
 begin
   if UnhookWindowsHookEx(SysHook) then
     MessageBox(0, "HOOK1 снят !", "Message from Exampel1/Process1", 0)
   else
     MessageBox(0, "HOOK1 снять не удалось !", "Message from Exampel1/Process1", 0);
   SysHook := 0;
 end;
end;

exports hook;

begin
end.


Dll никак не хочет перехватывать сообщение....Я даже специльно программы 2 написал..они обмениваются данными при помощи wm_datacopy
Но почему-то ловушка их не ловит...
Она ловит только ВСЕ сообщения, т.е. сортирует их по хендлу окна...А само сообщение wm_copydata не ловит, хотя в принципе должна, ведь я налогично получаю хендл окна-приемника
Помогите найти ошибку!
Помогите плиз


 
VMcL ©   (2004-10-29 23:51) [1]

http://www.delphimaster.ru/articles/hooks/index.html


 
colonel   (2004-10-30 14:00) [2]

А где вызов CallNextHookEx(); и что такое TMsg ? Сделал бы регистрацию сообщения типа wm_hook_datacopy. в проетке типа этого:

.....
protected
   procedure wndproc(var Msg:tmessage); override;
end;
.....

procedure TForm1.wndproc(var msg:tmessage);
begin
 inherited;
 if Msg.Msg=WM_HOOK_DATACOPY then
   begin
   end;

А так почитай ту ссылку, которая выше, там интересная статья.



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
3-1100598443
Explorer
2004-11-16 12:47
2004.12.12
Работа со справочниками


14-1101301441
РВА
2004-11-24 16:04
2004.12.12
Где найти


1-1101673252
Pupkov
2004-11-28 23:20
2004.12.12
Ошибка Cannot assign a TFont to a TFont


1-1101472948
Dush
2004-11-26 15:42
2004.12.12
Объявление процедур


1-1101630374
UVV
2004-11-28 11:26
2004.12.12
GetTime