'модуль SystemInfo

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

Public Type STICKKYKEYS

   cbSize As Long

   dwFlags As Long

End Type

 

Public Const SKF_HOTKEYACTIVE = 4

Private Const SPI_GETSTICKYKEYS = 58

Private Const SPI_SETSTICKYKEYS = 59

 

Property Get stickkyKeysInf() As STICKKYKEYS

  stickkyKeysInf.cbSize = Len(stickkyKeysInf)

  SystemParametersInfo SPI_GETSTICKYKEYS, stickkyKeysInf.cbSize, stickkyKeysInf, 0&

End Property

'typedef struct tagSTICKYKEYS {

'    DWORD  cbSize;

'    DWORD  dwFlags;

'} STICKYKEYS, *LPSTICKYKEYS;

 

Property Let stickkyKeysInf(st As STICKKYKEYS)

  st.cbSize = Len(st)

  SystemParametersInfo SPI_SETSTICKYKEYS, st.cbSize, st, 0&

End Property

Private Sub setStickkyKeysHotKeyActive(YesNo As Boolean)

  

    Dim st As STICKKYKEYS

  

    st = SystemInfo.stickkyKeysInf

 

  If YesNo Then

    st.dwFlags = st.dwFlags Or SKF_HOTKEYACTIVE

  Else

    st.dwFlags = st.dwFlags And (Not SKF_HOTKEYACTIVE)

  End If

    SystemInfo.stickkyKeysInf = st

End Sub