XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Datei(en) mit API-Funktion löschen
PRFellow-Vorlage
Autor: Thomas Hölzer
Datei(en) mit API-Funktion löschen
Im Beispiel wird mit der Funktion CopyFile
zunächst eine gefahrlos löschbare Datei angelegt
Def DeleteFile(1) !KERNEL32,DeleteFileA
Beispiel
Def CopyFile(3) !KERNEL32,CopyFileA
Declare quelle#,ziel#,erfolg&,txt$
Dim quelle#,255
Dim ziel#,255
String quelle#,0=C:AUTOEXEC.BAT
String ziel#,0=C:AUTOEXEC.DEL
Let erfolg&=CopyFile(quelle#,ziel#,0)
Dispose quelle#

If Neq(erfolg&,0)

    Let txt$=Eine Testdatei wurde angelegt und wird jetzt wieder gelöscht.

Else

    Let txt$=Testdatei konte nicht angelegt werden.

EndIf

MessageBox(txt$,DeleteFile,64)
Let erfolg&=DeleteFile(ziel#)
Dispose ziel#

If Neq(erfolg&,0)

    Let txt$=erfolgreich

Else

    Let txt$=gescheitert

EndIf

MessageBox(Add$(Löschaktion ,txt$),DeleteFile,=s2>64)