Делаю два приложения....первое TForm1 и второе TForm2. Для второго приложения пишу процедурку

procedure TForm2.Button1Click(Sender: TObject);
var
hWnd:THandle;
begin
hWnd:=FindWindow('TForm','Form1');
SendMessage(hWnd,WM_RBUTTONDOWN,MK_RBUTTON,$00100010);
end;


а в первом приложение описываю обработчик нажатия кнопки мышки

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=(mbRight) then
label1.Caption:=IntToStr(X)+':'+IntToStr(Y)+':Left'
else
label1.Caption:=IntToStr(X)+':'+IntToStr(Y)+':Nothing'
end;

теоретический я посылаю сообщение нажатия правой кнопки первому приложению и первое приложение должно прореагировать. Невыходит(

Дык первая процедура обрабатывает OnClick, а вторая - OnMouseDown. Может глюк в этом?

дык поставь в

Код

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

брейкпоинт и посмотри у тебя вообще сообщение ловится или нет
обычно еще hWnd на nil проверяют

Да там все оки....просто старая тема....управляеть другими приложениями по средствам сообщений....дык не выходит....теоретический должно

а ты уверен, что hWnd содержит хендл окна? Значение класса и название окна ты верно указал?

Еще вариант:
Можно в первом приложении работать не на OnMouseDown а напрямую отлавливать сообщение WM_RBUTTONDOWN. Тогда хоть увидишь где трабла: или сообщение не доходит, или VCL не генерирует OnMouseDown.