Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, alex-eraser, Вы писали:

AE>>Спасибо. Гляну.

А>Еще здесь, в хвосте три ссылки по перехвату методов COM-интерфейсов.
Читал конечно же я эти стати первым делом. Но мне не перехват методов нужен, а получение таблицы интерфейсов.

  PInterfaceTable = ^TInterfaceTable;
  TInterfaceTable = record
    EntryCount: Integer;
    Entries: array[0..9999] of TInterfaceEntry;
  end;

PInterfaceEntry = ^TInterfaceEntry;
  TInterfaceEntry = record
    IID: TGUID;
    VTable: Pointer;
    IOffset: Integer;
    ImplGetter: Integer;
  end;