Question

把delphi的这个直接路径改为相对路径为何不起作用

把MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww',nil, 0, 0);改为：
var
musicf:string;
begin
musicf:=extractfilepath(application.ExeName)+'soundf\1.mp3';

MCISendString(pchar('OPEN '+musicf+' TYPE mpegvideo alias ww'),nil, 0, 0);
这样写相对路径对不对？
现在加个EDIT以更清楚地说明我的问题：edit1.Text :=musicf;
那么运行可以看到内容如此：C:\Program Files\Borland\Delphi7\Projects\333\soundf\1.mp3
如此说来，怎么办。

Answer 1

是对的
musicf:=extractfilepath(application.ExeName)+'soundf\1.mp3';
其实就是动态得到的绝对路径

'.\soundf\1.mp3'
这样的才是相对路径
这样使用可以是可以，不过在你打包软件后可能会出现问题，建议使用绝对路径

MCISendString，我没有用过
但按你所提示的信息来看，有可能是你路径中包含了中文导致的，试试把程序放到没有中文的目录，看看能不能执行。

Answer 2

我试验了一下你的句子，应该是没有问题的，但是有时候要注意程序所在的路径之中时候含有空格字符的文件夹，例如“Program Files”,调用的时候会当作两个命令执行的，这样就出错了。

Answer 3

begin
edit1.text:=extractfiledir(application.exename);
edit1.text:=extractfilepath(application.exename);
这个是获取自身目录的函数，两函数不同的是一个路径后带有"\"，一个没有
如果要获取打开文件的路径，使用opendialog控件（在dialogs控件组下）：
begin
if
opendialog1.execute
then
edit1.text:=opendialog1.filename
;
//在文本框显示路径
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
aaa:string;
begin
//GetShortPathName
aaa:=ExtractShortPathName('D:\Program files\Borland\Delphi7\Projects\1.mp3 ');
edit1.Text:=aaa;
MCISendString(pchar('OPEN '+ aaa +'TYPE mpegvideo alias ww'),nil, 0, 0);
//MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww',nil, 0, 0);
//MCISendString(pchar('OPEN '+musicf+' TYPE mpegvideo alias ww'),nil, 0, 0);
MCISendString('PLAY WW', nil, 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
给分吧，用ExtractShortPathName转一下