К списку форумов К списку вопросов
Как в Delphi-7 сделать Shut Down
JHN
15.10.2004 - 23:28
Можно ли програмно вырубить комп? Например по событию OnTimer. Или хотя бы уйти в Sleep.
Заранее спасибо.
Volvo
1 - 16.10.2004 - 01:57
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;

К списку вопросов на форуме Программирование

>>