автоматическое выключение компъютера

← →
Георгий (2004-11-27 18:47) [0]

Доброе время суток мастера! Программе требуется в заданное время выключить комп. Скачал где то процедуру которая должна это
делать, но к сожалению делает это только в среде Дельфи. Подскажите где собака зарыта. Винда - WinXp

Procedure ShutdownComputer;
var
ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;
begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeShutdownPrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;

← →
Express (2004-11-27 19:01) [1]

Георгий оставь свой E-mail и я тебе могу скинуть программу которая перезагружает, выходить из под пользователя и выключает комп в заданное тобой время!

Если тебе не нужна программа, тогда могу скинуть Компонент, который это все делает в том числе выключает комп.

← →
Express (2004-11-27 19:04) [2]

Мой E-Mail: ExpressMaximum@mail.ru

автоматическое выключение компъютера Найти похожие ветки