Taskbar ausblenden

'Hier zunächst die entsprechende Klasse:
'Auf Wunsch kann noch eine Sicherheitsabfrage eingeblendet
'werden.

'Den auskemmentierten Messageboxblock wieder einbinden


Option Strict On
Option Explicit On

Imports Microsoft.VisualBasic

Public Class clsHideTaskbar

Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, _
                                                           ByVal lpWindowName As String) As Integer

Private Declare Auto Sub 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)

Public Sub TaskBarVisible(ByVal Visible As Boolean)
        Dim Handle As Integer = FindWindow("Shell_TrayWnd", "")

        If Visible = True Then
            SetWindowPos(Handle, 0, 0, 0, 0, 0, 64)
            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINESoftware" & _

Alte URL: /snippet/taskbar-ausblenden/427