Решение проблемы регистрации Type Library в Delphi: как выполнить без прав администратора

Delphi , ОС и Железо , Windows

Вопрос, поднятый пользователем, касается проблемы регистрации Type Library (TLB) и OCX-контролов в реестре текущего пользователя, а не в HKLM. Это важно для разработчиков, которые хотят обеспечить изолированную работу приложений для каждого пользователя системы. Рассмотрим подробнее, как решить данную проблему, используя язык программирования Object Pascal и среду разработки Delphi.

Описание проблемы

Пользователь столкнулся с проблемой, при которой написанный код для регистрации TLB не работал: после его выполнения не происходило никаких изменений в реестре, ошибок не возникало, но и ожидаемого результата тоже. Код был основан на информации, найденной в интернете, включая материалы с сайта Embarcadero.

Пример кода

Вот пример кода, который должен был зарегистрировать TLB в реестре текущего пользователя:

procedure RegisterTypeLibrary(TypeLib: ITypeLib; const ModuleName: string);
var
  Name: WideString;
  HelpPath: WideString;
  RegisterTypeLibForUser: function(tlib: ITypeLib; szFullPath, szHelpDir: POleStr): HResult; stdcall;
  res: HResult;
begin
  Name := ModuleName;
  HelpPath := ExtractFilePath(ModuleName);
  res := RegisterTypeLib(TypeLib, PWideChar(Name), PWideChar(HelpPath));
  if res <> S_OK then
  begin
    @RegisterTypeLibForUser := GetProcAddress(GetModuleHandle('oleaut32.dll'), 'RegisterTypeLibForUser');
    if (@RegisterTypeLibForUser <> nil) then
    begin
      res := RegisterTypeLibForUser(TypeLib, PWideChar(Name), PWideChar(HelpPath));
    end;
  end;
  //MessageBox(GetForegroundWindow, PChar(IntToHex(res, 8)), nil, MB_OK);
  OleCheck(res);
end;

Подтвержденный ответ

Для успешной регистрации TLB в реестре текущего пользователя необходимо установить ключи реестра, как показано в руководстве Embarcadero, но в этот раз уже в реестре текущего пользователя (HKCU).

Альтернативный ответ

Также важно понимать, что для выполнения некоторых операций в Windows Vista или Win7 требуются повышенные привилегии. Однако в данном случае функция регистрации должна обращаться к HKCU, что теоретически позволяет выполнить процесс без прав администратора.

Возможная проблема

Существует вероятность, что приложение виртуализируется, и первоначальный вызов функции RegisterTypeLib возвращает OK, но результат валиден только для текущей сессии. В этом случае следует исключить этот вызов или выполнять его только в операционных системах, предшествующих Vista.

Рекомендации

1. Убедитесь, что ваше приложение не виртуализируется.
2. Проверьте, что вызов RegisterTypeLib действительно обращается к HKCU.
3. Убедитесь, что операционная система поддерживает регистрацию без прав администратора (например, в HKCU).

Заключение

Регистрация Type Library и OCX-контролов в реестре текущего пользователя является важной задачей для разработчиков, работающих с Delphi. Понимание того, как правильно настроить процесс регистрации, позволит избежать многих проблем, связанных с правами администратора и виртуализацией. Следуя рекомендациям и проверяя ключевые моменты, вы сможете успешно зарегистрировать TLB и OCX, не прибегая к использованию прав администратора.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой регистрации Type Library (TLB) в реестре текущего пользователя в Delphi для обеспечения изолированной работы приложений.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::