VB-Homepage Tipp 105

Windows95/98 Startleiste ausblenden

Sie haben sicher schon einen praktischen Nutzen im Hinterkopf, wenn Sie diesen Tipp ausgewählt haben. Mit fällt im Moment nicht so recht etwas dazu ein.
Aber man könnte ja die Startleiste ausblenden um eine eigene Startleiste zu definieren oder man blendet die Startleiste aus Sicherheitsgründen aus, so kann der User nur die Programme nutzen die als Icon auf dem Desktop liegen.
(Ich seh schon die freundlichen Gesichter)
Sei es wie es sei, hier der Tipp.

Allgemein/Deklarationen (bei Modul Private weglassen)
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
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80

Ausblenden der Startleiste (Taskbar)
taskbarWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(taskbarWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

Einblenden der Startleiste (Taskbar)
taskbarWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(taskbarWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)


Tipp-Download

Quelle :

Zurück zur Übersichtsseite