| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

перезагрузка компьютера [D6, Win2k, WinXP]

Radimir ©   (2003-02-10 11:46:00) 

Здраствуйте. Подскажите как перезагрузить компьютер програмно. Поискал по хелпам нашел как перегрузить Windows или как совсем выключить. Перезагрузка не получается. Привожу используемый код:

var
ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;
begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeRebootPrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
ExitWindowsEx(EWX_Reboot,0);
end;

Заранее благодарен за ответы.

---

ZZ   (2003-02-10 16:49:00) [1]

LookupPrivilegeValue(Nil, "SeRebootPrivilege",tp.Privileges[0].Luid);
тоже юмор :)

---

gsu   (2003-02-10 12:09:00) [2]

может из-зи этого ?
EWX_REBOOT Shuts down the system and then restarts the system. Windows NT: The calling process must have the SE_SHUTDOWN_NAME privilege

---

Наверх