XProfan

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