XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: Windows-Papierkorb abfragen
von Michael Dell
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&)+
    Dimensione: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Pattumiera...,48)

Else

    MessageBox(Di più als 2 GB im Pattumiera.,Im Pattumiera...,48)

EndIf

End