Public Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _ ByVal uParam As Long, lpvParam As Any, _ ByVal fuWinIni As Long) As Long Public Const SPI_SCREENSAVERRUNNING = 97 'Scrivere questa routine da richiamare come segue: 'HotKeyEnabled False (per disabilitare) 'oppure HotKeyEnabled True (per abilitare) Sub HotKeyEnabled (x As Boolean) Dim ret As Integer Dim pOld As Boolean ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, x, ZpOld, 0) End Sub |