[Delphi] Subclassing do innej aplikacji

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).

Inna aplikacja nie będzie miała dostępu do pamięci, w której jest ta procedura obsługi.

Sprobuj pokombinwać z SetWindowsHook i innymi podobnymi