怎么样得到当前有没有目录名(100分)

I

iceleafage

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #1

我在程序中不知道怎么得到目录名（用什么命令）。请各位大侠帮助我。

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #2

GetDir(0,s);
{ 0 = Current drive }
function GetCurrentDir: string;

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #3

GetCurrentDir()

 

R

resun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #4

什么目录名？是当前程序所在的目录吗？如果是可以用
extractfiledir(application.exename),或者用extractfilepath也可，二者的不同于一个
最后有'/'，一个没有，你可以自己试试

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #5

extractfilepath
你查下帮助，有很多函数，取得扩展名，文件名，等等啊。