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

Как перевести компьютер в спящий режим (WinXP)   Найти похожие ветки 

← →
mitur   (2003-08-18 11:00) [0]

Функция SetSystemPowerState(true,true) не работает. Просто ничего не происходит.
Смотрел функцию DeMon"a-777 NTSleep и NTWait - результат тот же.

---

← →
Song ©   (2003-08-18 11:03) [1]

Прав не хватает. Используй функцию AdjustTokenPriviligies() чтобы получить соответствующие права.

---

← →
mitur   (2003-08-18 11:19) [2]

Естественно, я использую

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;
Делаю вот так.

---

← →
Ray Adams ©   (2003-08-19 00:12) [3]

SetSystemPowerState(false,false); Hibbernate
SetSystemPowerState(true,false); Stand By
Я эти юзал в программе для быстрого вырубания компа.

---

← →
KosilkA ©   (2003-08-20 13:41) [4]

winexec

%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState

---

← →
mitur ©   (2003-08-20 13:43) [5]

Спасибо, попробую

---

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

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



Память: 0.46 MB
Время: 0.016 c