Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Oct 8th, 2003 04:08 AM Post subject: Disable The Screen Saver |
 |
|
| Code: | Option Explicit
Private Const SPI_SETSCREENSAVERACTIVE = 17
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal _
uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As _
Long) As Long
Public Function ToggleScreenSaverActive(Active As Boolean) As Boolean
Dim lActiveFlag As Long
Dim retval As Long
lActiveFlag = IIf(Active, 1, 0)
retval = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, _
lActiveFlag, 0, 0)
ToggleScreenSaverActive = retval > 0
End Function
Private Sub Form_Load()
ToggleScreenSaverActive False
End Sub
Private Sub Form_Unload(Cancel As Integer)
ToggleScreenSaverActive True
End Sub |
|
|
