Ошибка EOLESYS..OPERATION UNAVAILABLE (операция недоступна) при использовании GETACTIVEOLEOBJECT

- Надо снять порчу с компьютера, - сказала цыганка, запустив DrWeb.

Это происходит при использовании сервера автоматизации Delphi, или когда сервер автоматизации (например, word.basic) не запущен.

procedure TForm1.Button1Click(Sender: TObject);
var
  V: OleVariant;
begin
  V := GetActiveOleObject('Word.Basic');
  V.FileNew;
  V.Insert('тест');
end;

GetActiveOleObject определен в ComObj.pas. Он преобразует имя класса в guid и передает его при вызове Windows api функции GetActiveObject.

function GetActiveOleObject(const ClassName: string): IDispatch;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  ClassID := ProgIDToClassID(ClassName);
  OleCheck(GetActiveObject(ClassID, nil, Unknown));
  OleCheck(Unknown.QueryInterface(IDispatch, Result));
end;

GetActiveOleObject использует интерфейс с именем IRunningObjectTable. Мы не регистрируем это автоматически в таблице, поэтому, чтобы воспользоваться его функциональным назначением, вы должны получить этот интерфейс и использовать его методы для регистрации.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 451 • TDictionary Custom Sort 6 486 • Fast Watermark Sources 6 283 • 3D Designer 9 226 • Sik Screen Capture 6 616 • Patch Maker 6 995 • Айболит (remote control) 6 999 • ListBox Drag & Drop 5 870 • Доска для игры Реверси 97 070 • Графические эффекты 7 201 • Рисование по маске 6 502 • Перетаскивание изображений 5 367 • Canvas Drawing 5 742 • Рисование Луны 5 455 • Поворот изображения 4 983 • Рисование стержней 3 536 • Paint on Shape 2 805 • Генератор кроссвордов 3 670 • Головоломка Paletto 2 959 • Теорема Монжа об окружностях 3 763 • Пазл Numbrix 2 481 • Заборы и коммивояжеры 3 166 • Игра HIP 2 133 • Игра Go (Го) 2 068 • Симулятор лифта 2 439 • Программа укладки плитки 2 113 • Генератор лабиринта 2 585 • Проверка числового ввода 2 264 • HEX View 2 592 • Физический маятник 2 202