Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

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

 
©   (2003-09-15 12:43) [0]

?


 
-=Vlad=- ©   (2003-09-15 12:51) [1]

ExitWindowsEx(EWX_SHUTDOWN,0); - выключить
ExitWindowsEx(EWX_REBOOT,0); - перезагрузить


 
Alibaba ©   (2003-09-15 14:44) [2]

procedure TfrmShut.Shut;
var
ph: THandle;
tp,prevst: TTokenPrivileges;
rl: DWORD;
begin
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);
Application.Terminate;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
4-79239
Zergling
2003-09-25 13:13
2003.11.24
Рисование в главном цикле программы


14-79172
Думкин
2003-10-31 05:58
2003.11.24
С днем рождения! 31 октября.


3-78860
gedd
2003-10-29 11:27
2003.11.24
ADSI Как получить реквизиты пользователя в домене?


4-79221
w666w
2003-09-30 12:29
2003.11.24
TerminateThread - почему не работает?


14-79129
MPS
2003-11-01 15:07
2003.11.24
Группы новостей