Witam, mam straszliwy problem z globalnyk hookiem na komunikat WM_CREATE:
Mam taki kod:
function HookCallWndProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
cwps: TCWPStruct;
begin
if (nCode = HC_ACTION) then
begin
CopyMemory(@cwps, Pointer(lParam), SizeOf(CWPSTRUCT));
case cwps.message of
WM_CREATE:
begin
form1.memo1.lines.add('a');
end;
end;
end;
Result := CallNextHookEx(WH_CALLWNDPROC, nCode, wParam, lParam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowsHookEx(WH_CALLWNDPROC, HookCallWndProc, hinstance, 0);
end;
nie wiem w czym jest błąd ale jak ustawiam hooka to sypie sie cały explorer :(