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

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
;

Другое по теме:

• Хранитель экрана
• Устанавливаем свой WallPaper для Windows
• ScreenMate