Manejo Screen Saver Windows

[[ArdiIIa]]

Puedes controlar a windows cuando salta el protector de pantalla e interceptarlo..
Un ejemplo...

Código Delphi [-]
procedure TFormMain.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
begin
    Handled := False;

      if  (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
          Begin
            Handled := True;
                if (Screen.ActiveForm = FormMain ) and Handled then
                    Begin
                        Application.CreateForm(TFormAbout, FormAbout);
                        FormAbout.Show;
                    End;
          End;
End;