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

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

Перезагрузка...... [D5, Win2k]

Anonimus ©   (2003-04-17 10:45:00) 

Уважаемые мастера..!!!
Подскажите пожалуйста как выключить или перезагрузить комп под win2000???

Спасибо..!!!

---

Songoku   (2003-04-17 11:35:00) [1]

Я же уже добовлял что такое????

var
hToken:THANDLE;
NewState:TOKEN_PRIVILEGES;
OSVERSIONINFO :TOSVersionInfo;
d:Dword;
begin
d:=0;
OSVersionInfo.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
GetVersionEx (OSVersionInfo);
if (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) then begin

OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, hToken);
NewState.PrivilegeCount := 1;
LookupPrivilegeValue (nil, "SeShutdownPrivilege",
NewState.Privileges[0].Luid);
NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges ( hToken, FALSE, NewState,
d, nil, d);
CloseHandle (hToken);

end;
ExitWindowsEx (EWX_REBOOT, 0);

---

Cobalt   (2003-04-17 11:32:00) [2]

ExitWindowsEx+F1

---

Наверх