XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Systemfunktion: Papierkorb leeren
Def EmptyRecycleBin(3) ! shell32,SHEmptyRecycleBinA
Def UpdateRecycleBinIcon(0) ! shell32,SHUpdateRecycleBinIcon

Proc EmptyBin

    parameters lw$,flag&
    Declare lw#
    dim lw#,255
    string lw#,0 = lw$
    EmptyRecycleBin(getactivewindow(),lw#,flag&)
    UpdateRecycleBinIcon()
    Dispose lw#

endproc

cls
emptybin C:,4
waitinput
Erwartet eine oder ein Kombination aus mehreren der dwFlags-Konstanten die zusätzliche
Optionen für das leeren des Papierkorbes einstellen.
SHERB_NOCONFIRMATION = $1 Es wird kein Dialog zum bestätigen eingeblendet
SHERB_NOPROGRESSUI   = $2 Es wird kein Fortschrittsfentser beim Löschen der Objekte angezeigt
SHERB_NOSOUND        = $4 Es wird kein Sound beim beenden des Leerungsvorganges abgespielt