Как проиграть midi файл

← →
Riddler (2004-09-29 21:54) [0]

Здраствуйте! Помогите пожалуйста вставить в программу midi файл, чтобы он естественно проигрывался. Заранее спасибо.

← →
_silver © (2004-09-29 21:59) [1]

Riddler (29.09.04 21:54)

> чтобы он естественно проигрывался

Это как?

← →
Riddler (2004-09-29 22:17) [2]

Там запитые должны были быть :). Ну, короче, чтобы эта мидишка проигрывалась при запуске проги.

← →
_silver © (2004-09-29 22:31) [3]

В обработчике события OnCreate - функция PlaySound.

← →
Riddler (2004-09-29 23:01) [4]

Почему-то когда я вызываю эту функцию, делфи говорит, что это неизвестный идентификатор
procedure TForm1.FormCreate(Sender: TObject); begin PlaySound (404.mid;0;SND_ASYNC); end;

← →
_silver © (2004-09-29 23:28) [5]

function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall; external "winmm.dll" name "PlaySoundA";

...
PlaySound("404.mid",0,SND_FILENAME or SND_NODEFAULT or SND_NOWAIT or SND_ASYNC);
...

← →
Riddler (2004-09-29 23:48) [6]

А при этом ничего в Uses добавлять не надо? А то Делфи все ругается, что незнает что такое PlaySound :(

unit SoundActionUnit;
interface

procedure SoundAction;

implementation

uses Windows;

const
SND_FILENAME = $00020000; { name is file name }
SND_NODEFAULT = $0002; { don"t use default sound }
SND_NOWAIT = $00002000; { don"t wait if the driver is busy }
SND_ASYNC = $0001; { play asynchronously }
SND_LOOP = $0008; { loop the sound until next sndPlaySound }
SND_PURGE = $0040; { purge non-static events for task }

function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall; external "winmm.dll" name "PlaySoundA";

procedure SoundAction;
begin
PlaySound(PChar(Param),0,SND_FILENAME or SND_NODEFAULT or SND_NOWAIT or SND_ASYNC);
end;
end.

Как проиграть midi файл Найти похожие ветки