Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : CTRL_ALT_SUPPR
Désactive (réactive) l'action des touches CTRL+ALT+SUPPR.
(Consulté 19055 fois.)

' Déclaration d'API
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
     (
ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, _
   
ByVal fuWinIni As Long) As Long
' Déclaration de constante
Private Const SPI_SCREENSAVERRUNNING = 97

' Cette procédure permet de désactiver (et réactiver) les combinaisons :
' CTRL+ALT+SUPPR, CTRL+ECHAP et ALT+TAB
Public Sub CTRL_ALT_SUPPR(blOFF As Boolean)
' Si blOFF = True, désactive CTRL+ALT+SUPPR
' Si blOFF = False, active de nouveau CTRL+ALT+SUPPR
Dim lgRep As Long
lgRep = SystemParametersInfo(SPI_SCREENSAVERRUNNING, blOFF, False, 0)
End Sub

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr