XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
System: Windows-corbeille à papier abfragen
de Michael Dell
Déclarer RecycleInfo#
Struct SHQUERYRBINFO = cbSize&,i64SizeLow&,i64SizeHigh&,i64NumItemsLow&,i64NumItemsHigh&
Faible 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# comme SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)

Si non RecycleInfo#.i64SizeHigh&

    MessageBox((Einträge: +Str$(RecycleInfo#.i64NumItemsLow&)+
    Taille: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Poubelle...,48)

D'autre

    MessageBox(plus comme 2 GB im Poubelle.,Im Poubelle...,48)

EndIf

Fin