Windows-Papierkorb abfragen...

Horst Horn, 23.07.2006 14:21: Hallo an Alle
Auf der Oberfläche meiner Dateiverwaltung ist auch ein Button, um den Windows-Papierkorb aufzurufen. Wie kann ich aber, ähnlich dem Desctop-Symbol, diesem Button ein anderes Icon zuweisen wenn der Papierkorb Inhalt hat ? - Kurz, wie frage ich den Papierkorb ab ?

Michael D., 23.07.2006 19:27: Hallo Horst,
kleines Beispiel:

Declare RecycleInfo#

Struct SHQUERYRBINFO = cbSize&,i64SizeLow&,i64SizeHigh&,i64NumItemsLow&,i64NumItemsHigh&
Dim RecycleInfo#,SHQUERYRBINFO

'Def SHEmptyRecycleBin(3)   !"SHELL32.DLL","SHEmptyRecycleBinA"  ' %hwnd,lpRootPath$,dwFlags&
'Def SHUpdateRecycleBinIcon(0) !"SHELL32.DLL","SHUpdateRecycleBinIcon"
Def SHQueryRecycleBin(2)   !"SHELL32.DLL","SHQueryRecycleBinA"  ' lpRootPath$,RecycleInfo# als SHQUERYRBINFO

RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin("",RecycleInfo#)

IfNot RecycleInfo#.i64SizeHigh&
  MessageBox(("Einträge: "+Str$(RecycleInfo#.i64NumItemsLow&)+"\n\nGrösse: "+Str$(RecycleInfo#.i64SizeLow&)+" Bytes"),"Im Mülleimer...",48)
  Else
  MessageBox("Mehr als 2 GB im Mülleimer.","Im Mülleimer...",48)
EndIf

End

Horst Horn, 23.07.2006 20:14: Hallo Michael
Danke War genau das, was ich gesucht habe ! lupe

Dies ist die Offlinevariante vom Thread [Windows-Papierkorb abfragen...].