Как засунуть звук в exeшник

    TResourceStream *res = new TResourceStream(0,1, RT_RCDATA);
    res->SaveToFile("z.mp3");
    res->Free();

TResourceStream *res = new TResourceStream(0,1, RT_RCDATA);

TResourceStream *res = new TResourceStream(0,1,RT_RCDATA);

TResourceStream *res = new TResourceStream(0,1,(wchar_t*)RT_RCDATA);

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "myResSound1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---создать--myResSound1.RC---------
//VertuRW RCDATA "VERTU.wav"
//MinuteRW RCDATA "Minute.wav"
//----сохранить----закрыть-----открыть с помощью---
//C:\Program Files\Borland\CBuilder6\Bin\brcc32.exe
//-----на--выходе--myResSound1.RES-----------------
#pragma resource "myResSound1.RES"
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}
//---------------------------------------------------------------------------
#include "mmsystem.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HRSRC rSnd = FindResource(HInstance, "VertuRW", RT_RCDATA);
    rSnd = LoadResource(HInstance, rSnd);
    LPVOID Snd = LockResource(rSnd);
    PlaySoundA((BYTE*)(Snd), HInstance, SND_ASYNC | SND_MEMORY);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    HRSRC rSnd = FindResource(HInstance, "MinuteRW", RT_RCDATA);
    rSnd = LoadResource(HInstance, rSnd);
    LPVOID Snd = LockResource(rSnd);
    PlaySoundA((BYTE*)(Snd), HInstance, SND_ASYNC | SND_MEMORY);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)//stop
{
    PlaySoundA(0, 0, 0x0040);
}
//---------------------------------------------------------------------------

include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "files.res"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TResourceStream *res_stream2 = new TResourceStream(0, UnicodeString("jpg") ,
                                                  (System::WideChar*)"RT_RCData");
res_stream2->SaveToFile("fff.jpg" );
 
 
код файла ресурсов
jpg RCData "ddd.jpg"
 
Ума не приложу что делать.
}
 
[SIZE=1]Добавлено через 51 секунду[/SIZE]
У меня та же самая проблема. При этом - в Builder 2007 все работает.
Вот мой код
include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "files.res"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TResourceStream *res_stream2 = new TResourceStream(0, UnicodeString("jpg") ,
(System::WideChar*)"RT_RCData");
res_stream2->SaveToFile("fff.jpg" );
 
 
код файла ресурсов
jpg RCData "ddd.jpg"
 
//  Ума не приложу что делать.
}