目前我在网上找到下面code，但是录音后并没有声音，不知道什么原因。

//---------------------------------------------------------------------------

#include <vcl.h>
#include <vfw.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

HINSTANCE g_hInstance; 
HANDLE m_hMCIWnd; 
int deviceID; 

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    m_hMCIWnd=MCIWndCreate(Handle,g_hInstance,
        WS_CHILD | WS_OVERLAPPED | WS_CAPTION | WS_BORDER |
        MCIWNDF_RECORD | MCIWNDF_SHOWALL,
        NULL );
    if ( NULL==m_hMCIWnd )
    {
        MessageBox(Handle,"Error Creating MCIWnd Window!",NULL, MB_OK);
        return;
    }
    Button1->Enabled=true;
    Label1->Caption="---停止---";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    if ( Button2->Enabled )
    Button2Click(NULL);
    MCIWndDestroy(m_hMCIWnd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    //录音
    MCIWndNew(m_hMCIWnd, "waveaudio");

    MCI_WAVE_SET_PARMS set_parms;
    set_parms.wFormatTag = WAVE_FORMAT_PCM;
    set_parms.wBitsPerSample = 16;
    set_parms.nChannels = 1;
    set_parms.nBlockAlign = (set_parms.nChannels*set_parms.wBitsPerSample)/8;
    set_parms.nSamplesPerSec = 44100;
    set_parms.nAvgBytesPerSec = ((set_parms.wBitsPerSample) *
                set_parms.nChannels *
                set_parms.nSamplesPerSec)/8;

    deviceID=MCIWndGetDeviceID(m_hMCIWnd);
    int result = mciSendCommand( deviceID, MCI_SET,
    MCI_WAIT
    | MCI_WAVE_SET_FORMATTAG
    | MCI_WAVE_SET_BITSPERSAMPLE
    | MCI_WAVE_SET_CHANNELS
    | MCI_WAVE_SET_SAMPLESPERSEC
    | MCI_WAVE_SET_AVGBYTESPERSEC
    | MCI_WAVE_SET_BLOCKALIGN,
    (DWORD)(LPVOID)&set_parms); 
    if ( result )
    {
        char buffer[100];
        mciGetErrorString(result, buffer, sizeof(buffer));
        MessageBox( NULL, buffer, "MCI_WAVE_SET_1", MB_OK);
        return;
    }
    MCIWndRecord(m_hMCIWnd);

    Button1->Enabled=false;
    Button2->Enabled=true;
    Label1->Caption="录音中......";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //停止录音
    MCIWndStop(m_hMCIWnd);
    // MCIWndSave(m_hMCIWnd,"test.wav");

    //----这3句话代替上面一句,否则文件名会变为乱码--------
    Mmsystem::MCI_SAVE_PARMS mciSP;
    mciSP.lpfilename ="sk.wav"; //保存的文件
    mciSendCommand(deviceID,MCI_SAVE,MCI_SAVE_FILE | MCI_WAIT,(DWORD)(LPVOID)&mciSP);
    //---------------------------------
    MCIWndClose(m_hMCIWnd);
    Button1->Enabled=true;
    Button2->Enabled=false;
    Label1->Caption="---停止---";
}
//---------------------------------------------------------------------------