Нужен ли CloseHandle?

[The_Darkness]

Здравствуйте. Скажите пожалуйста нужен ли в конце этой процедуры 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;

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

[Air]

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

[The_Darkness]

Ясно, спасибо.А что значит Project1.dpr(22): Ambiguous overloaded call to 'AdjustTokenPrivileges' ? Если не трудно, объясните пожалуйста

[Air]

Дословный перевод
Неоднозначный перегруженный вызов 'AdjustTokenPrivileges'
Толком не знаю, у меня этого предупреждения нет.

[The_Darkness]

Я не понял что ето , но понял что это изза моей мании делать все в консоли.. Сделал в форме все работает Прошу прощения
Если кто нибудь знает, изза чего эта ошибка, и как ее исправить(если можно конечно) напишите пожалуйста

[Yauhen_m]

Наверное потому, что не определены значения переменных prevst и rl.

[Stilet]

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

Во-первых в SDK ничего не сказано о его необходимости
Во-вторых, ты же машину выключаешь, какой смысл еще и хендлы закрывать? Это же не файл, в который писать нужно.

[Exception]

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

[GunSmoker]

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

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

Ambiguous overloaded call to 'AdjustTokenPrivileges'

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

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

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

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

Во-первых в SDK ничего не сказано о его необходимости.

Чёрным по белому написано:

Close the access token handle returned through the TokenHandle parameter by calling CloseHandle.

"Just follow the rules - nobody gets hurt" ©

[litrovith]

не нужен, говно-код винды всё закроет сам

add
некрофилизм процветает )