// midi.hbool midiActive;UINT midiID;void __fastcall CloseMidi(void) {  DWORD l;  if(midiActive)mciSendCommand(midiID, MCI_CLOSE, MCI_WAIT, (DWORD) &l);  midiActive = false;}bool __fastcall LoadMidi(LPCSTR FileName) {  MCI_OPEN_PARMS Params;  CloseMidi;  Params.lpstrDeviceType = "sequencer";  Params.lpstrElementName = FileName;  if(mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_ELEMENT, (DWORD) &Params))	return false;  else {	midiID = Params.wDeviceID;	midiActive = true;	return true;  }}void __fastcall PlayMidi(HWND hWnd) {  MCI_PLAY_PARMS Params;  Params.dwCallback = (DWORD) hWnd;  if(midiActive) mciSendCommand(midiID, MCI_PLAY, MCI_NOTIFY, (DWORD) &Params);}void __fastcall StopMidi(void) {  DWORD l;  if(midiActive) mciSendCommand(midiID, MCI_STOP, 0, (DWORD) &l);}