Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Как вырубить питание?   Найти похожие ветки 

← →
Black   (2003-05-23 14:24) [0]

Мастера, подскажите пожалуйста как выключить компьютер?

---

← →
clickmaker ©   (2003-05-23 14:42) [1]

ExitWindowsEx(0, EWX_POWEROFF)

---

← →
Song ©   (2003-05-23 14:51) [2]

Нажать на кнопку Power

---

← →
Opuhshii ©   (2003-05-23 18:44) [3]

2Black (23.05.03 14:24)
вопрос этот поднимается часто,.. но все же
для Win95/98
ExitWindowsEx(0, EWX_POWEROFF)

для NT-систем для процесса необходимо установить привелегию на выключение компьютера SeShutdownPrivilege

var
ProcessToken:THandle;
aTOKEN_PRIVILEGES:TTokenPrivileges;
ShutDownLuid:TLargeInteger;
Dummy:Dword;
....
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ProcessToken);
LookupPrivilegeValue("","SeShutdownPrivilege",ShutDownLuid);
with aTOKEN_PRIVILEGES do begin
PrivilegeCount:=1;
Privileges[0].Luid:=ShutDownLuid;
Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
end;
if AdjustTokenPrivileges(ProcessToken,FALSE,aTOKEN_PRIVILEGES,0,nil,Dummy) then
ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF,0);
...

AdjustTokenPrivileges активизирует уже имеющиеся у процесса привелегии, но не добавляет новых, т.е. если процесс создан пользователем не имеющим прав на выключение компьютера, соответственно SeShutdownPrivilege у процесса не будет.

---

← →
Vit@ly ©   (2003-05-23 20:15) [4]

Для Win95/98 можно и так:
WinExec(PChar("rundll32 shell32,SHExitWindowsEx 1"), SW_Show);

---

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

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c