[Casimiro Notevi]

He encontrado esto en... parece basic , pero de ahí se puede saber ya hacerlo en delphi

Código SQL [-]
Private Sub Form_Load()     
  Dim bActive As Boolean          ' Find out if screen saver is active, and display a suitable message.     
  SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False     
  If bActive Then         
    Me.Caption = "Screen saver is active"     
  Else         
    Me.Caption = "Screen saver is not active"     
  End If 
End Sub