thedream:
我新建了一个工程,然后在里面添加了一个realaudio,opendialog,mainmenu,然后再下列事件中添加如下代码:
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay; //打开并启动播放器
End;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Application.terminate; //终止程序运行
end;