Код (Text): PlayMidiFile proc hWn:DWORD,NameOfFile:DWORD LOCAL mciOpenParms:MCI_OPEN_PARMS,mciPlayParms:MCI_PLAY_PARMS mov eax,hWn mov mciPlayParms.dwCallback,eax mov eax,OFFSET szMIDISeqr mov mciOpenParms.lpstrDeviceType,eax mov eax,NameOfFile mov mciOpenParms.lpstrElementName,eax invoke mciSendCommand,0,MCI_OPEN,MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,ADDR mciOpenParms mov eax,mciOpenParms.wDeviceID mov MidDeviceID,eax invoke mciSendCommand,MidDeviceID,MCI_PLAY,MCI_NOTIFY,ADDR mciPlayParms ret PlayMidiFile endp Воспроизводит 1 раз ... маловато. Подскажите пож. начинающему в чём фишка и как воспроизвести последовательность звуков... (каждый звук - в отдельном файле).
