Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как в XP выключить компьютер и монитор ? [D5, WinXP]

Infinity2 © (2002-09-21 02:26:00)
ExitWindowsEx(EWX_POWEROFF, 0)у меня не работает. Может я что то не правельно сделал. И ещё как выключить монитор. Стандарния функия которая работает под 9x не работает XP.

ZZ (2002-09-26 10:02:00) [1]
Beglec
Юмор.. смешно.. :) А угадай чем пользуется эта программка?

Beglec (2002-09-26 05:03:00) [2]
ShellExecute(HWND(nil),"open","shutdown.exe","-s -t 0","",SW_SHOWNORMAL);

Работает нормально именно для XP. В остальных Win такой фишки нет.
Данная прога идет стандарной и много позволяет
shutdown.exe /?
Там есть хороший help.
Может отключать удаленную машину.

Song (2002-09-25 11:19:00) [3]
bRebootAfterShutdown

Specifies whether the computer is to restart immediately after shutting down. If this parameter is TRUE, the computer is to restart. If this parameter is FALSE, the system flushes all caches to disk, clears the screen, and displays a message indicating that it is safe to power down.

Видимо она не работает с блоками ATX.

sergos (2002-09-25 02:35:00) [4]
2 song
InitiateSystemShutDown() не выключаетпитание :-(
А хотелось бы чтобы оно отключалось. Как быть?

ZZ (2002-09-24 11:34:00) [5]
Song
КОД ДАВАЙ!!! :))))

Song (2002-09-24 09:01:00) [6]
2sergos © (24.09.02 02:49)
В конференции "Сети" я вчера отвечал на этот вопрос.

sergos (2002-09-24 02:49:00) [7]
А можно ль чего придумать чтобы по сети комп выключить (если права у юзера соответсвующие)???

infinity2 (2002-09-23 21:03:00) [8]
J0niKбольшое спасибо!

J0niK (2002-09-21 16:08:00) [9]
Программе необходима привилегия SeShutdownPrivilege, позволяющая ей завершить работу WinNT. По умолчанию она доступна любой программе, работающей на данном компьютере, но ее необходимо получить.

procedure shutdown;
var
hToken:THandle;
tkp,PrevState:_TOKEN_PRIVILEGES;
k:DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
// Получаем LUID для привилегии "SeShutdownPrivilege".
LookupPrivilegeValue(nil, "SeShutdownPrivilege", tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
// Добавляем привилегию к нашему процессу
AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PrevState), PrevState, k);
ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);
end;

Infinity2 (2002-09-21 14:35:00) [10]
В том то и прикол что это не работает как надо. Мне надо ВЫКЛЮЧИТЬ ПИТАНИЕ . А из Windows то вы ходит, но на экран "Тепер выключите компьтер". А мне надо что бы системный блок выключился. Материнка соответственно ATX. Так делает XP по умолчанию Start>Завершение работы > Shutdown

megadeth (2002-09-21 10:40:00) [11]
Даю пример на выключение: XP, 2000, NT(правда на C++)
Надо сначала получить привилегии

void __fastcall GetPrivileges(char* privilege, bool bDisable)
{

HANDLE hToken;
TOKEN_PRIVILEGES tp;

if(!OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,&hToken)){
MessageBox(0, "OpenProcessToken fail!", NULL, 0+0x40);
}

if(!LookupPrivilegeValue(NULL, privilege, &tp.Privileges[0].Luid)){
MessageBox(0, "LookupPrivilegeValue fail!", NULL, 0+0x40);
}
tp.PrivilegeCount = 1;
tp.Privileges[0].Attributes = bDisable ? 0: SE_PRIVILEGE_ENABLED;

if(!AdjustTokenPrivileges(hToken, FALSE, &tp, 0,(PTOKEN_PRIVILEGES)NULL, 0)){
MessageBox(0, "AdjustTokenPrivileges fail!", NULL, 0+0x40);
}

}

а потом:
ExitWindowsEx(EWX_FORCE | EWX_POWEROFF, 0);
ExitWindowsEx(EWX_FORCE | EWX_REBOOT, 0);

ZZ (2002-09-21 04:11:00) [12]
Goto FAQ or Поиск

Наверх

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