打开图片文件后，怎样回到程序当前目录？(50分)

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #1

if openpicturedialog1.Execute then begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
执行上述代码后，程序目录就停在打开的图片目录上，
而有些数据文件在程序目录的子目录，用什么方法或函数（不用控件）回到程序当前目录。

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #2

Use: ExtractFilePath(Application.ExeName)
to get the path of EXE file,then....

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #3

ChDir(...)

 

L

liujingnan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #4

可以使用ExtractFilePath函数实现，如果能确保可执行文件名只有一个的话，
也可以在应用程序创建时使用Path :=getcurrentpath函数，
然后在openpicturedialog.excete前使用以下语句：
openpicturedialog.initialdir := Path+'/子目录';

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #5

接受答案了.

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #6

刚才分数分错，谢谢liujingnan和Reboot的解答！