| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
автоматическое выключение компъютера [D6, WinXP]
Георгий © (2004-11-27 18:47:00)Доброе время суток мастера! Программе требуется в заданное время выключить комп. Скачал где то процедуру которая должна это
делать, но к сожалению делает это только в среде Дельфи. Подскажите где собака зарыта. Винда - 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:04:00) [1]Мой E-Mail: ExpressMaximum@mail.ru
Express (2004-11-27 19:01:00) [2]Георгий оставь свой E-mail и я тебе могу скинуть программу которая перезагружает, выходить из под пользователя и выключает комп в заданное тобой время!
Если тебе не нужна программа, тогда могу скинуть Компонент, который это все делает в том числе выключает комп.
| |
