Questions (Urgent !!)

Question

Bonjour,
J'ai 3 questions : 
1°) Comment afficher une application en plein écran ?
2°) Comment cacher la barre des taches ? et désactivé la touche "Windows" qui permet d'appeler le menu démarrer.
3°) Comment dsactiver les touches ALT-F4 qui permettent de fermer une application ?

Merci.

Aurevoir
ICQ : 44173737

flo · Answer

1) cacher barre des taches:
' Pour masquer la barre des tâches Windows
Dim handleW1 As Long

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal handleW1 As Long, _
ByVal handleW1InsertWhere As Long, ByVal w As Long, _
ByVal x As Long, ByVal y As Long, ByVal z As Long, _
ByVal wFlags As Long) As Long

Const TOGGLE_HIDEWINDOW = &H80
Const TOGGLE_UNHIDEWINDOW = &H40

Function HideTaskbar()
    handleW1 = FindWindowA("Shell_traywnd", "")
    Call SetWindowPos(handleW1, 0, 0, 0, _
         0, 0, TOGGLE_HIDEWINDOW)
End Function

Function UnhideTaskbar()
    Call SetWindowPos(handleW1, 0, 0, 0, _
         0, 0, TOGGLE_UNHIDEWINDOW)
End Function
2) pour l'affichage plein écran j'affecte des valeurs a .height et .width et windowstate=0