Witam.
Jak mogę przechwycić komuikaty innej aplikacji poprzez polecenie setwindowlong.
function ControlProc(hWnd, Msg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := 0;
case Msg of
WM_CHAR: if wParam = Ord('?') then Exit;
end;
Result := CallWindowProc(PSystemProc,hWnd,Msg,wParam,lParam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PSystemProc :=pointer(SetWindowLongA(findwindow('Uimain',nil), GWL_WNDPROC,integer(@ControlProc)));
end;
Mam takie coś i działa to w obrębie 1 procesu, chce żeby działało na inny proces(okienko).