[[escafandra]]

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;

Saludos.