delphi 防止系统睡眠

Windows检测到诸如键盘或鼠标输入之类的活动–长时间闲置后，系统可能会进入睡眠模式和/或关闭显示设备的电源。

这是您可以用来防止系统在关键操作期间进入休眠状态的单元。

unit SystemCriticalU;

interface

uses

Windows;

type

TSystemCritical = class

private

FIsCritical: Boolean;

procedure SetIsCritical(const Value: Boolean) ;

protected

procedure UpdateCritical(Value: Boolean) ; virtual;

public

constructor Create;

property IsCritical: Boolean read FIsCritical write SetIsCritical;

end;

var

SystemCritical: TSystemCritical;

implementation

{ TSystemCritical }

// REF: http://msdn.microsoft.com/en-us/library/aa373208.aspx

type

EXECUTION_STATE = DWORD;

const

ES_SYSTEM_REQUIRED = $00000001;

ES_DISPLAY_REQUIRED = $00000002;

ES_USER_PRESENT = $00000004;

ES_AWAYMODE_REQUIRED = $00000040;

ES_CONTINUOUS = $80000000;

KernelDLL = 'kernel32.dll';

{

SetThreadExecutionState Function

Enables an application to inform the system that it is in use,

thereby preventing the system from entering sleep or turning off the

display while the application is running.

}

procedure SetThreadExecutionState(ESFlags: EXECUTION_STATE);

stdcall; external kernel32 name 'SetThreadExecutionState';

constructor TSystemCritical.Create;

begin

inherited;

FIsCritical := False;

end;

procedure TSystemCritical.SetIsCritical(const Value: Boolean) ;

begin

if FIsCritical = Value then

Exit;

FIsCritical := Value;

UpdateCritical(FIsCritical);

end;

procedure TSystemCritical.UpdateCritical(Value: Boolean) ;

begin

if Value then

// Prevent the sleep idle time-out and Power off.

SetThreadExecutionState(ES_SYSTEM_REQUIRED or ES_CONTINUOUS)

else

// Clear EXECUTION_STATE flags to disable away mode and allow the

// system to idle to sleep normally.

SetThreadExecutionState(ES_CONTINUOUS);

end;

initialization

SystemCritical := TSystemCritical.Create;

finalization

SystemCritical.IsCritical := False;

SystemCritical.Free;

end.

Here's one usage example:

SystemCritical.IsCritical = true;

try

// do critical operation here

// without going in to sleep or turning off the display

finally

SystemCritical.IsCritical = false;

end;

推荐分享