хуки и shellproc

← →
alexey1 (2002-02-23 20:06) [0]

Всем привет!
Задача: при создании системой какого-либо окна, передать в мою прогу
хендл созданного окна и класс окна

я поставил только хук. что нужно добавить что бы передавался
хендл созданного процесса и класс окна?????????????????????

Хук в DLL:

function shellproc(Code, W,l : Integer): LongInt; stdcall;

var
j,i:integer;
begin
if Code =HSHELL_WINDOWCREATED //говорит о том, что создано окно
then
begin
i:= HSHELL_WINDOWCREATED; // помоему i всегда = 1
SendMessage(FindWindow(PCHAR("TFORM1"),"MouseHook"), WM_USER+111,0 ,I); // Уведомляем программу об этом.
end;
Result := CallNextHookEx(HookHandle, Code, W,L )
end;

function SetHook1: LongBool; stdcall;
begin
//установка ловушки
HookHandle := SetWindowsHookEx(WH_SHELL, shellproc, HInstance, 0);
Result := HookHandle <> 0 ;
end;

function RemoveHook1: LongBool; stdcall;
begin
Result := UnHookWindowsHookEx(HookHandle) ;end;

exports
SetHook1, RemoveHook1; //экспортируемые функции

и каким должен обработчик в программе для хука?
я только смог написать следующее:

procedure user111(var message:Tmessage) ; message wm_user+111;

procedure TForm1.user111(var message:Tmessage);
begin
label9.caption:=INTTOSTR(MESSAGE.WParam);
LABEL10.Caption:=INTTOSTR(MESSAGE.LParam);
end;

Что-то по этому поводу говорила Fellomena!
Может ещё кто-нибудь подскажет????????????

Заранее благодарен.

хуки и shellproc Найти похожие ветки