Question

delphi中如何调用当前目录下的mp3文件？

我现在的代码如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
RealAudio1.source:='C:\code\1.mp3';
RealAudio1.doplay;
end;
但是这样显然不具有通用性，我想把C:\code\1.mp3这个改成相对路径，先获取程序的当前路径，再到当前路径下读取1.mp3，这样的话，我就可以把1.mp3和编译好的程序打包发布了，请问应该如何修改，谢谢！

Answer 1

RealAudio1.source:=extractfilepath(application.exename)+'1.mp3';