Трудности с управлением чужим приложением

[Tihon]

Имеется чужое приложение - малое окно (карта) внутри большого (интерфейс).
На карте нажатой правой кнопкой мыши можно выделить прямоугольный блок, после чего он будет растянут на всю область внутреннего окна (масштабирование). Это штатная функция карты (программа написана на MFC).

На Делфи 6 пишу приложение, которое будет управлять картой - в частности, масштабировать.

Вот процедура.

procedure TForm1.Button13Click(Sender: TObject);
var
    Hnd, MapHnd : HWND;
    X, Y, Rx : Integer;
    lparam : Cardinal;
    Rw, Rt : TRect;
begin
    Hnd:=FindWindow(nil, 'Навигатор');
    GetWindowRect(Hnd, Rw);

    MapHnd := FindWindowEx(Hnd,0,'AfxFrameOrView70','');
    SetForegroundWindow(MapHnd);

    SetCursorPos(20, 220);
    GetWindowRect(MapHnd, Rt);

    X := 8;
    Y := 82;
    lparam := Y + X shl 16;
    PostMessage(MapHnd,WM_MOUSEMOVE,2,lparam);
    Rx := 0;
    Repeat
       begin
         X := X + 1;
         Y := Y + 1;
         lparam := Y + X shl 16;
         PostMessage(MapHnd,WM_MOUSEMOVE,2,lparam);
         Inc(Rx);
       end;
    Until Rx = 100;
    PostMessage(MapHnd,WM_MOUSEMOVE,0,lparam);
end;

1. Получаю хендл и границы окна интерфейса.
2. Получаю хендл окна с картой (имя класса окна - AfxFrameOrView70) и кидаю на него фокус.
3. Помещаю на карту курсор мыши.
4. Симулирую нажатие правой кнопки и обведение области масштабирования.

Сначала с помощью SPY++ контролирую сообщения при ручном выделении блока на карте.
Потом из своего приложения по кнопке выполняю процедуру, приведенную выше. Просматриваю лог SPY++.

Разницы между двумя логами процессов не наблюдаю. Но - выделение блока не работает.
Визуально на карте все кончается установкой мыши в положение от SetCursorPos.
Дальше процедура крутит цикл, в логе SPY++ идут сообщения о WM_MOUSEMOVE с изменением lparam, мышиный курсор остается на месте.

Пожалуйста, посмотрите текст, помогите советом.
Спасибо.

[raxp]

...не видно в коде собственно нажатия правой кнопки мыши/

[Tihon]

Сообщение от raxp

...не видно в коде собственно нажатия правой кнопки мыши/

PostMessage(MapHnd,WM_MOUSEMOVE,2,lparam);

Возможно, я ошибаюсь, - разве "2" - не то же для MOUSEMOVE, что MK_RBUTTON?!

Ибо-

MK_RBUTTON		=  2;

(Это отсюда :http://erpandcrm.ru/vipprogr.ru/ls17_5_9_3_3.html)...
Кроме того, при ручном выделении мышью (по логу SPY++) именно так записывается информация о движении мыши с выделением блока.

************************
Получилось, с использованием MOUSE_EVENT.

  Pt.x := 20;
  Pt.y := 200;
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0);
  Pt.x := 100;
  Pt.y := 300;
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, Pt.x, Pt.y, 0, 0);

И все же, мне очень интересно, - как выполнить то же самое с WinApi, как было задумано?
Потому тему пока не закрываю.

[UginL7]

а чем тебе MOUSE_EVENT не WinApi?

[raxp]

...TC, вообще-то - postmessage(MapHnd,WM_RBUTTONDOWN,0 , (x shl 16)+ y) ...а насчет ваших ремарок насчет winapi, вам >>> сюда <<<