 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
Activer Ctrl + Alt + Suppr et Alt + Tab 
Cette API permet d'activer la combinaison des touches CTRL + ALT + SUPPR et ALT + TAB
'Déclaration
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
Private Const SPI_SCREENSAVERRUNNING = 97
'Procédure
Public Sub ActiveCtrlAltSupprEtAltTab()
Dim ret As Integer
Dim pOld As Boolean
ret=SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
Il y a aussi : Désactiver Ctrl + Alt + Suppr et Alt + Tab
Cette API permet de désactiver la combinaison des touches CTRL + ALT + SUPPR et ALT + TAB
'Déclaration
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
Private Const SPI_SCREENSAVERRUNNING = 97
'Procédure
Public Sub DesctiveCtrlAltSupprEtAltTab()
Dim ret As Integer
Dim pOld As Boolean
ret=SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
|
|
 |
|
 |
|
IDDN Certification
