Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Ноя

Нужен ли CloseHandle?

Posted by bullvinkle under Пост-обзор

Здравс

твуйте. Скажите пожалуйста нужен ли в конце этой процедуры CloseHandle?

Код:


procedure ShutdownComputer;
var
  hToken: THandle;
  tkp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, hToken);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
  tkp.PrivilegeCount := 1;
  tkp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

Я ее нашел поиском по форуму, и не до конца понимаю что к чему в ней

Вызов CloseHandle — нужен.

Если, конечно, вы хотите писать нормальный качественный код, а не говно-код (см. пример два).

Цитата:

Ambiguous overloaded call to ‘AdjustTokenPrivileges’

Это значит, что в программе есть две AdjustTokenPrivileges, а компилятор не может понять, какую из них вызывать, потому что параметры, которые ты в неё передаёшь, подходят обоим вариантам.

Это бывает в двух случаях:
— у тебя подключено два разных модуля, в обоих из них есть overload-варианты AdjustTokenPrivileges. Решение в этом случае — явно указать префикс модуля. Например: Windows.AdjustTokenPrivileges. Или JvWindows.AdjustTokenPrivileges. Или… кто там у тебя там, я не знаю.

— в одном модуле есть несколько вариантов AdjustTokenPrivileges, но один или несколько параметров, которые ты передаёшь в процедуру, подходят под несколько вариантов. Обычно это бывает когда ты не указываешь опциональные параметры (не твой случай, но вообще бывает), либо когда параметры имеют слишком общий тип, который можно преобразовать как к одному типу (в первой AdjustTokenPrivileges), так и ко второму (во второй AdjustTokenPrivileges). Как решить — Ctrl + щелчок на AdjustTokenPrivileges и смотрим, какие в точности параметры она требует. Затем даём ей именно эти параметры, а не такие, которые лишь совместимы с ними.

Цитата:

Сообщение от Stilet