请问一个获得路径的问题(50分)

C

cavalise

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #1

请问各位高手，如何获得执行程序上一及的目录地址啊？
eg.
test.exe位于c:/temp/test/test.exe，test文件夹里还有ok.txt，temp目录里还有re.txt
程序中可以执行memo1.loadfromfile('ok.txt')，请问我要memo2里显示re.txt的内容，程序
应该如何处理？

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #2

memo1.loadfromfile('../re.txt')

 

J

JackyKen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #3

momo2.loadfromfile('../re.txt')

 

C

cavalise

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #4

请问各位高手，如何获得执行程序上一及的目录地址啊？
eg.
test.exe位于c:/temp/test/test.exe，test文件夹里还有ok.txt，temp目录里还有re文件夹，
re文件夹里有re.txt
程序中可以执行memo1.loadfromfile('ok.txt')，请问我要memo2里显示re.txt的内容，程序
应该如何处理？

 

D

decade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #5

var
dir:string;
dir:=copy(application.ExeName,1,pos(application.ExeName,'temp')+length('temp')-1);
memo1.loadfromfile(dir);

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #6

AppPath := ExtractFilePath(Application.ExeName);
上级目录为： AppPath + '../'
上上级为： AppPath + '../../'

 

C

cavalise

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #7

3x

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #8

S := Extractfilepath(paramstr(0));
S := Copy(S, 1, length(S) - 1);
S := Extractfilepath(S);