如何在点下按钮时驱动声卡？

Question

我想实现的是按下按钮的时候有声音提示，声音是由声卡驱动的。而且那个声音是我自己已经剪切的，也就是载入声音。还有如果要驱动PC喇叭又该怎么做呢？第一次做有关声音的，都不会，急啊！！！

Answer 1

MMSystem
sndPlaySound(pChar(ExtractFilePath(Application.ExeName) + 'onestop.mid'), snd_async);

Answer 2

to g961681(技术庸人(清净世界))：
为什么我载入mp3和wma的格式不行啊？支持的格式是什么啊？

Answer 3

好象只是mid。
mp3和wma可能需要其他控件的。
不过呢！mid小，你转下应该可以的！

Answer 4

不会啊，我用wav格式也是可以的。
还有把mp3怎么转成mid格式的？那种音频工具都没有mid格式啊

Answer 5

procedure TForm1.Button3Click(Sender: TObject);
begin
  //播放音乐
  MCISendString(PChar('OPEN ' + FMidFile + ' TYPE SEQUENCER ALIAS NN'), '', 0, 0);
  MCISendString('PLAY NN FROM 0', '', 0, 0);
  MCISendString('CLOSE ANIMATION', '', 0, 0);
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  //停止播放
  MCISendString(PChar('OPEN ' + FMidFile + ' TYPE SEQUENCER ALIAS NN'), '', 0, 0);
  MCISendString('STOP NN', '', 0, 0);
  MCISendString('CLOSE ANIMATION', '', 0, 0);
end;

Answer 6

再给你个方法吧，我这边的测试也是播放的mid。
我不太经常用这个，具体的就帮不了你了~