Завершение работы [D7, WinXP]
1234 © (2006-07-15 23:50:00)
Здравствуйте !!!
Пожалуйста, подскажите как с помощью Делфи перевести
компьютер в спящий режим (ОС Win XP).
Зарание спасибо!!!
S@shka (2006-07-15 23:59:00) [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;
Наверх 
ЧАТ |
Орешник |
|
