help2(100分)

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

我用delphi作了一个播放mpg视频的程序b.exe如果把文件放到根目录在98的系统里就不能运行：（
我有把b.exe放到一个文件夹all里然后根目录用一个a.exe文件来调用
但是自动运行去不成功！打开all直接执行b.exe文件去可以运行（以前在根目录这样也不能作证常运行）
请问有什么方法可以解决这个问题？实现自动播放!
另外我发现当 a.exe文件调用b.exe文件的时候b.exe文件中用语句获得的当前目录是a.exe所在的目录：（

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #2

tai

 

W

Writer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #3

这只能说你程序的BUG，应该是路径处理得不够好吧。

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #4

是呀是呀!
我用的是getcurrentdir()

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #5

用getcurrentdir()
不行那该怎么半呀？？？

 

W

Writer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #6

你的代码，当然是你自己解决了/。

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #7

ExtractFilePath(Application.ExeName)取当前执行文件所在的路径!

 

H

hgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #8

哎﹐老兄看下吧
如果現在在根目錄下的話﹕如 c:
str:=extractfilepath(application.ExeName);
結果為 c:
如果是在 c:/data目錄下的話﹐
str:=extractfilepath(application.ExeName);
結果為 c:/data/
也就在是根目錄下會少一個 '/'
所以你要這么做
str:=extractfilepath(application.ExeName);
if copy(str,length(str),1)<>'/' then

filename:=str+'/'
else

filename:=str;
應該是這樣的﹗﹗

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #9

str:=extractfiledir(application.exename)

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #10

可以先进入b.exe的目录：Chdir('C:/all/' );

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #11

ok!
谢谢各位

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #12

多人接受答案了。