Exemplo n.º 1
0
/* 
 * PauseMusic:  Store current position of background music.  Assumes that
 *   music is playing on MIDI device.
 */
void PauseMusic(void)
{
#ifdef M59_MSS
   if (!has_midi)
      return;

   if( AIL_sample_status( hseqBackground ) == SMP_PLAYING )
      AIL_stop_sample( hseqBackground );
   // indicate we are paused
   music_pos = 1;
   debug(( "Pausing music.\n" ));
#else
   MCI_STATUS_PARMS mciStatusParms;

   if (!has_midi)
      return;

   mciStatusParms.dwItem = MCI_STATUS_POSITION;
   mciSendCommand(midi_element, MCI_STATUS, 
                  MCI_STATUS_ITEM, (DWORD)(LPVOID) &mciStatusParms);
   music_pos = mciStatusParms.dwReturn;

   /* Get time format */
   mciStatusParms.dwItem = MCI_STATUS_TIME_FORMAT;
   mciSendCommand(midi_element, MCI_STATUS, 
                  MCI_STATUS_ITEM, (DWORD)(LPVOID) &mciStatusParms);
   time_format = mciStatusParms.dwReturn;

   debug(("Pausing, position = %ld\n", music_pos));
#endif
}
Exemplo n.º 2
0
//---------------------------------------------------------------------------
void __fastcall TForm_Main::c_Button_StopClick(TObject *Sender)
{
	if (!m_hSample)
		return;

	// Stop
	AIL_stop_sample(m_hSample);
}