Скачать: CL | DM;

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

← →
Шустрый ©   (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

---

← →
vidiv ©   (2003-07-01 07:24) [7]

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

---

← →
Nucl ©   (2003-07-01 09:17) [8]

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

---

← →
BJValentine ©   (2003-07-01 12:14) [9]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c