XProfan

Def SHFileOperation(1) !SHELL32,SHFileOperationA
Declare opstruct#,dir#

Proc Delete32

    Löscht im Parameter (1) angegebenen Ordner samt Unterordnern (oder Datei)
    Parameter 2: 0 = User erst fragen, 1= ohne Nachfrage löschen
    Parameter 3:  0 = In Papierkorb verschieben, 1= endgültig löschen
    Parameters dir$,noconfirm%,norecycle%
    Declare FOF_Flag%
    Case noconfirm%: Let noconfirm%=16
    CaseNot norecycle%: Let norecycle%=64
    Let FOF_Flag% = Or(noconfirm%,norecycle%)
    Dim opstruct#,30
    Dim dir#,Add(Len(dir$),2)
    Platz für 2(!) Null-Bytes lassen
    String dir#,0=Add$(dir$,Chr$(0))
    Long opstruct#,0=%hwnd   Handle des aufrufenden Fensters
    Long opstruct#,4=3  FO_Delete
    Long opstruct#,8=dir#   pfrom : hier der zu löschende Ordner
    Long opstruct#,12=0     pto (muß 0 oder eine Bereichvar. mit Zieldateinamen
    z.B. bei Umbenennung sein
    Word opstruct#,16=FOF_Flag%
    Long opstruct#,18=0Hier steht nach dem Aufruf 1, wenn User abgebrochen hat
    Long opstruct#,22=0  Unbedingt immer auf Null setzen!
    Long opstruct#,26=0  Zeiger(Bereich) auf Überschrift des Fortschrittsdialogs

    IF Gt(ShFileOperation(opstruct#),0)

        MessageBox(Es ist ein Fehler aufgetreten,ShFileOperation,16)

    EndIf

    Dispose dir#
    Dispose opstruct#

EndProc

Declare files$
Let files$=C:\tile.bmp
Delete32 files$,2>0,0