//---------------------------------------------------------------------------
void __fastcall TForm_Main::FormDestroy(TObject *Sender)
{
// Stop..
c_Button_Stop->Click();
if (m_hDigDriver)
AIL_waveOutClose(m_hDigDriver);
AIL_shutdown();
}
void vrpn_Sound_Server_Miles::shutDown()
{
unloadAllSounds();
AIL_close_3D_provider(provider);
/*These two calls must be made before trying to exit or the
program will hang when you try to quit.*/
AIL_waveOutClose(DIG);
AIL_shutdown();
}