Узнать, включен ли хранитель экрана

Previous  Top  Next

    
 

 

Code:

function ScreenSaverEnabled: Boolean;

var

  status: Bool;

begin

  SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @status, 0);

  Result := status = True;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if ScreenSaverEnabled then

    Caption := 'Screensaver is enabled.'

  else

    Caption := 'Screensaver is disabled.'

end;

 

©Drkb::02384

Взято с сайта: http://www.swissdelphicenter.ch