Как определить установлен ли screen saver?

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::02380

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