Автор: Konstantin Kotzev
Вопрос: А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.? Ответ: предлагаем посмотреть следующий пример …
Совместимость: все версии Delphi
Пример:
procedure TForm1.Button1Click(Sender: TObject); begin PowerControl1.Action:=actCDEject;// Или... actLogOFF, actShutDown... PowerControl1.Execute; end;