Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 0 - İzleme: 1970
Ctrl+Alt+Del kapat
Kod:
Option Explicit

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Const SPI_SETSCREENSAVERRUNNING = 97

[code]
Public Sub DisableCAD(Disabled As Boolean)

'SET DISABLED TO TRUE TO DISABLE CTRL-ALT-DELETE
'SET DISABLED TO FALSE TO RE-ENABLE

Dim lRet As Long
lRet = SystemParametersInfo(SPI_SETSCREENSAVERR
Task