Запуск прикладной библиотеки с exe

[Сучков Александр]

Здравствуйте!

Есть прикладная библиотека, необходимо написать программку на Delphi которая запускает КОМПАС, подключает имеющуюся библиотеку и запускает ее.

Возникла проблема, как программно при нажатии кнопки в программке и открытом КОМПАСЕ подключить библиотеку к КОМПАСУ.

Подскажите пожалуйста, кто сталкивался с этим!

Заранее спасибо!

[Sabahs]

Можно запустить Компас из exe файла и использовать его API пример :
http://depositfiles.com/files/cwsrz9q0p

Либо попробовать функции:
ksExecuteLibraryCommand - Выполнить команду другой библиотеки.
ksSetCurrentLibrary - Установить текущую библиотеку.

[Сучков Александр]

Выполнение должно походить на подобе примера.

Какие функции Вы использовали для подключения библтотек к КОМПАСУ?

[Sabahs]

Пример exe файла с исходным кодом
http://depositfiles.com/files/ncmv1bq8m

[Сучков Александр]

Спасибо, но к сожалению немного не то.

Мне необходимо подгрузить библиотеку к открытому компасу, для этого нужно связать переменную Kompas с API КОМПАСа

   Kompas := KompasObject(CreateKompasObject);

Как это осуществить?

Заранее спасибо!

[Sabahs]

Спасибо, но к сожалению немного не то.

Мне необходимо подгрузить библиотеку к открытому компасу, для этого нужно связать переменную Kompas с API КОМПАСа

   Kompas := KompasObject(CreateKompasObject);

Как это осуществить?

Заранее спасибо!

надо так
Kompas :=KompasObject( GetActiveOleObject('Kompas.Application.5') );

[Сучков Александр]

Большое спасибо! Разобрался!