|
Вопрос # 730/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Подскажите пожалуйста как поставить комп программно именно в спящий режим, а не в ждущий. У меня SP2.Заранее благодарен.
 |
Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 12 июля 2007, 00:45
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: min@y™
Вот в хэлпе о функции SetSystemPowerState():
The SetSystemPowerState function suspends the system by shutting power down. Depending on the ForceFlag parameter, the function either suspends operation immediately or requests permission from all applications and device drivers before doing so.
BOOL SetSystemPowerState(
BOOL fSuspend,
BOOL fForce);
Parameters
fSuspend
Suspension technique. If TRUE, the system suspends using RAM-alive technique. Otherwise, suspends using hibernate technique.
fForce
Forced suspension. If TRUE, the function sends a PBT_APMSUSPEND message to each application and driver, then immediately suspends operation. If FALSE, the function sends a PBT_APMQUERYSUSPEND message to each application to request permission to suspend operation.
Существенные места я выделил жирным шрифтом.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 12 июля 2007, 08:20
|
Ответ #2. Отвечает эксперт: Градов Ю.М.
Здравствуйте, Geron!
В приложении посмотрите ответ на Ваш вопрос.
Удачи!!!
Приложение: Переключить в обычный режим- 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
- SetSystemPowerState(true, true);
- end;
- end;
 |
Ответ отправил: Градов Ю.М. (статус: 8-ой класс)
Время отправки: 12 июля 2007, 19:09
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|