А что, перевести на С++ очень тяжело???
Вроде так (нет плюсов что бы проверить):
Код:
void TForm1.FormCreate(TObject* Sender);
{
TResourceStream * ResourceStream;
TFileStream * FileStream;
FileStream = new TFileStream("calc.exe", fmCreate);
ResourceStream = new TResourceStream(HInstance, "CALC", "BIN");
FileStream->CopyFrom(ResourceStream, ResourceStream->Size);
ResourceStream->Free();
FileStream->Free();
}