XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

Dieter
Zornow

allô Thomas,

autre deine Löschproc la fois so, pas +1 mais +2

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

chez gehts ensuite 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.

si je rein pour M$ [...]

peux je cela Problem "so" pas nachvollziehen:

 {$cleq}
cls
mkdir "tes-t"
assign #1,"tes-t/0-test.dat"
rewrite #1
close #1
imprimer 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

'{$ 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#
    RETOUR RTVAL&

endproc

ou bien gehts Dir tout autor pourquoi es konkret dans Deinem paquet pas funktioniert?

Vergiss aussi pas cela vlt. irgend un Prozess qui Fichiers ouvrez comment z.B. Antivirusprogramme ou bien qui Explorer et ensuite cela Entfernen (naturellement) pas funktioniert solange qui Fichiers ouvert sommes.

Dieter
Zornow

allô Thomas,

autre deine Löschproc la fois so, pas +1 mais +2

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

chez gehts ensuite 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

encore ergänzend pourquoi

pFrom

Pointer to a buffer that specifies one or more source file names. Multiple names must être zéro-separated. The list of names must être double zéro-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

merci pour qui schnelle Aider.
@Dieter, cela war's. Dabei Ist es mir déjà öfter untergekommen, dass une Dateioperation seulement pour zusätzlicher DIM ging, sans savons pourquoi.

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

s'il te plaît nachbessern.

Gruß Thomas
Windows XP SP2, XProfan X2

@Thomas: Nachgebessert! qui API erwartet arrêt lt. M$ deux 0Byte am Stringende.

tout autor schreibe je dessus FLE$=FLE$+"\x00"