Código Delphi [-] var F: Cardinal; begin F:= CreateFile('file.bmp', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); _lwrite(F, BUFFER, SIZEBUFFER); _lclose(F);
var F: Cardinal; begin F:= CreateFile('file.bmp', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); _lwrite(F, BUFFER, SIZEBUFFER); _lclose(F);