Accueil > Forum > > > > comment desactiver le menu du bouton "demarrer"
 comment desactiver le menu du bouton "demarrer"
samedi 18 mai 2002 à 14:38:08 |
comment desactiver le menu du bouton "demarrer"
martinkk
|
1 - comment desactiver le menu du bouton "demarrer". 2 - comment desactiver le menu contextuel de la barre de tache ? |
|
dimanche 19 mai 2002 à 16:49:16 |
Re : comment desactiver le menu du bouton
Noxid
|
Voila le code à entrer dans un MODULE:
'-DEBUT-
Option Explicit
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private hWndBarreTaches As Long
Private EstBarreTachesActive As Integer
Sub SwitchTaches(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
'Pour désactiver:
Public Sub DesactiverBarreTaches()
Dim EWindow As Integer
hWndBarreTaches = FindWindow("Shell_traywnd", "")
If hWndBarreTaches <> 0 Then
'regarde si la fenêtre est active (enabled)
EWindow = IsWindowEnabled(hWndBarreTaches)
If EWindow = 1 Then 'Si active, on la désactive
EstBarreTachesActive = EnableWindow(hWndBarreTaches, 0)
End If
End If
End Sub
'Pour réactiver:
Public Sub ActiverBarreTaches()
If EstBarreTachesActive = 0 Then
EstBarreTachesActive = EnableWindow(hWndBarreTaches, 1)
End If
End Sub
'-FIN-
|
|
mardi 27 mai 2003 à 18:01:19 |
Re : comment desactiver le menu du bouton
tiracoon
|
-------------------------------
Réponse au message :
-------------------------------
> Voila le code à entrer dans un MODULE:
>
>
> '-DEBUT-
>
> Option Explicit
>
> Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
> Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
> Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
> Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
>
> Private hWndBarreTaches As Long
> Private EstBarreTachesActive As Integer
>
> Sub SwitchTaches(bEnabled As Boolean)
> Dim X As Long, bDisabled As Long
>
> bDisabled = Not bEnabled
> X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
>
> End Sub
>
>
> 'Pour désactiver:
>
> Public Sub DesactiverBarreTaches()
>
>
> Dim EWindow As Integer
> hWndBarreTaches = FindWindow("Shell_traywnd", "")
> If hWndBarreTaches <> 0 Then
> 'regarde si la fenêtre est active (enabled)
> EWindow = IsWindowEnabled(hWndBarreTaches)
>
> If EWindow = 1 Then 'Si active, on la désactive
> EstBarreTachesActive = EnableWindow(hWndBarreTaches, 0)
> End If
> End If
> End Sub
>
>
> 'Pour réactiver:
> Public Sub ActiverBarreTaches()
>
> If EstBarreTachesActive = 0 Then
> EstBarreTachesActive = EnableWindow(hWndBarreTaches, 1)
> End If
>
> End Sub
>
> '-FIN-
>
>
|
|
mardi 27 mai 2003 à 18:07:04 |
Re : comment desactiver le menu du bouton
tiracoon
|
Mais c'est dingue ça, ça fait 2 jours que je cherche partout comment désactiver complètement ce menu démarrer et je ne trouve aucune réponse. Ben oui quand on fait ce qui est proposé ci-dessous (qui est aussi sur le site Msdn d'ailleurs...) ça désactive ou cache la barre des tâches mais le menu apparaît toujours, soit par CTRL ESC soit par la touche Windows. alors pour la touche windows c bon, mais pour CTRL ESC pas trouvé...
Mais pour une fois, quelqu'un aurait-il une VRAIE solution à ce problème de Menu Démarrer car là je vois pas!!!
Thanks d'avance
-------------------------------
Réponse au message :
-------------------------------
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Voila le code à entrer dans un MODULE:
> >
> >
> > '-DEBUT-
> >
> > Option Explicit
> >
> > Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
> > Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
> > Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
> > Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
> > Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
> >
> > Private hWndBarreTaches As Long
> > Private EstBarreTachesActive As Integer
> >
> > Sub SwitchTaches(bEnabled As Boolean)
> > Dim X As Long, bDisabled As Long
> >
> > bDisabled = Not bEnabled
> > X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
> >
> > End Sub
> >
> >
> > 'Pour désactiver:
> >
> > Public Sub DesactiverBarreTaches()
> >
> >
> > Dim EWindow As Integer
> > hWndBarreTaches = FindWindow("Shell_traywnd", "")
> > If hWndBarreTaches <> 0 Then
> > 'regarde si la fenêtre est active (enabled)
> > EWindow = IsWindowEnabled(hWndBarreTaches)
> >
> > If EWindow = 1 Then 'Si active, on la désactive
> > EstBarreTachesActive = EnableWindow(hWndBarreTaches, 0)
> > End If
> > End If
> > End Sub
> >
> >
> > 'Pour réactiver:
> > Public Sub ActiverBarreTaches()
> >
> > If EstBarreTachesActive = 0 Then
> > EstBarreTachesActive = EnableWindow(hWndBarreTaches, 1)
> > End If
> >
> > End Sub
> >
> > '-FIN-
> >
> >
>
|
|
dimanche 22 juin 2003 à 19:51:58 |
Re : comment desactiver le menu du bouton
matra
|
-------------------------------
Réponse au message :
-------------------------------
>
> Mais c'est dingue ça, ça fait 2 jours que je cherche partout comment désactiver complètement ce menu démarrer et je ne trouve aucune réponse. Ben oui quand on fait ce qui est proposé ci-dessous (qui est aussi sur le site Msdn d'ailleurs...) ça désactive ou cache la barre des tâches mais le menu apparaît toujours, soit par CTRL ESC soit par la touche Windows. alors pour la touche windows c bon, mais pour CTRL ESC pas trouvé...
> Mais pour une fois, quelqu'un aurait-il une VRAIE solution à ce problème de Menu Démarrer car là je vois pas!!!
>
> Thanks d'avance
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Voila le code à entrer dans un MODULE:
> > >
> > >
> > > '-DEBUT-
> > >
> > > Option Explicit
> > >
> > > Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
> > > Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
> > > Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
> > > Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
> > > Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
> > >
> > > Private hWndBarreTaches As Long
> > > Private EstBarreTachesActive As Integer
> > >
> > > Sub SwitchTaches(bEnabled As Boolean)
> > > Dim X As Long, bDisabled As Long
> > >
> > > bDisabled = Not bEnabled
> > > X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
> > >
> > > End Sub
> > >
> > >
> > > 'Pour désactiver:
> > >
> > > Public Sub DesactiverBarreTaches()
> > >
> > >
> > > Dim EWindow As Integer
> > > hWndBarreTaches = FindWindow("Shell_traywnd", "")
> > > If hWndBarreTaches <> 0 Then
> > > 'regarde si la fenêtre est active (enabled)
> > > EWindow = IsWindowEnabled(hWndBarreTaches)
> > >
> > > If EWindow = 1 Then 'Si active, on la désactive
> > > EstBarreTachesActive = EnableWindow(hWndBarreTaches, 0)
> > > End If
> > > End If
> > > End Sub
> > >
> > >
> > > 'Pour réactiver:
> > > Public Sub ActiverBarreTaches()
> > >
> > > If EstBarreTachesActive = 0 Then
> > > EstBarreTachesActive = EnableWindow(hWndBarreTaches, 1)
> > > End If
> > >
> > > End Sub
> > >
> > > '-FIN-
> > >
> > >
> >
>
essay d' hiniber les touches "esc" & "ctr" par les code ascii
je vais voir sa car j'ais besoin de ses fonction aussi pour un petit programme
donne moi ton email je te donnerer la réponse une fois téster
voici le mien (virginie-viot@wanadoo.fr)
|
|
Cette discussion est classée dans : bouton, menu, desactiver, demarrer
 Répondre à ce message
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|