Any help would be greatly appreciated

Code: Select all
Procedure.b CheckBlankerOrLock()
;Check if Desktop active, else it's locked or switched
If (GetForegroundWindow_() = 0) : ProcedureReturn #True : EndIf
;Check screensaver
SystemParametersInfo_(#SPI_GETSCREENSAVERRUNNING, 0, @SSaverIsActive.l, 0)
If (SSaverIsActive = #True) : ProcedureReturn #True : EndIf ;screensaver is running
ProcedureReturn #False
EndProcedure