XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: Papierkorbgröße ermitteln
Def @Shqueryrecyclebin(2) !SHELL32.DLL,SHQueryRecycleBinA
Def @Getlasterror(0) !KERNEL32,GetLastError
Def @Setlasterror(1) !KERNEL32,SetLastError
Windowstyle 31
Windowtitle Papierkorbgröße ermitteln
Window 0,0-640,440
Declare Root$,Shqueryrbinfo#,Api&
Decimals 0
Let Root$=C:
Dim Shqueryrbinfo#,20
Long Shqueryrbinfo#,0=20
@Setlasterror(0)
Print @Shqueryrecyclebin(@Addr(Root$),Shqueryrbinfo#)
Let Api&=@Getlasterror()
Print API-Fehler: +@Str$(Api&)
Print Größe des Papierkorbs: +@Str$(@Long(Shqueryrbinfo#,4))+ Bytes
Print Anzahl der Dateien: +@Str$(@Long(Shqueryrbinfo#,12))
Dispose Shqueryrbinfo#

While 0=0

    Waitinput

Wend