Лучший способ проверить наличие прав на установку компонентов, правку реестра? / Delphi

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Лучший способ проверить наличие прав на установку компонентов, правку реестра?

19 сообщений из 19, страница 1 из 1

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101284

hlopotun

Гость

Всем доброй тяпницы!

из сервиса надо проверить еслть ли у него достаточно прав на сабж.
Понятно, можно попробовать что то записать в реестр или зарегистрировать какой то com/dll но есть подозрение что есть лучший/более простой, возможно неочевидный способ. Речь о сессиях которые также же могут быть членами домена.
Поделитесь идеями.

Спасибо.

...

Рейтинг:

0 / 0

01.10.2021, 12:50

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101299

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

hlopotun

Понятно, можно попробовать что то записать в реестр

Это единственный способ. Только записывать не обязательно. Достаточно попробовать открыть ветку реестра с флагом KEY_WRITE

...

Рейтинг:

0 / 0

01.10.2021, 13:07

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101307

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

https://docs.microsoft.com/en-us/windows/win32/api/securitybaseapi/nf-securitybaseapi-privilegecheck

Но вообще сначала угрохать уйму сил чтобы запустить сервис от имени
непривилегированного пользователя, а потом искать способ проверить, что у него
нет привилегий это как-то уж слишком по-пионерски...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 13:14

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101324

hlopotun

Гость

Dimitry Sibiryakov

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

...

Рейтинг:

0 / 0

01.10.2021, 13:53

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101328

Cobalt747

Участник

Сообщения: 2 360

Рейтинг: 0 / 0

hlopotun,

поищи функцию IsAdmin или как-то так, встроенная в винду

...

Рейтинг:

0 / 0

01.10.2021, 14:13

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101335

hlopotun

Гость

Cobalt747

hlopotun,

поищи функцию IsAdmin или как-то так, встроенная в винду

тут в принципе не всегда нужны все права админа, поэтому такая проверка скорее всего не подходит.

...

Рейтинг:

0 / 0

01.10.2021, 14:19

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101337

hlopotun

Гость

_Vasilisk_

hlopotun

Понятно, можно попробовать что то записать в реестр

осталось подходяшую ветку подобрать, которая в любой винде есть и права доступа к которой соответствуют правам необходимым для регистрации com/dll.

...

Рейтинг:

0 / 0

01.10.2021, 14:21

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101343

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Внезапно, но это ветка регистрации com/dll.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 14:29

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101346

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

hlopotun

HKCR\CLSID для регистрации COM-сервера
HKCR\Interface, HKCR\TypeLib для регистрации библиотеки типов
HKCR для регистрации ProgID

...

Рейтинг:

0 / 0

01.10.2021, 14:33

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101347

hlopotun

Гость

Dimitry Sibiryakov

Внезапно, но это ветка регистрации com/dll.

внезапно это конечно можно предположить, но какой ключ в ней гарантированно сушествует всегда?

...

Рейтинг:

0 / 0

01.10.2021, 14:34

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101351

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Если ключ реестра для регистрации СОМ не существует, значит регистрация СОМ
невозможна. Сурприз?
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 14:48

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101359

hlopotun

Гость

я обязательно ли лезть вглубь, не достаточно ли будет что то вроде этого:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

function TMyService.CheckServiceAccess: boolean;
var lReg: TRegistry;
begin
  try
    lReg := TRegistry.Create(KEY_WRITE);
    try
      lReg.RootKey := HKEY_CLASSES_ROOT;
      result := true;
    finally
      lReg.CloseKey();
      lReg.Free;
    end;
  except
    result := False;;
  end;
end;

...

Рейтинг:

0 / 0

01.10.2021, 15:08

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101360

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Ты сам решил лезть в бутылку вглубь. Весь этот код не нужен если
регистрация проверяется на ошибки (а она должна проверяться в любом случае).

За это время уже давно можно было бы избавиться от самих СОМ объектов.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 15:13

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101362

hlopotun

Гость

Dimitry Sibiryakov

регистрация проверяется. Речь о том что права могут быть изменены позднее, поэтому и проверка делается.

...

Рейтинг:

0 / 0

01.10.2021, 15:16

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101364

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Какие права? Позднее чего?
Если СОМ уже зарегистрировался, последующая невозможность его регистрации уже
сугубо безразлична, поскольку сама регистрация уже не нужна во второй раз.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 15:26

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101367

YuRock

Участник

Откуда: Донецк

Сообщения: 5 183

Рейтинг: 0 / 0

hlopotun

Cobalt747

hlopotun,

поищи функцию IsAdmin или как-то так, встроенная в винду

тут в принципе не всегда нужны все права админа, поэтому такая проверка скорее всего не подходит.

обычно этого достаточно (да и необходимо) для проверки, можно ли (и есть ли смысл) писать в LOCAL_MACHINE

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

// Включает (или отключает) виртуализацию (HKEY_LOCAL_MACHINE и др) (для Win7 и выше)
function SetRegistryVirtualization( bState: BOOL ): Boolean;
const
  TokenVirtualizationEnabled = 24;
var
  hToken : THANDLE;
begin
  if ( Win32MajorVersion > 6 ) or ( ( Win32MajorVersion = 6 ) and ( Win32MinorVersion >= 1 ) ) then begin // from Windows 7 - UAC
    Result := OpenProcessToken( GetCurrentProcess, MAXIMUM_ALLOWED, hToken );
    if Result then
      Result := SetTokenInformation( hToken, TTokenInformationClass( TokenVirtualizationEnabled ), @bState, sizeof( bState ) );
  end else
    Result := True; // Виртуализация и так невозможна в старой Windows
end;

...

Рейтинг:

0 / 0

01.10.2021, 15:36

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101370

hlopotun

Гость

Dimitry Sibiryakov

тут речь о сервисе регистрации com и проч. Смысл этого сервиса избавить админов на рабочих машинах вводить после каждого обновления пользователя имеющего права инсталляции com. Простой пользователь запускает обновление и программа обновления через сервис обновления (у которого достаточно прав) инсталлирует/обновляет com и проч новую лабуду. И проверка прав осуществляется исключительно самим этим сервисом самого себя на наличие прав регистрации/инсталляции. Никто не собирается перепроверять права самих com и проч.

...

Рейтинг:

0 / 0

01.10.2021, 15:42

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101371

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

многокаскадная прокто-стоматология
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 15:45

| Ответить | Цитировать | Написать

Лучший способ проверить наличие прав на установку компонентов, правку реестра?

#40101381

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

hlopotunтут речь о сервисе регистрации com и проч.

Не выпендривайся и запускай его от Local System. Он для того и существует.

Хотя давно уже мог бы избавиться от СОМ вообще. Прокрастинуешь...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

01.10.2021, 16:08

| Ответить | Цитировать | Написать

19 сообщений из 19, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&fpage=11&tid=2036989]:	0ms
get settings:	12ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	56ms
get topic data:	13ms
get forum data:	3ms
get page messages:	55ms
get tp. blocked users:	2ms
others:	262ms

total:	425ms