vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: Windows/System22.03.05
SHUpdateRecycleBinIcon-Funktion

Diese Funktion zeichnet das Icon des Papierkorbes systemweit neu.

Betriebssystem:  Win95, Win98, WinNT 4.0, Win2000, WinMEViews:  2.701 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Deklaration:

    Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long

    Beschreibung:
    Diese Funktion zeichnet das Icon des Papierkorbes systemweit neu.

    Parameter:
    keine

    Rückgabewert:
    Ist die Funktion erfolgreich, so wird der Wert "0" zurückgegeben, andernfalls ist die Rückgabe einWert "ungleich 0", der den Fehler beschreibt.

    Beispiel:

    Private Declare Function SHQueryRecycleBin Lib "shell32.dll" _
      Alias "SHQueryRecycleBinA" ( _
      ByVal pszRootPath As String, _
      pSHQueryRBInfo As SHQUERYRBINFO) As Long
    Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
    Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _
      Alias "SHEmptyRecycleBinA" ( _
      ByVal hwnd As Long, _
      ByVal pszRootPath As String, _
       ByVal dwFlags As Long) As Long
    Private Declare Sub MoveMemory Lib "kernel32" _
      Alias "RtlMoveMemory"  ( _
      Destination As Any, _
      Source As Any, _
      ByVal Length As Long)
     
    Private Type ULARGE_INTEGER
      LowPart As Long
      HighPart As Long
    End Type
     
    Private Type SHQUERYRBINFO
      cbSize As Long
      i64Size As ULARGE_INTEGER
      i64NumItems As ULARGE_INTEGER
    End Type
     
    ' SHEmptyRecycleBin dwFlags-Konstanten
    Private Const SHERB_NOCONFIRMATION = &H1 ' Es wird kein Dialog zum 
    ' Bestätigen eingeblendet
    Private Const SHERB_NOPROGRESSUI = &H2 ' Es wird kein Fortschrittsfenster  
    ' beim Löschen der Objekte angezeigt
    Private Const SHERB_NOSOUND = &H4 ' Es wird kein Sound beim Beenden des  
    ' Leerungsvorganges abgespielt
    ' Papierkorbinformationen sammeln und eventuell leeren
    Private Sub Command1_Click()
      Dim Retval As Long, BinInfo As SHQUERYRBINFO
      Dim TmpCur As Currency, TmpSize As String
      Dim MsgRet As Long
     
      ' Strukturgröße setzen
      BinInfo.cbSize = Len(BinInfo)
     
      ' Eigenschaft des Papierkorbes ermitteln
      Retval = SHQueryRecycleBin("c:\", BinInfo)
     
      ' Ermitteln der Gesamtgröße des Papierkorbinhaltes in MegaBytes
      MoveMemory TmpCur, BinInfo.i64Size, Len(TmpCur)
      TmpSize = Format$(TmpCur * 10000 / 1024, "0.000 MB")
     
      If BinInfo.i64NumItems.LowPart < 0 Then
        MsgRet = MsgBox("Wollen sie den Papierkorb leeren ?", vbYesNo,  _
        TmpSize & " in " & BinInfo.i64NumItems.LowPart & " Dateien")
        If MsgRet = vbYes Then
          SHEmptyRecycleBin Me.hwnd, "c:\", SHERB_NOCONFIRMATION
          SHUpdateRecycleBinIcon
        End If
      Else
        MsgBox "Der Papierkorb beinhaltet keine Objekte auf Laufwerk ""C:\""" 
      End If
    End Sub

    Diese Seite wurde bereits 2.701 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel