XProfan

« Dieser Contribución wurde como Solución gekennzeichnet. »

Dieter
Zornow

Hola Tomás,

otro deine Löschproc veces así, no +1 pero +2

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

en gehts entonces 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 Yo rein después de M$ [...]

kann Yo el problema "so" no nachvollziehen:

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

proc unlink(cadena fle)

    fle=fle+"\x00"
    mem shfinfo=30
    Largo shfinfo#,0=hWnd,fo_delete,addr(fle),0,FOF_NOCONFIRMATION | FOF_ALLOWUNDO | FOF_NOERRORUI | FOF_SILENT
    long rtVal=SHFileOperation(shfinfo)
    Disponer shfinfo
    volver 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#
    RETORNO RTVAL&

ENDPROC

Oder gehts Usted por lo tanto por qué lo konkret en Deinem Paket no funktioniert?

Vergiss auch no el vlt. irgend una Prozess el Archivos öffnet como z.B. Antivirusprogramme oder el Explorer y luego el Entfernen (natürlich) no funktioniert solange el Archivos geöffnet son.

Dieter
Zornow

Hola Tomás,

otro deine Löschproc veces así, no +1 pero +2

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

en gehts entonces 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

todavía ergänzend por qué

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

Gracias para rápido Ayuda.
@Dieter, el war's. Dabei ¿Es me ya öfter untergekommen, dass una Dateioperation sólo después de zusätzlicher DIM ging, sin a wissen por qué.

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

Por favor, nachbessern.

Gruß Thomas
Windows XP SP2, XProfan X2

@Thomas: Nachgebessert! El API esperado sólo lt. M$ zwei 0Byte al Stringende.

Darum escribir Yo oben FLE$=FLE$+"\x00"