|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.03.2008, 09:36 | #1 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
Выключение и перезагрузка
Подскажите пожалуйста функцию выключения компа и/или его перезагрузки. Очень надо. Заранее спасибо.
|
26.03.2008, 10:08 | #2 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Системная прога, "shutdown", вызови её в командной строке с параметром "/?" и смотри как она работает.
Потом в своей проге вызывай её как положено и всё.
Всё гениальное - просто!
|
26.03.2008, 11:27 | #3 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
А можешь написать конкретную функцию выключения и/или перезагрузки компа?
|
26.03.2008, 11:31 | #4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
26.03.2008, 11:41 | #5 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Конечно есть отдельная функция для этого дела, только она не ахти как работает на Win XP
мои наработки (если в винде есть спец проги для этого, зачем что-то придумывать.) Код:
Всё гениальное - просто!
|
26.03.2008, 12:13 | #6 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можешь сделать так:
Для перезагрузки: procedure TForm1.Button1Click(Sender: TObject); var hToken: THandle; tkp: TTokenPrivileges; ReturnLength: Cardinal; begin if OpenProcessToken(GetCurrentProcess( ), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then ExitWindowsEX(EWX_REBOOT,0); end; end; А что бы выключить компьютер, то команду ExitWindowsEX(EWX_REBOOT,0); замени на ExitWindowsEX(EWX_SHUTDOWN,0);
Всегда рад помочь!
|
26.03.2008, 12:29 | #7 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
26.03.2008, 12:36 | #8 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
СПАСИБО ОГРОМНОЕ ВСЕМ! ВСЕ РАБОТАЕТ
|
26.03.2008, 16:24 | #9 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перезагрузка компа | Pusher | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 14 | 19.02.2008 20:54 |
Выключение/Перезагрузка в Vista | Veiron | Общие вопросы Delphi | 5 | 13.01.2008 09:35 |
Перезагрузка | LAFam | Win Api | 13 | 09.12.2007 09:15 |
выключение, перезагрузка компьютера | ATL | Win Api | 4 | 16.05.2007 01:57 |
выключение компьютера | Svop | Общие вопросы Delphi | 23 | 18.12.2006 22:57 |