home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / cad.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-28  |  430 b   |  13 lines
  1. Attribute VB_Name = "CAD"
  2.  
  3. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  4. Private Const SPI_SCREENSAVERRUNNING = 97&
  5.  
  6. Public Sub DisableKeys(dKeys As Boolean)
  7. Dim lReturn As Long
  8. Dim bPre As Boolean
  9. lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, dKeys, bPre, 0&)
  10.  
  11. End Sub
  12.  
  13.