COM Elevation Moniker
Привет!
Задумался о создании модуля COM ActiveX для программы, которая будет вызываться при необходимости с повышенными привилегиями.
Для этого используется Delphi XE5 и Windows 8.1 Pro x64.
Сделал ActiveX Library, добавил COM Object, добавил тестовую функцию. Зарегистрирован в системе, используя Run> ActiveX Server-> Register. Операция прошла успешно.
Вот моя библиотека имеет GUID:
LIBID_libCOM: TGUID = '{B6D13396-71C2-4503-B314-65E72F176413}';
IID_ITestOBJ: TGUID = '{0FD34325-6654-4DC4-9537-11CAA5B25652}';
CLASS_TestOBJ: TGUID = '{1FDCEE9D-E747-4616-9D00-D55D7FD26B03}';
Интерфейс объекта:
ITestOBJ = interface (IUnknown)
['{0FD34325-6654-4DC4-9537-11CAA5B25652}']
function GetSum (S1: HResult; S2: HResult): HResult; stdcall;
end;
Если звонить обычным способом, то работает:
var
II, TOBJ: ITestOBJ;
begin
II: = CoTestOBJ.Create;
II.QueryInterface (ITestOBJ, TOBJ);
ShowMessage (IntToStr (TOBJ.GetSum (StrToInt (Edit1.Text), StrToInt (Edit2.Text))));
end;
После этого я добавил в реестр LocalisedString, Elevation \ Enabled, Elevation \ IconReference
Далее назовите код:
var
z: ITestOBJ;
hr: HRESULT;
BO: BIND_OPTS3;
MonikerName: WideString;
begin
hr: = 0;
z: = nil;
MonikerName: = 'Elevation: Administrator! New:' + GUIDToString (CLASS_TestOBJ);
FillChar (BO, SizeOf (BIND_OPTS3), 0);
BO.cbStruct: = SizeOf (BIND_OPTS3);
BO.dwClassContext: = CLSCTX_LOCAL_SERVER;
BO.hwnd: = Self.Handle;
hr: = CoGetObject (PWideChar (MonikerName), @ BO, ITestOBJ, @ z);
OleCheck (hr);
ShowMessage (IntToStr (z.GetSum (1, 2)));
end;
От ОАК поступает просьба предоставить закон, я нажимаю Да.
После этого выдается ошибка "Класс не зарегистрирован".
Что я делаю неправильно? Ведь практически все разобрались, скорее всего, останутся мелкие детали!
PS
Вообще, можно вызвать COM-объект из библиотеки DLL без регистрации его в системе и запросить повышение прав? Так что LN было намного проще, и он автоматически решит какую-то другую проблему.