Club Builder

[_Tugui]

A ver si alguien puede ayudarme con esto:
Deseo que cuando se inicie mi aplicación me cree un archivo dentro de la carpeta de windows y que a su vez, inserte un texto determinado en ese archivo, el código que intento utilizar es el siguiente:

void __fastcall TfrmPrincipal::FormCreate(TObject *Sender)
{
FILE *stream;
AnsiString Texto = "mi texto";
AnsiString a;
a.SetLength(MAX_PATH);
GetWindowsDirectory( a.c_str(),MAX_PATH );
AnsiString Fichero=a+"MIFICHERO.TXT";
stream=fopen(Fichero.c_str(),"wt");
fputs(Texto.c_str(),stream);
fclose(stream);
}
//---------------------------------------------------------------
/*Al compilarlo me da un error que creo que es de memoria, no lo se, no estoy muy seguro.
Muchas gracias a quien me heche un cable */

[_Leo]

El fallo esta en usar 'SetLength', no es recomendable usarlo para este tipo de cosas, aun así si lo utilizas después de la función que escriba en la AnsiString tendrás que volver a usar 'SetLenght' para poner el tamaño real que ocupan los caracteres.

[_Tugui]

Hey _Leo , Sobresaliente, tu ayuda me ha solucionado el problema.
Son tantas las ayudas que das en este foro que a veces siento que dándote las gracias no es suficiente, por tanto si hay algo que pueda hacer por ti dímelo y no dudes en que pondré todo mi empeño.
Saludos.