delphi, управление чужим приложением

[nudlles]

delphi, управление чужим приложением. Нужна информация, желательно подробная.

[sflash]

Что конкретно имеется ввиду?

[fockewulf]

технология называется COM (Componrnt Object Model) попробуй поискать с таким запросом

[sflash]

Через COM можно управлять только если само то приложение поддерживает COM.

[nudlles]

смысл заключается в том, чтобы передавать определенные команды, как будто они происходят от имени пользователя, но проблема состоит в том, что при использовании функций findwindow(ex) не находится окно и кнопки.
TApplication-TForm1-TPanel Вот что показывает Winsight. Так вот в этой цепочке TApplication я нахожу, а вот TForm1 нет. Кроме того еще winsight не показывает кнопки после TPanel.

[nudlles]

Прикрепил картинку...

[yan_kos]

2 nudlles
0. найди утилитку Spy++ идет в поставке с VS6.0 оч полезная вещь, фактически позволяет определить тип, ид, имя любого окна в Винде.
1. Потом посмотри еще такие ф-и GetNextWindow, GetWindow, GetDesktopWindow... как точно ими пользоваться щас не скажу, смотри MSDN...

[sflash]

смысл заключается в том, чтобы передавать определенные команды, как будто они происходят от имени пользователя

Мне кажеться тут надо копаться в сторону сообщений, ведь каждое действие пользователя, будь то нажатие кнопки, перемещение мышки вызывает сообщение windows (Windows Message) в активное окно, а оно уже обрабатывает его типа так:
Перемещение мышки вниз - сообщение WM_MOUSE_DOWN
Перемещение мышки вправо - сообщение WM_MOUSE_RIGHT
Нажатие левой кнопки на мышке - сообщение WM_MOUSE_KEYCLICK_1
Нажатие кнопки - сообщение WM_KEY_DOWN
Отжатие кнопки - сообщение WM_KEY_Up
клик по кнопке - сообщение WM_KEY_PRESS и т.д.
код кнопки смотриться отдельной функцией , к тому же там очередь
Короче подробней поищи данную инфу.
Вот если научишься передавать данные сообщение приложению то тогда поимеешь контроль над ним.

[alexey_ma]

Для полной эмуляции мыши и клавиатуры вместо посылки сообщений лучше использовать функции :
mouse_event
keybd_event
или заменяющую обе эти функции - SendInput

Однако хочу сказать что задача нетривильная. Даже коммерческие программы которые делают автоматизацию GUI не работают в некоторых случаях.

PS : Могу подогнать примеры поиска окон и эмуляции действий юзера, но не дельфи а на C++

[sflash]

Однако хочу сказать что задача нетривильная. Даже коммерческие программы которые делают автоматизацию GUI не работают в некоторых случаях.

Мне кажется что это из за реализации этих программ, они могут работать не по стандартным событиям Windows, а по своим. Это не сложно сделать, просто дополнительный код. Вот тогда да, не зная этих событий ессно их и не передашь.

[LAndrew2]

господа, есть след. задача: при старте своей программы запустить стороннюю программу и сделать её "частью" своей. А именно: скрыть заголовок, поместить окно чужой программы "на форму" своей программы, сделать так, чтоб при изменении положения своей программы сохранялось положение чужой программы относительно формы, чтоб при сворачивании моей формы — чужое тож сворачивалось, при восстановлении — восстанавливалось и т.п.
есть готовое решение?

если нет, подскажите плз хотя бы с первой частью — как запустить программу — это понятно. но как потом у неё скрыть заголовок?

спасибо всем заранее.

[sflash]

Опять же делается через события.
CreateProcess
RunProcess - потом получаешь хендл (Handle) процесса
Затем этому процеccу по его хендлу передаешь события Minimize и Maximize соответсвенно при сворачивании и разворачивании своей программы.

Про скрытие заголовка. Когда у тебя будет хендл окна, сделаешь с ним что хочешь. Хочть зеленым цветом закрась все

[Nerey_ser]

Public Sub StickWindow(ParentWindow As Long, ChildWindow As Long, Optional ByVal NoActivate As Boolean = True, Optional ByVal NoShow As Boolean = False)
  Dim Style As Long
  
  Style = GetWindowLong(ChildWindow, GWL_STYLE)
  Style = Style Or WS_CHILD
  SetWindowLong ChildWindow, GWL_STYLE, Style
  
  SetParent ChildWindow, ParentWindow
  SetWindowLong ChildWindow, GWL_HWNDPARENT, ParentWindow
  
  Style = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE
  
  If NoActivate Then Style = Style Or SWP_NOACTIVATE
  If Not NoShow Then Style = Style Or SWP_SHOWWINDOW
  SetWindowPos ChildWindow, _
    HWND_TOP, 0&, 0&, 100, 100, _
    Style
End Sub

Вот это код на VB. Что он делает: делает чужое окно дочерним к нужному, т.е. "цепляет" его и делает частью.
Объявления функции тоже могу выковырять, но, опять же, на VB.

А вообще, лучше оращаться на форумы, посвященные программированию
sflash, не обижайся, но WM_MOUSE_DOWN - опускание кнопки мыши, а WM_MOUSE_RIGHT вообще такого не знаю.

[helldomain]

Poprobuite podumat o reshenijah w duhe Automation ili o freimworkah.

[sflash]

sflash, не обижайся, но WM_MOUSE_DOWN - опускание кнопки мыши, а WM_MOUSE_RIGHT вообще такого не знаю.

Писал по памяти, может что то и перепутал Так что не смотри на эту информацию как на 100% верную, я только так сказать указал путь, где копать.