Czesc.
Mam problem z hookiem...
mam taki kod:
Function Proc(nCode: integer; wParam: WPARAM; lParam: LPARAM): lresult; stdcall;
begin
Result:=0;
pcws := PCWPSTRUCT(lparam);
case pcws.message of
WM_COMMAND:
begin
if HIWORD(pcws.wParam) = BN_CLICKED then
if LOWORD(pcws.wParam) = 102 then
Messagebox(ha, 'a', 'a', mb_iconinformation);
end;
end;
Result := CallNextHookEx(Hok, nCode, wParam, lParam);
end;
i wszystko działa ok...po naciśnięciu odpowieniego przycisku pojawia się okienko...
ale jak daje:
Function Proc(nCode: integer; wParam: WPARAM; lParam: LPARAM): lresult; stdcall;
begin
Result:=0;
pcws := PCWPSTRUCT(lparam);
case pcws.message of
WM_COMMAND:
begin
if HIWORD(pcws.wParam) = BN_CLICKED then
if LOWORD(pcws.wParam) = 102 then
PostMessage(ha, WM_DESTROY, 0, 0);
end;
end;
Result := CallNextHookEx(Hok, nCode, wParam, lParam);
end;
albo wysyłam jakikolwiek inny komunikat to już nie działa.
proszę o pomoc ;/ bo nie mam pojęcia o co chodzi i w czym jest problem/błąd.
z góry dziękuje.