Получение ссылки на объект по его hWnd

[zHackLeX]

Если под ссылкой на объект понимать
объявленную As Object переменную,
встаёт вопрос.
Имея ссылку на объект получить хэндл несложно
(если он есть). А как получить ссылку, зная хэндл?

Конечно, вопрос уже задавался.
Конечно, GetObject API не катит
Спасибо.

[GM]

Конешно GetObject не катит, он вообще никакого отношения не имеет.

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

The GetObject function obtains information about a specified graphics object.


Если объект лежит на форме, то получить ссылку можна так:

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

Private Sub Form_Load()
Dim frm As Object
Dim cnt As Object
Dim h As Long

On Error Resume Next
For Each frm In Forms
For Each cnt In frm.Controls
If cnt.hWnd = h Then
Exit For
End If
Next
Next

End Sub


Где cnt - ссылка на объект.

[zHackLeX]

Ну это-то ясно.
Меня интересует случай, когда хэндл не относится к разрабатываемому проекту. В лучшем случае он может относиться к проекту, который использует мой проект (я пишу ОСХ), а вообще - так и вовсе любым.
Чую, что вопрос тяжёлый.
Тем не менее, спасибо заранее.

[tyomitch]

Если другое приложение (в частном случае - клиент твоего ОСХ) не написано на VB, то никак.

[zHackLeX]

А если на VB?