Завершение работы

← →
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;

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