NSIS -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.21.233.41]

Дорогие друзья! Поздравляем вас с днём Победы!

ПРАВИЛА РАЗДЕЛА · FAQ Inno Setup

Пожалуйста, выделяйте текст инсталлятора написанного на Inno Setup тегом [сode=ins] ... [/сode]. Для этого используйте кнопку [code=ins] в форме ответа или выпадающего списка, если нужно вставить код из другой программы.

Обязательно указывать:

Если в ходе решения проблемы возникли дополнительные вопросы, по возможности задаем их в той же теме.

Выразить свое отношение к модераторам раздела можно здесь: Profi, Fester

Модераторы: Fester

Новое голосование

NSIS , Com и интерфейсы

Vasek

Сообщ. #1 , 04.05.12, 11:30

Unregistered

Написал макрос создания категории

!define CLSCTX_INPROC_SERVER 1

!define ICatRegister_ID "{0002E012-0000-0000-C000-000000000046}"

!define CLSID_StdComponentCategoryMgr "{0002E005-0000-0000-C000-000000000046}"

!define CATID_OPCDAServer20 "{63D5F432-CFE4-11d1-B2C8-0060083BA1FB}"

!define CategoryDescription "OPC Data Access Server Version 2.05"

!define CLASSID "{20690CDC-4490-4F8A-87ED-87F1DE2D9404}"

var CatRegister

var CatInfo

!Macro CreateComponentCategory

System::Call "ole32::CoCreateInstance(g '${CLSID_StdComponentCategoryMgr}', i 0, i ${CLSCTX_INPROC_SERVER}, g '${ICatRegister_ID}', *i $CatRegister)i .R0"

${If} $R0 != 0 #S_OK

Abort "ляля тополя ICatRegister"

${EndIf}

#PCatInfo

System::Alloc 276

pop $CatInfo

System::Call '*$CatInfo(g "${CATID_OPCDAServer20}", i 1033, *&w256 "${CategoryDescription}")'

System::Call "$CatRegister->3(i 1, i $CatInfo)i .R0"

${If} $R0 != 0 #S_OK

Abort "ляля тополя ${CategoryDescription}"

${EndIf}

!MacroEnd

Но все время на второй проверке получаю ошибку.
Перырыл кучу примеров но почему так происходит ответа я найти не могу.
Помогите разобраться.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0435 ] [ 15 queries used ] [ Generated: 10.05.24, 01:06 GMT ]