Bonjour,
je cherche a masquer la barre des taches Windows lorsque lance mon application, pour que l'utilisateur n'y ai plus acces.
Quelqu'un saurait-il faire ca?
merci
Bonjour,
je cherche a masquer la barre des taches Windows lorsque lance mon application, pour que l'utilisateur n'y ai plus acces.
Quelqu'un saurait-il faire ca?
merci
A priori c'est dans les API Windows, exemple pour VB6 à adapter en .NET
Message édité par Abelman
[cf MP]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Const TOGGLE_HIDEWINDOW = &H80 Const TOGGLE_UNHIDEWINDOW = &H40 Private Function TaskbarHandle() As Long TaskbarHandle = FindWindow("Shell_traywnd", "") End Function Private Sub HideTaskbar() Call SetWindowPos(TaskbarHandle(), 0, 0, 0, 0, 0, TOGGLE_HIDEWINDOW) End Sub Private Sub UnhideTaskbar() Call SetWindowPos(TaskbarHandle(), 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW) End Sub Private Sub Form_Load() HideTaskbar 'Masque la barre de tâches Sleep 3000 'Attend 3 secondes UnhideTaskbar 'Réaffiche la barre des tâches End Sub
merci pour ton code, c'est ce qu'il me faut car je l'ai aussi trouvé sur un autre site avec un executable et ca marche...
Par contre je n'arrive pas a le transporter en VB.Net : il n'y a pas d'erreur de compilation mais ca ne marche pas...je ne comprends pas trop pour l'instant pourquoi...
C'est bon ca marche, j'ai trouvé une autre manière de déclarer FindWindow et SetWindowPos et ca marche. Voila donc comment (mais c'est vraiment tres proche de la solution que tu m'as donné :
Voila merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer Const TASKBAR_SHOW As Integer = &H40 Const TASKBAR_HIDE As Integer = &H80 Public Sub CacherBarreTacheWindows() Dim TaskbarHandle As Long TaskbarHandle = FindWindow("Shell_traywnd", "") SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&, TASKBAR_HIDE) End Sub Public Sub MontrerBarreTacheWindows() Dim TaskbarHandle As Long TaskbarHandle = FindWindow("Shell_traywnd", "") SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&,TASKBAR_SHOW) End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager