arahan99 wrote:

> 수고하십니다.

> 고수님들 도와주세요..

>

> 전원관리 모드에서 사용되는

> 시스템 대기 모드의 실행과 해제

> 그리고 하드, 모니터를 끄고 켜는 방법을 알고 싶습니다.

> 아는 고수님들 한수 가르쳐 주십시요..

> 그럼 수고하십시요..





// 절약형 모니터만 동작합니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

// 모니터 켜기

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

// 모니터 끄기(Saver mode)

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

end;



end.