如何得到当前路径(0分)

W

wy0311

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #1

如何得到当前路径？

 

G

godzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #2

var path:string;
begin
path := ExtractFilePath(application.ExeName);
end;

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #3

ExtractFileDir(paramStr(0)); 末尾不带 /
ExtractFilePath(paramStr(0)); 末尾带 /

 

L

libin06

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #4

ExtractFilePath(application.ExeName)得到的是程序文件的路径。
当前路径应该用procedure GetDir(Drive: Byte; var Directory: string)
Drive取值1-26代表A:-Z:,
Directory返回Drive的缺省路径（如C:/windows),
如果驱动器非法（A:中无盘或没有这个驱动器如Z:）或者Drive大于26或小于1
那么Directory返回缺省驱动器的缺省路径，即为当前路径。
一般将Drive取0即可。

 

W

wy0311

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #5

接受答案了.