如何在DELPHI中调用声音文件?(我所有的钱都用光了,可怜可怜我吧!`)(10分)

P

pckite

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在DELPHI中调用声音文件?

比如,我想点击按钮的时候,发出声音,怎么样实现呢/?

我很急,谢谢!~
 
1,先把声音文件制成资源文件。后缀名是RES
2,如果是wav可以直接用DELPHI自带插件报,而MP3等就要下载相应的插件!!!!
3,可以看看QQ是怎样工作的就得啦
 
用PlaySound。
 
'soundname.wav',0,SND_FILENAME
 
用PLAYSOUND 在UNIT中要加MMSYSTEM
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MMSYSTEM,//加这个呀
TFlatButtonUnit, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin

PlaySound('c:/a.wav', 0, SND_FILENAME)

end;


end.
 
MMSystem里头好多东西。。看看吧
 
顶部