Código Delphi [-] var hFile: THandle; begin hFile:= CreateFile('Fichero.txt' , GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); FileWrite(hFile, 'Hola', 4); CloseHandle(hFile); end;
var hFile: THandle; begin hFile:= CreateFile('Fichero.txt' , GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); FileWrite(hFile, 'Hola', 4); CloseHandle(hFile); end;