Ошибка при запуске программы

[ZeroOne]

День Добрый, делаю приложение для работы с Компас, при запуске программы ошибка (использую COM).

[Sabahs]

Попробуйте зарегистрировать kompas.exe -register.
Хотя без куска кода, кто вызывает Dll тяжело сказать о причине ошибки.

[ZeroOne]

Код Выделить Развернуть

uses ksTLB, LtDefine, LDefin2D, ksAuto, LibTool, ksConstTLB, ksAPI7;
....
Kompas:= KompasObject(GetActiveOleObject('Kompas.Application.5'));
   if Kompas <> nil then
   begin
    Doc:= ksDocument2D(Kompas.ActiveDocument2D());
    if Doc = nil then
      ShowMessage('Данный документ не является чертежом')


[Sabahs]

Регистрировать пробовали?
ksAPI7 не нужен.

[ZeroOne]

Вот что появляется при попытке регистрации

[Sabahs]

Компас их сам регистрирует kompas.exe -register
После чего среда разработки должна их видеть.

[ZeroOne]

И не может быть из-за того что установлено 2 Компаса - 13 и 14 (64)

[Sabahs]

Может брать библиотеки типов не того Компаса и у них есть общие папки, что приведёт к некорректной работе.

[ZeroOne]

Даже при одном Компасе отказывается запускаться, единственное если убрать из модулей kAPI7 то запускается