Comment cacher les icones sur le bureau?

Signaler
Messages postés
16
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
22 août 2003
-
Messages postés
16
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
22 août 2003
-
je voudrais savoir comment cacher les icones sur le bureau de windows ?
comment desactiver ou activer le bouton demarrer ?

2 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

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

Cacher :)
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0

Visible
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 5

<center>http://www.lynx-asp.fr.st
WebMaster</center>
Messages postés
16
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
22 août 2003

-------------------------------
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

Cacher :)
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0

Visible
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 5

<center>http://www.lynx-asp.fr.st
WebMaster </center>

-------------------------------
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)

ShowWindow OurHandle&, 5
End Function