Api # Per disabilitare la combinazione di tasti HOT KEYS (CTRL+ALT, ALT+TAB, ecc) di
Win95 inserire la seguente dichiarazione e costante In un modulo Bas 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 x = Not X ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, X, pOld, 0) End Sub |