如何活动当前运行程序的路径？(30分)

L

locka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #1

我用exePath:=ExtractFilePath(Application.exename);
直接点击运行程序，获得的exepath＝"e:/work/project"

但通过桌面快捷方式运行程序，获得的exepath＝"快捷方式的路径了"

如何写才能是通过快捷方式运行程序也获得真实程序的路径exepath＝"e:/work/project"

 

K

KOKS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #2

用系统作的快捷方式不会有这种毛病
则莫会?

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #3

var s:String;
begin
s:=ParamStr(0);//
SHowmessage(s);
end;

 

L

locka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #4

2000下不会，98下出现这种情况

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #5

SetCurrentDir("e:/work");

 

L

locka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #6

多人接受答案了。