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