XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei erzeugen und löschen per API
Def @Createfile(7) !kernel32,CreateFileA
Def @Closehandle(1) !kernel32,CloseHandle
Def @Writefile(5) !kernel32,WriteFile
Declare Dateiname$,Dateihandle&
Declare Button&
Let Dateiname$=C:TEST.TXT
Let Dateihandle&=@Createfile(@Addr(Dateiname$),$80000000+$40000000,0,0,4,$80,0)
@Closehandle(Dateihandle&)
Windowstyle 31
Windowtitle Datei erzeugen
Window 0,0-640,440
Let Button&=@Createbutton(%Hwnd,Datei löschen,20,200,200,30)

While 0=0

    Waitinput

    If @Getfocus(Button&)

        Assign #1,Dateiname$
        Erase #1
        Enablewindow Button&,0
        Beep 1

    Endif

Wend