Создать wav файл имея raw файл с данными

    wchar_t*        szFileName;                                                 // filename of file to open
    HMMIO           hwav;
    MMCKINFO        parent,child;
    UCHAR           *sound_buffer;
    WAVEFORMATEX    wf;
    wchar_t*        outwav;
    int             outwav_pos = 0;
    HANDLE          hpcm;
    DWORD           written;
    // Set chunk info
    parent.ckid         = (FOURCC)0;
    parent.cksize       = 0;
    parent.fccType      = (FOURCC)0;
    parent.dwDataOffset = 0;
    parent.dwFlags      = 0;
    // Copy to child
    child = parent;
    // Open the WAV file
    if (Form1->OpenDialog1->Execute())
    {
        szFileName = WideString(Form1->OpenDialog1->FileName/* + ".wav"*/).c_bstr();
        if(!(hwav = mmioOpen(szFileName, NULL, MMIO_READ | MMIO_ALLOCBUF)))
        {
            ShowMessage("Failed to open file wav.");
            return;
        }
        child.ckid = mmioFOURCC('W','A','V','E');
        if(mmioDescend(hwav,&parent,NULL,MMIO_FINDRIFF))
        {
            mmioClose(hwav,0);
            ShowMessage(" FAILED.\nWAV file section not found.\n");
            return;
        }
        child.ckid = mmioFOURCC('f','m','t',' ');
        if(mmioDescend(hwav,&child,&parent,0))
        {
            mmioClose(hwav,0);
            ShowMessage("FAILED.\nWAV format not found.\n");
            return;
        }
        if(mmioRead(hwav,(char *)&wf,sizeof(wf)) != sizeof(wf))
        {
            mmioClose(hwav,0);
            ShowMessage("FAILED.\nWAV file section couldn't be read.\n");
            return;
        }
        if(wf.wFormatTag != WAVE_FORMAT_PCM)
        {
            mmioClose(hwav,0);
            ShowMessage("FAILED.\nNot a PCM file.\n");
            return;
        }
        if(mmioAscend(hwav,&child,0))
        {
            mmioClose(hwav,0);
            ShowMessage("FAILED.\nBad WAV file.\n");
            return;
        }
        child.ckid = mmioFOURCC('d','a','t','a');
        if(mmioDescend(hwav,&child,&parent,MMIO_FINDCHUNK))
        {
            mmioClose(hwav,0);
            ShowMessage("FAILED.\nWAV file data missing.\n");
            return;
        }
        sound_buffer = new UCHAR[child.cksize];
        mmioRead(hwav,(char *)sound_buffer,child.cksize);
 
        mmioClose(hwav,0);
 
        outwav  = WideString(Form1->OpenDialog1->FileName.Delete(Form1->OpenDialog1->FileName.Length()-3,4) + ".raw").c_bstr();
        hpcm    = CreateFile(&outwav[0],GENERIC_WRITE,NULL,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
        WriteFile(hpcm,&sound_buffer[0],child.cksize,&written,NULL);
        CloseHandle(hpcm);
        RichEdit1->Lines->Add("Convert Wav to Raw complete");
    }