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

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

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

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

Шустрый © (2003-06-29 14:10:00)

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

BJValentine (2003-07-01 12:14:00) [1]

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

Nucl (2003-07-01 09:17:00) [2]

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);

vidiv (2003-07-01 07:24:00) [3]

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

DVM (2003-06-29 16:23:00) [4]
http://delphibase.endimus.com/?action=viewtopic&topic=syscontrol

Shluz (2003-06-29 16:01:00) [5]

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

Anatoly Podgoretsky (2003-06-29 15:46:00) [6]

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

DrPass (2003-06-29 15:43:00) [7]

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

Anatoly Podgoretsky (2003-06-29 15:02:00) [8]

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

Palladin (2003-06-29 14:23:00) [9]

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

See also: AjustTokenPrivileges

+ инет

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

Наверх

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