copiar archivo almacenado en un .res hacia una carpeta

[ecfisa]

Empezado por lisette

Por favor si alguien me pudiera ayudar:

Quisiera saber si se puede extraer un archivo que este en un .res hacia una carpeta.

Gracias de antemano.

Hola lisette.

Si es posible, por ejemplo:

...
#pragma resource "resource.res"
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TResourceStream *Resource = new TResourceStream((int)HInstance, 1, RT_RCDATA);
  __try {
    Resource->Seek(0, soFromBeginning);

    /* es claro que deberás conocer el tipo del archivo... */
    Resource->SaveToFile("C:\\UNA_CARPETA\\ARCHIVO.EXE"); 
  }
  __finally {
    delete Resource;
  }
}

Saludos.

[lisette]

Muchisimas gracias por todo, me funciono a la perfeccion.

Gracias