Перезагрузка Windows

[asja]

Как установить привилегию SE_SHUTDOWN_NAME, чтобы иметь возможность управлять перезагрузкой или выключением NT-системы?
Спасибо!

[Cj_]

ну я например так делаю, смотри

var
HT: THandle;
PR, prpr: TOKEN_PRIVILEGES;
cp: dword;
begin
OpenThreadToken(GetCurrentThread, TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES, false, hT);
OpenProcessToken(GetCurrentProcess, TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES, hT);
Pr.PrivilegeCount := 1;

Pr.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', Pr.Privileges[0].Luid);
AdjustTokenPrivileges(hT, false, Pr, SizeOf(Pr), Prpr, cp);

CloseHandle(hT);
end;