Архив форумов ЦИТФорума

[qwerty1]

Подскажите почему не работает следующий код

procedure TForm1.Button1Click(Sender: TObject);
var
handle, ph: THandle;
pid: DWORD;
luid: TLargeInteger;
dummy, priv: TOKEN_PRIVILEGES;
begin
pid:=GetCurrentProcessId;
ph:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);
if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
priv.PrivilegeCount:=1;
priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid:=luid;
AdjustTokenPrivileges(handle, false, priv, 0, dummy, pid);
end;
ExitWindowsEx(EWX_REBOOT, 0);
end;

Оперционка XP