您所在位置：主题：Free PASCAL 播放MIDI背景音乐 做游戏用得着
必然xineng
[专家分：0] 发布于 2008-02-23 21:51:00
//FreePascal 2.20 调试成功
PROGRAM TEST_MIDI;
function MessageBox(hWnd:LONGINT;lpText:PCHAR;lpCaption:PCHAR;uType:DWORD):LONGINT;
stdcall; external 'user32.dll' name 'MessageBoxA';
function mciExecute(pszCommand:PCHAR) : BOOLEAN;
stdcall; external 'winmm.dll' name 'mciExecute';
CONST SND_FILENAME : DWORD = $00020000; MB_OK : DWORD = 0;
var b1 : BOOLEAN;
BEGIN
writeln('initialization! please wait a few second!');
b1 := mciExecute('play c:\Windows\Media\flourish.mid');
//您也可以更换自己的MIDI背景音乐
//mciExecute指针字符串参数：play后的文件名路径必须写完整。
//设备初始化需要等待数秒钟
MessageBox(0,'播放MIDI音乐，听见了么！','MIDI音乐测试',MB_OK);
Writeln(b1);
Writeln('按回车键退出程序！');
READLN;
END.
PROGRAM TEST_MIDI;
function MessageBox(hWnd:LONGINT;lpText:PCHAR;lpCaption:PCHAR;uType:DWORD):LONGINT;
stdcall; external 'user32.dll' name 'MessageBoxA';
function mciExecute(pszCommand:PCHAR) : BOOLEAN;
stdcall; external 'winmm.dll' name 'mciExecute';
CONST SND_FILENAME : DWORD = $00020000; MB_OK : DWORD = 0;
var b1 : BOOLEAN;
BEGIN
writeln('initialization! please wait a few second!');
b1 := mciExecute('play c:\Windows\Media\flourish.mid');
//您也可以更换自己的MIDI背景音乐
//mciExecute指针字符串参数：play后的文件名路径必须写完整。
//设备初始化需要等待数秒钟
MessageBox(0,'播放MIDI音乐，听见了么！','MIDI音乐测试',MB_OK);
Writeln(b1);
Writeln('按回车键退出程序！');
READLN;
END.
