Скачать: CL | DM;

Завершение работы   Найти похожие ветки 

← →
1234   (2006-07-15 23:50) [0]

Здравствуйте !!!
Пожалуйста, подскажите как с помощью Делфи перевести компьютер в спящий режим (ОС Win XP).
Зарание спасибо!!!

---

← →
S@shka ©   (2006-07-15 23:59) [1]

http://old.osp.ru/win2000/worknt/advice/16adv08.htm  - это так для прочитать )))

А вот по вопросу ....

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;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.039 c