Delphi

[Scooby]

Хочу сделать звуковое сопровождение в своей новой программе, (в формате midi) разрабатываемой мной в Delphi 7, но не знаю, как это реализовать. Помогите, если кто знает.

[dartman]

Не нужно создавать две почти одинаковые темы одновременно. Это запрещено в Правилах форума. Вторая тема удалена.

[Kuzmich]

Компонент MediaPlayer...

[Darhazer]

А можно еще и через WinAPI (MCI - Multimedia Control Interface)

Част кода одной игри:

Procedure InitMusic(h_DC: HDC);varOpenParms: TMCI_Open_Parms;PlayParms: TMCI_Play_Parms;StatusParms: TMCI_Status_Parms;SetParms: TMCI_Set_Parms;beginif midiOutGetNumDevs<1 then Music:=falseelse beginmusic:=true;OpenParms.lpstrDeviceType := 'sequencer';OpenParms.lpstrElementName := 'Tank.mid';MCISendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT or MCI_WAIT, LongInt(@OpenParms));id:=OpenParms.wDeviceID;SetParms.dwTimeFormat := MCI_FORMAT_MILLISECONDS;PlayParms.dwCallback := h_dc;MCISendCommand(ID, MCI_PLAY, MCI_NOTIFY, LongInt(@PlayParms));end;end;