Desktop-Icons ein/ausblenden Mit nur zwei API-Funktionen lassen sich die Symbole auf dem Windows-Desktop aus- und auch wieder einblenden.
Autor:   Maximilian Marx	Bewertung:     [ Jetzt bewerten ]	Views:  11.402
www.mmmw.my100megs.com	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 30 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nur zwei API-Funktionen lassen sich die Symbole auf dem Windows-Desktop aus- und auch wieder einblenden.

' zunächst die benötigten API-Deklarationen
Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Declare Function ShowWindow Lib "user32" ( _
  ByVal hWnd As Long, _
  ByVal nCmdShow As Long) As Long
 
Const SW_HIDE = 0
Const SW_RESTORE = 9
 
' Desktop-Symbole ausblenden
Public Sub DesktopIconsHide()
  Dim hWnd As Long
 
  hWnd = FindWindow(vbNullString, "Program Manager")
  If Not hWnd = 0 Then
    ShowWindow hWnd, SW_HIDE
  End If
End Sub
 
' Desktop-Symbole wieder anzeigen
Public Sub DesktopIconsShow()
  Dim hWnd As Long
 
  hWnd = FindWindow(vbNullString, "Program Manager")
  If Not hWnd = 0 Then
    ShowWindow hWnd, SW_RESTORE
  End If
End Sub

Beispielsaufruf:

Private Sub Command1_Click()
  ' Symbole ausblenden
  DesktopIconsHide
End Sub
 
Private Sub Command2_Click()
  ' Symbole wieder anzeigen
  DesktopIconsShow
End Sub