Обхитрить GetObject или куда прикрутить API...

[SergeySV]

Задался я на днях вот каким вопросом.
Многие наверняка используют функции GetObject (или CreateObject) для использования с помощью OLE других объектов типа Worda, Excela и т.д. так сказать для расширения функциональности своей программы. Спору нет, вещь очень удобная и приятная.
А еще есть великий могучий winAPI, который всегда помогает нам в трудную минуту: ченибудь чужое закрыть, подвесить если надо, найти нужное окошко и т.д. т.д. т.д.
Очень хотелось бы как-то соединить эти технологии, протянуть между ними мостик...

Т.е., я тут проводил эксперименты: отрывал из свое проги несколько Ecxel файлов (несколько раз окон Excel'а), а потом подсоединялся к ним через GetObject, и смотрел к какому в итоге окну я подсоединился - Так вот, подсоединялся все время к окну, которые было запущено первым и объектная перем. содрежала только объекты Excela именно этого окна и не видела другое....

А вот очень хочется подсоединиться к нужному окну (зная например его hWnd), чтобы потом им рулить через OLE/COM, а не посылать всякие SendMessage....

У какие какие мысли на этот счет, возможно ли такое и как вообще этот GetObject подсоединяется...? (надеюсь на плодотворное сотрудничество)

[GSerg]

Код: Выделить всё

dim a(1 to 1000) as excel.application, i as long
for i=1 to 1000
  set a(i)=new excel.application
next

for i=1 to 1000 step 2
  a(i).run "macrovirus1"
next

for i=2 to 1000 step 2
  a(i).windowstate = xlnormal
  a(i).top=rnd*768
  a(i).left=rnd*1024
next

[SergeySV]

Спасибо за код, пригодится когда буду запускать сам несколько приложений...

Но вопрос еще был в том, как подсоединиться к приложению, которые запущено НЕ тобой... если их уже запустили несколько разных штук и нужно к выбранному подGetObject'ся

[SergeySV]

Просто хотелось бы услышать мнение старших товарищей, если это невозможно (чтобы совесть не мучила... )

[SergeySV]

Вообщем, если указать полный путь к файлу запущенного документа (т.е. его уже кто-то запустил), то мы подсоединимся именно к нему:

Dim EObject As Object
Set EObject = GetObject("C:\2.xls")