Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Вниз

Как перейти в спяций режим програмно (hibernate)   Найти похожие ветки 

← →
kukuikar   (2008-03-07 13:03) [0]

Вот нашел для ждущего режима, но надо для спящего:

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;

---

← →
Zeqfreed ©   (2008-03-07 14:00) [1]

echo disk > /sys/power/stat :)

---

← →
Zeqfreed ©   (2008-03-07 14:06) [2]

А вообще, см. SetSuspendState :)

---

← →
kukuikar   (2008-03-07 22:01) [3]

> Zeqfreed ©   (07.03.08 14:06) [2]

Спасибо.

---

← →
VirEx ©   (2008-03-07 23:08) [4]

нет, функция называется BayuBayushkiBayu()

---

← →
kukuikar   (2008-03-08 23:24) [5]

> VirEx ©   (07.03.08 23:08) [4]
>
> нет, функция называется BayuBayushkiBayu()

остряк

---

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

Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c