Delphi World - Компонент PowerControl
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Компонент PowerControl

Она (улыбаясь и глядя вдаль):
- ... нет, все-таки человек должен просыпаться и видеть небо...
Он (открывая бутылку с пивом):
- Для это достаточно проснуться дома, протянуть руку и нажать Power

Вопрос:
А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.?
Ответ:
Предлагаем посмотреть следующий пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PowerControl1.Action := actCDEject; // Или... actLogOFF, actShutDown...
  PowerControl1.Execute;
end;

// ========================= //
//     Component Code:       //
// ========================= //

unit PowerControl;

interface

uses
  WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,
  Forms, Graphics, MMSystem;

type
  TAction = (actLogOFF, actShutDown, actReBoot, actForce, actPowerOFF,  actForceIfHung,
             actMonitorOFF, actMonitorON, actCDEject, actCDUnEject);

type
  TPowerControl = class(TComponent)
  private
    FAction: TAction;
    procedure SetAction(Value : TAction);
  protected
  public
    function Execute : Boolean;
  published
    property Action : TAction read FAction write SetAction;
end;

procedure register;

implementation

procedure register;
begin
  RegisterComponents('K2', [TPowerControl]);
end;

procedure TPowerControl.SetAction(Value: TAction);
begin
  FAction := Value;
end;

function TPowerControl.Execute: Boolean;
begin
  with (Owner as TForm) do
    case FAction of
      actLogOff: ExitWindowsEx(EWX_LOGOFF,1);
      actShutDown: ExitWindowsEx(EWX_SHUTDOWN,1);
      actReBoot: ExitWindowsEx(EWX_REBOOT,1);
      actForce: ExitWindowsEx(EWX_FORCE,1);
      actPowerOff: ExitWindowsEx(EWX_POWEROFF,1);
      actForceIfHung: ExitWindowsEx(EWX_FORCEIFHUNG,1);
      actMonitorOFF: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
      actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
      actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0, Handle);
      actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Handle);
    end;
    Result := True;
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования