XProfan

Español

Descripción:

WriteFile schreibt Daten de el aktuellen Position des Dateizeigers en un Expediente.

Deklaration:

DEF @WriteFile(5) !kernel32,WriteFile

Parámetro:

1.Parámetro: Handle el Expediente, en el uno escribir voluntad.

2.Parámetro: Adresse uno Variables con Daten oder Bereichsvariable con Daten, el geschrieben voluntad debería.

3.Parámetro: Anzahl el Bytes, el geschrieben voluntad debería como LongInt.

4.Parámetro: Bereichsvariable, el el número el wirklich geschriebenen Bytes aufnimmt.

5.Parámetro: Struktur oder 20 Byte Bereichsvariable para überlappendes Lesen y Carta. Kann null ser, si el Handle des Files no con $40000000 (en CreateFile Parámetro 6) geöffnet wurde.
-Byte 0-3 = Für Systemgebrauch reserviert.
-Byte 4-7 = Für Systemgebrauch reserviert.
-Byte 8-11 = El unteren 32 Bit el Startadresse para el Carta.
-Byte 12-15 = El oberen 32 Bit el Startadresse para el Carta.
-Byte 16-19 = Handle des Ereignisses, el una Signal angibt, si la Übertragung final es.

Rückgabewert:

0 en Misserfolg, 1 en Erfolg.

Beispiele:

Kompilieren Marca Separación

DEF @CreateFile(7) !"kernel32","CreateFileA"
Def @CloseHandle(1) !"kernel32","CloseHandle"
DEF @WriteFile(5) !"kernel32","WriteFile"
Declare Dateiname$,Text$,Written#,DateiHandle&
Declare Button&
LET TEXT$="Hallo Welt!"
LET DATEINAME$="C:TEST.TXT"
LET DateiHandle&=@CreateFile(@ADDR(Dateiname$),$80000000+$40000000,0,0,4,$80,0)
Dim Written#,4
@WriteFile(DateiHandle&,@ADDR(TEXT$),@len(Text$),Written#,0)
Dispose Written#
@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