Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2018, 16:43   #1
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
Лампочка как принудительно в спящий режим Win XP?

привет, подскажите, как принудительно в спящий режим Win XP?

это обычно:

Код:
procedure ShutdownComputer;
var
   hToken:THandle;
   tkp:TTokenPrivileges;
   RetunrLength: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,RetunrLength) then
SetSystemPowerState(True,True);
end;
end;
что добавить и куда?
Код:
EWX_SHUTDOWN or EWX_FORCE

Последний раз редактировалось beegl; 26.11.2018 в 16:45.
beegl вне форума Ответить с цитированием
Старый 26.11.2018, 17:36   #2
mihаli4
никакой
Пользователь
 
Аватар для mihаli4
 
Регистрация: 21.05.2018
Сообщений: 35
По умолчанию

winexec(Pchar('rundll32.exe powrprof.dll,SetSuspendState'),sw_S how);
mihаli4 вне форума Ответить с цитированием
Старый 26.11.2018, 18:02   #3
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
По умолчанию

mihаli4, не помогло, там какой-то драйвер "поломался", .. даже FORCE не срабатывает)



Я наверно ОС переустановлю, а то очень много ошибок! ..

Последний раз редактировалось beegl; 26.11.2018 в 19:34. Причина: add text
beegl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
(не)Спящий режим Дmmm Windows 4 08.04.2015 12:44
Выключение перезагрузка спящий режим delphi 7 win 7 Alexandr17 Общие вопросы Delphi 2 05.08.2014 21:56
Спящий режим ололошенько Помощь студентам 21 10.09.2013 18:47
спящий режим в виндовс 7 west777 Помощь студентам 1 23.02.2011 12:53
Тормозит спящий режим Arigato Операционные системы общие вопросы 28 31.10.2010 11:27