Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Вниз

Как в XP выключить компьютер и монитор ?   Найти похожие ветки 

 
Infinity2   (2002-09-21 02:26) [0]

ExitWindowsEx(EWX_POWEROFF, 0)у меня не работает. Может я что то не правельно сделал. И ещё как выключить монитор. Стандарния функия которая работает под 9x не работает XP.


 
ZZ   (2002-09-21 04:11) [1]

Goto FAQ or Поиск


 
megadeth   (2002-09-21 10:40) [2]

Даю пример на выключение: 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);




 
Infinity2   (2002-09-21 14:35) [3]

В том то и прикол что это не работает как надо. Мне надо ВЫКЛЮЧИТЬ ПИТАНИЕ . А из Windows то вы ходит, но на экран "Тепер выключите компьтер". А мне надо что бы системный блок выключился. Материнка соответственно ATX. Так делает XP по умолчанию Start>Завершение работы > Shutdown


 
J0niK   (2002-09-21 16:08) [4]

Программе необходима привилегия 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-23 21:03) [5]

J0niK большое спасибо!


 
sergos   (2002-09-24 02:49) [6]

А можно ль чего придумать чтобы по сети комп выключить (если права у юзера соответсвующие)???


 
Song   (2002-09-24 09:01) [7]

2sergos © (24.09.02 02:49)
В конференции "Сети" я вчера отвечал на этот вопрос.


 
ZZ   (2002-09-24 11:34) [8]

Song
КОД ДАВАЙ!!! :))))


 
sergos   (2002-09-25 02:35) [9]

2 song
InitiateSystemShutDown() не выключает питание :-(
А хотелось бы чтобы оно отключалось. Как быть?


 
Song   (2002-09-25 11:19) [10]

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.


 
Beglec   (2002-09-26 05:03) [11]

ShellExecute(HWND(nil),"open","shutdown.exe","-s -t 0","",SW_SHOWNORMAL);

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


 
ZZ   (2002-09-26 10:02) [12]

Beglec
Юмор.. смешно.. :) А угадай чем пользуется эта программка?



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.009 c
14-82932
Dush
2002-11-05 16:14
2002.11.25
Экстрим програминг!


14-82975
The_Vizit0r!
2002-11-07 01:01
2002.11.25
Помогите найти компонент


1-82818
lensky
2002-11-08 07:26
2002.11.25
Listview eto problema delphi ili windows?


3-82601
Vagrant
2002-11-04 09:50
2002.11.25
DBTreeView на основе VirtualTreeView


14-82934
Yuraz
2002-11-04 17:42
2002.11.25
Мониторы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский