Delphi高手看过来！

Question

有没有用playsound()试一试，我记得用他播放WAV文件好用，MID你也试试吧

Answer 1

playsound （)windows sdk 帮助，自己看吧。

Answer 2

playsound放不了mid，我试过。 

Answer 3

1：MCI命令。问问BCB，他知道。
2：CM_MouseEnter,CM_MOUSELEAVE消息。

Answer 4

比如在StatusBar中显示按钮的信息，用完onmousemove后，要用mouseout来清除显示结果。当然还有别的一些用处，大多是让程序更方便，好用。

Answer 5

 API好象是
  senmcistring();

Answer 6

使用 Win32 API 有两条路可走：一、用 MCI 命令方式的 API；二、用 MIDI 低级函数直接处理（很麻烦，不推荐！）。
使用 MCI 命令方式的 API 可以使用 mciSendCommand 或者 mciSendString 。推荐后者，因为可以用 MCI 命令原语作为字符串参数传递，很方便。句个例子：
var
  csTemp: PChar;
  asTemp: string;
  i: Integer;
begin
  csTemp := StrAlloc(256);
  // 打开 midi 文件
  i := mciSendString('open demo.mid alias demo', csTemp, 256, Self.Handle);
  if i <> 0 then
  begin
    // 出错
    asTemp := csTemp; // 获取出错信息
    ShowMessage(asTemp);
  end;
  // 播放
  i := mciSendString('play demo', csTemp, 256, Self.Handle);
  if i <> 0 then
  begin
    // 出错
    asTemp := csTemp; // 获取出错信息
    ShowMessage(asTemp);
  end;
  StrDispose(csTemp);
end;