Hi at all.
*lol* I really know how to switch my screensaver on and off.
I need this procedure for my backup tool. One of my users got a problem, while a backup is running. If the screensaver turns on (with password activated), the backup stops. After entering the backup will continue. This is terrible, because he backups at night. So the backup will finish next morning
But I have found what I've looked for. Thanx to TROND at this point.
Here are the major functions as procedures if anyone needs:
Code: Select all
Procedure SK_GetScreensaverActive()
Protected bReturnCode.b
bReturnCode = #False
SystemParametersInfo_(#SPI_GETSCREENSAVEACTIVE, #Null, @bReturnCode, #Null)
ProcedureReturn bReturnCode
EndProcedure
Procedure SK_GetScreenSaverRunning()
Protected bReturnCode.b
bReturnCode = #False
SystemParametersInfo_(#SPI_GETSCREENSAVERRUNNING, #Null, @bReturnCode, #Null)
ProcedureReturn bReturnCode
EndProcedure
Procedure SK_GetScreenSaverTimeout()
Protected lReturnCode.l
lReturnCode = #False
SystemParametersInfo_(#SPI_GETSCREENSAVETIMEOUT, #Null, @lReturnCode, #Null)
ProcedureReturn lReturnCode
EndProcedure
Procedure SK_SetScreensaverActive(status.b)
Protected bReturnCode.b
bReturnCode = #False
If status = #True Or status = #False
If SystemParametersInfo_(#SPI_SETSCREENSAVEACTIVE, status.b, #Null, #Null)
bReturnCode = #True
EndIf
EndIf
ProcedureReturn bReturnCode
EndProcedure
Procedure SK_SetScreenSaverTimeout(NewTimeOutInSeconds.l)
Protected bReturnCode.b
bReturnCode = #False
If NewTimeOutInSeconds >= 1
If SystemParametersInfo_(#SPI_SETSCREENSAVETIMEOUT, NewTimeOutInSeconds, #Null, #Null)
bReturnCode = #True
EndIf
EndIf
ProcedureReturn bReturnCode
EndProcedure