martinkk
Messages postés16Date d'inscriptionmercredi 13 mars 2002StatutMembreDernière intervention22 août 2003
-
7 mai 2002 à 14:52
martinkk
Messages postés16Date d'inscriptionmercredi 13 mars 2002StatutMembreDernière intervention22 août 2003
-
7 mai 2002 à 17:53
je voudrais savoir comment cacher les icones sur le bureau de windows ?
comment desactiver ou activer le bouton demarrer ?
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 7 mai 2002 à 15:17
Pour les icones il y a :
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
martinkk
Messages postés16Date d'inscriptionmercredi 13 mars 2002StatutMembreDernière intervention22 août 2003 7 mai 2002 à 17:53
-------------------------------
Réponse au message :
-------------------------------
Pour les icones il y a :
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
-------------------------------
Réponse au message :
-------------------------------
je voudrais savoir comment cacher les icones sur le bureau de windows ?
comment desactiver ou activer le bouton demarrer ?
-------------------------------------------------------
voilà le code pour desactiver le bouton demarrer
Public Function hideStartButton()
'This Function Hides the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button",vbNullString)
ShowWindow OurHandle&, 0
End Function
Public Function showStartButton()
'This Function Shows the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button",vbNullString)