système

Question

Je voudrais savoir comment désactiver la touche windows ainsi que la barre des tâches pendant l'éxécution de mon programme.
Merci.

pascal06 · Answer

'Dans le module au niveau déclaration

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

'Puis creer la procedure

Public Sub DesactiveTouches(KeysState As Boolean)
    Dim ret As Long
    Dim tmp As Boolean
    ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, Not KeysState, tmp, 0)
End Sub

'Pour désactiver les touches, envoyez False à la fonction DesactiveTouches, et True pour les ré-activer.

'dans form_load

DesactiveTouches (False)

'ne pas oublier de faire

DesactiveTouches (true)

'avant la fin du programme

Système

1 réponse

Discussions similaires