XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Sistema: Windows-Papierkorb abfragen
de Michael Dell
Declarar 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# como SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)

Caso negativo RecycleInfo#.i64SizeHigh&

    MessageBox((Einträge: +Str$(RecycleInfo#.i64NumItemsLow&)+
    Größe: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Basura...,48)

Más

    MessageBox(Más como 2 GB en el Basura.,Im Basura...,48)

EndIf

End