如何调用当前目录下的mp3文件(50分)

C

cnkq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #1

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

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #2

procedure TForm1.FormCreate(Sender: TObject);
begin
RealAudio1.source:=ExtractFilePath(ParamStr(0)) + '1.mp3';
RealAudio1.doplay;
end;

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #3

试试下面的方法：
RealAudio1.source := ExtractFilePath(ParamStr(0)) + '1.mp3';
或者
RealAudio1.source := ExtractFilePath(Application.ExeName)) + '1.mp3';

 

T

tandxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #4

RealAudio1.source := ExtractFilePath(ParamStr(0)) + '1.mp3';
或者
RealAudio1.source := ExtractFilePath(Application.ExeName)) + '1.mp3';
或者
RealAudio1.source := '1.mp3';

 

C

cnkq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #5

问题已解决，非常感谢各位朋友的指点！