新手的问题：()(100分)

L

lwslws0208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

各位老师：我做了个自动播放AVI(AVI文件在程序目录的”VAI目录“中)的程序，
但在其它机器上不能运行(找不到文件)，现肯定是路径问题!
已知extractfilepath(application.exename)可获取当前路径(不知如何使用)，且如何使MediaPlayer1中的
FileName属性变成相对路径，以便在其它机器上也能运行!
我是新手，最好请给范例，谢谢!

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

ExtractFilePath(ParamStr(0))+'程序中文件路径')
例如：
ExtractFilePath(ParamStr(0))+'database/backgroud.bmp');
表示调出程序组路径下database文件夹下的backgroud.bmp文件

 

X

xiaolin0522

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

用 OpenDialog 控件让用户选择文件

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

GetCurrentDir取当前目录。
用ExtractFilePath也可以
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);

 

L

lwslws0208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #5

朋友，将MediaPlayer1中的
FileName属性设置为ExtractFilePath(ParamStr(0))+'程序中文件路径'
不行，我可是真正的新手

 

Y

yangh888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #6

gz