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

[B_N]

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

Мои ответы (насколько я понял):
1. PostMessage - отправляет сообщение окну и забывает про это, программа дальше занимается своими делами.
SendMessage - Отправляет сообщение окну и ждет ответа\результата

Плюс к этому:
SendNotifyMessage: ждет ответа только если окно принадлежит текущему потоку, иначе ведет себя как PostMessage.
SendMessageTimeout: ведет себя аналогично SendMessage, но с возможностью указать максимальное время ожидания.
SendMessageCallback: ведет себя как PostMessage, но позволяет задать функцию, которая будет вызвана, когда окно-получатель обработает сообщение.
SendDlgItemMessage: упрощает отправку сообщений дочерним элементам диалоговых окон (вообще говоря - любых окон, у которых могут быть дочерние) по их идентификатору.

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

читаю МСДН:

И это правильно!

[st01en]

Спасибо.
С вашей поддержкой гораздо проще разбиратся.

Если я правильно понял то приблизительно такой код должен поставить точку в Paint'е:

var
  wnd: HWND;
begin
  wnd := FindWindow(nil, 'Безымянный - Paint');
  if wnd <> 0 then
    PostMessage(wnd, WM_LBUTTONDOWN, 0, MakeLParam(150, 100));
end;

или мне нужно искать иммено то дочернее окно на котором рисуется (ну этот белый лист Paint'a, не знаю как его назвать правильно )

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

И это правильно!

На самом деле я пробовал заглядывать в него раньше, однако там требуется определенный уровень знания английского, благодаря текущей работе я его приобрел и теперь вроде бы там ориентируюсь

[Stilet]

приблизительно такой код должен поставить точку в Paint'е:

А попробовать?

Вот пример взятый в котором показано как можно рисовать линию:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
SendMessage(<Хендл канвы>, WM_LBUTTONDOWN, 0,MakeLparam(10,10)); 
SendMessage(<Хендл канвы>, WM_MOUSEMOVE , 0,MakeLparam(100,200)); 
SendMessage(<Хендл канвы>, WM_LBUTTONUP , 0,MakeLparam(100,200)); 
end;

[st01en]

нету делфи под рукой, а домой аж ночью попаду, нетерпится

[Иллидан]

Извиняюсь, насколько я понял, если открыть Paint и запустить
этот код

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow(nil, 'Безымянный - Paint');
  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;

Дожна рисоваться линия а почему у меня ничего не рисует?

[B_N]

Сообщение от Иллидан

..........а почему у меня ничего не рисует?

Потому, что данный код пытается рисовать в главном окне Paint'а, которое рисовать не умеет. Попробуйте заменить

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

на

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

[Stilet]

А потому что ты не нашел хендл канвы )

[Иллидан]

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

Потому, что данный код пытается рисовать в главном окне Paint'а, которое рисовать не умеет. Попробуйте заменить

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

на

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

Бесполезно все равно не рисует

[B_N]

Сообщение от Иллидан

Бесполезно все равно не рисует

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

[Somebody]

Вот тут ещё есть много всего про оконные сообщения
http://rosigma.com/100.aspx
И ещё:

SendNotifyMessage: ждет ответа только если окно принадлежит текущему потоку, иначе ведет себя как PostMessage

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