Выключение компа одной кнопкой

← →
Шустрый © (2003-06-29 14:10) [0]

Знатоки, подскажите, или напишите плиз исходный текст, чтобы вырубать компьютер нажатием одной лишь кнопки (как вызвать виндовское окошко завершения работы я знаю, надо чтоб сразу вырубал);
Спасибо!

← →
Palladin © (2003-06-29 14:23) [1]

потрудись, не поленись...
Help\Windows SDK
искать
ExitWindow
ExitWindowEx

See also: AjustTokenPrivileges

+ инет

ЗЫ событие на кнопку то хоть знаешь как назначать?

← →
Anatoly Podgoretsky © (2003-06-29 15:02) [2]

Всегда выключаю одной кнопкой, питания, программу не считаю нужной для этого писать.

← →
DrPass © (2003-06-29 15:43) [3]

Хм. Анатолий, это же к системному блоку наклоняться нужно. А сколько калорий при этом теряется, вы подсчитывали?

← →
Anatoly Podgoretsky © (2003-06-29 15:46) [4]

Я ногой нажимаю

← →
Shluz © (2003-06-29 16:01) [5]

>Я ногой нажимаю
:))) Анатолий - приколист!!
>Шустрый ©
ExitWindowsEx(EWX_ShutDown,0) - для Win9x, Me ..для NT и Xp смотри еще привелегии...как верно заметил Палладин - AjustTokenPrivileges + F1

← →
DVM © (2003-06-29 16:23) [6]

http://delphibase.endimus.com/?action=viewtopic&topic=syscontrol

а я комп вообще не выключаю...

var
ph : THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;

//выключение компа
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeShutdownPrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);

Зато кнопка на системном блоке требует меньше ресурсов - достаточно одного блока питания!

Выключение компа одной кнопкой Найти похожие ветки