Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

Ответ
 
Опции темы
Старый 03.04.2017, 21:16   #1
Заблокирован
 Сержант
Аватар для craft1n
 
craft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражания
Регистрация: 02.08.2016
Сообщений: 124
Популярность: 1739
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 4 сообщениях
Отправить сообщение для craft1n с помощью Skype™
 
Post Функция перевода в спящий режим

Я покажу вам как ваш пк/ноут перевести в спящий режим программно в Delphi.

Для этого используем функцию:

Код:
procedure NTSleep;
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; // one privelege to set
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
      SetSystemPowerState(true, true);
  end;
end;
Используем так, например при нажатии на Button:

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
NTSleep;
end;



Взято с dark-time.com
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Насчет перевода юаней ZIKENDEK Общение и обсуждение Perfect World 8 28.06.2012 12:09

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 17:17.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net