работа с чужими программами

[st01en]

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

wnd := GetDlgItem(GetDlgItem(FindWindow(nil, 'Безымянный - Paint'), $0E900), 0);

ого, а что это такое и как этому научиться?

[B_N]

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

SendNotifyMessage непосредственно вызывает оконную процедуру, а PostMessage помещает сообщение в очередь.

Не путайте людей.
http://msdn2.microsoft.com/en-us/lib...53(VS.85).aspx

The SendNotifyMessage function sends the specified message to a window or windows. If the window was created by the calling thread, SendNotifyMessage calls the window procedure for the window and does not return until the window procedure has processed the message. If the window was created by a different thread, SendNotifyMessage passes the message to the window procedure and returns immediately; it does not wait for the window procedure to finish processing the message.

-----------------------------

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

ого, а что это такое и как этому научиться?

А этому даже учиться особо не нужно. Берите, как он у Дельфи, WinSpy, кажется, и смотрите, кому принадлежит нужное окно.

[st01en]

WinSight32 называется
Я так понял $0E900 - ИД диалогового окна(?) вот откуда оно взялось, или я не туда смотрю?
чет не пойму что к чему, вот он Paint:

[B_N]

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

WinSight32 называется
Я так понял $0E900 - ИД диалогового окна(?) вот откуда оно взялось, или я не туда смотрю?
чет не пойму что к чему, вот он Paint:

Ну так смотрите где-нибудь в свойствах каждого окна (я не помню, как там в винсайте, спасибо, что напомнили, как его звать ) какой у кого ID, проходите всю цепочку и всё. Просто на картинке ID не показан, там только HWND, класс, процесс, размеры и имя.

[Somebody]

If the window was created by a different thread, SendNotifyMessage passes the message to the window procedure and returns immediately

OK, вот что я имел в виду: она "passes the message to the window procedure", а PostMessage - в очередь сообщений (и может какая-то [странная] прога не будет даже передавать его оконной процедуре). SendNotifyMessage сразу же вызовет оконную процедуру, а через PostMessage сообщение дойдёт после всех остальных (не считая paint, timer и т. п.)

[B_N]

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

OK, вот что я имел в виду: она "passes the message to the window procedure", а PostMessage - в очередь сообщений (и может какая-то [странная] прога не будет даже передавать его оконной процедуре). SendNotifyMessage сразу же вызовет оконную процедуру, а через PostMessage сообщение дойдёт после всех остальных (не считая paint, timer и т. п.)

Ах вот Вы о чём. Тогда принимается. В принципе, все Send****ы работают через APC (если в другой поток), просто я не стал на этом так уж заострять внимание.

[Иллидан]

Я знаю еще, способ как найти листок Painta

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  Ppoint:tpoint;
  begin
  ppoint.x:=100;
  ppoint.y:=100;

  setcursorpos(100,100);
  wnd:=windowfrompoint(ppoint);

  if wnd <> 0 then begin


    sendMessage(wnd, WM_LBUTTONDOWN, 0,MakeLparam(10,10));
    sendMessage(wnd, WM_MOUSEMOVE , 0,MakeLparam(100,200));
    sendMessage(wnd, WM_LBUTTONUP , 0,MakeLparam(100,200));

    end;
    end;

[st01en]

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

Ну так смотрите где-нибудь в свойствах каждого окна (я не помню, как там в винсайте, спасибо, что напомнили, как его звать ) какой у кого ID, проходите всю цепочку и всё. Просто на картинке ID не показан, там только HWND, класс, процесс, размеры и имя.

чувствую себя идиотом.
на картинке первое, третье и пятое сообщения - это те которые я из программы отправляю. И открыты свойства того окна которое их ловит, но я не вижу там этого $0E900 ни в каком виде, ИД вообще нули показывает


Иллидан, спасибо за WindowFromPoint, но вообще это смахивает на костыль

[B_N]

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

И открыты свойства того окна которое их ловит, но я не вижу там этого $0E900 ни в каком виде, ИД вообще нули показывает

А теперь посмотрите на то окно, которое прямо над ним (которое было 007102FC)

[st01en]

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

А теперь посмотрите на то окно, которое прямо над ним (которое было 007102FC)

результат для меня все так же плачевный
ткните меня носом