function GetActiveOleObject(const ClassName: string): IDispatch 

Функция возвращает ссылку на интерфейс IDispatch активного OLE-объекта указанного класса. Функция использует информацию из таблицы активных объектов OLE (OLE running object table).

Параметры:

• ClassName - символьное имя класса объекта, соответствующее уникальному идентификатору класса CLSID.

Результат: ссылка на интерфейс IDispatch активного OLE-объекта.