XProfan

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Dieter
Zornow

Hallo Thomas,

andere deine Löschproc mal so, nicht +1 sondern +2

Dim file#,(Len(file$)+2)

bei gehts dann einwandfrei

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Hi.

Wenn ich rein nach M$ [...]

kann ich das Problem "so" nicht nachvollziehen:

 {$cleq}
cls
mkdir "tes-t"
assign #1,"tes-t/0-test.dat"
rewrite #1
close #1
print unlink("tes-t")
waitInput
end

proc unlink(string fle)

    fle=fle+"\x00"
    mem shfinfo=30
    Long shfinfo#,0=hWnd,fo_delete,addr(fle),0,FOF_NOCONFIRMATION | FOF_ALLOWUNDO | FOF_NOERRORUI | FOF_SILENT
    long rtVal=SHFileOperation(shfinfo)
    Dispose shfinfo
    return rtVal

endProc

bzw.

'{$cleq}
CLS
MKDIR "tes-t"
ASSIGN #1,"tes-t/0-test.dat"
REWRITE #1
CLOSE #1
PRINT UNLINK("tes-t")
WAITINPUT
end

proc UNLINK

    PARAMETERS FLE$
    FLE$=FLE$+"\x00"
    DECLARE SHFINFO#
    DIM SHFINFO#,30
    LONG SHFINFO#,0=%HWND,$0003,ADDR(FLE$),0,$0010 | $0040 | $0400 | $0004
    var RTVAL&=external("shell32","SHFileOperation",shfinfo#)
    DISPOSE SHFINFO#
    RETURN RTVAL&

endproc

Oder gehts Dir darum warum es konkret in Deinem Paket nicht funktioniert?

Vergiss auch nicht das vlt. irgend ein Prozess die Dateien öffnet wie z.B. Antivirusprogramme oder der Explorer und dann das Entfernen (natürlich) nicht funktioniert solange die Dateien geöffnet sind.

Dieter
Zornow

Hallo Thomas,

andere deine Löschproc mal so, nicht +1 sondern +2

Dim file#,(Len(file$)+2)

bei gehts dann einwandfrei

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dieter
Zornow

noch ergänzend warum

pFrom

Pointer to a buffer that specifies one or more source file names. Multiple names must be null-separated. The list of names must be double null-terminated.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Danke für die schnelle Hilfe.
@Dieter, das war's. Dabei Ist es mir schon öfter untergekommen, dass eine Dateioperation erst nach zusätzlicher DIM ging, ohne zu wissen warum.

@iF, könntest du [...]

bitte nachbessern.

Gruß Thomas
Windows XP SP2, XProfan X2

@Thomas: Nachgebessert! Die API erwartet halt lt. M$ zwei 0Byte am Stringende.

Darum schreibe ich oben FLE$=FLE$+"\x00"