Delphi

1 отговора 184 прегледа
#1

Delphi

Бих искал да попитам каква е тази привилегия която трябва да използвам, за да изключа Windows XP в Delphi 5

Отговор
в отговор на Hиkoлaй #2

Re: Delphi

Без тази привилегия няма да можеш
SE_SHUTDOWN_NAME

Ето и пример:

if (!OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))
error("OpenProcessToken");

// Get the LUID for the shutdown privilege.

LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,
&tkp.Privileges[0].Luid);

tkp.PrivilegeCount = 1; // one privilege to set
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;

// Get the shutdown privilege for this process.

AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
(PTOKEN_PRIVILEGES)NULL, 0);

Отговор