如何把用TOpenDialog而改变了的当前目录改回来？(50分)

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #1

我在程序中需要用TOpenDialog来打开文件。
在文件打开后，程序默认的当前目录就改到该文件的目录了。
这样我用相对目录所做的一切就会出问题。
究竟如何解决这个问题啊？

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #2

OpenDialog 1.InitialDir:=你的目录;
if OpenDialog1.Execute then

 

S

SINGLBOY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #3

天啊！送分！！！！！
OpenDialog 1.InitialDir:=你要的目录;
if OpenDialog1.Execute then

 

J

jianl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #4

试试SetCurrentDir，getCurrentDir这两个函数。

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #5

大家误会我的意思了。
我不是指开始时的目录啊！
我指的是opendialog.Execute后，当前目录变成其他目录后，
如何把当前目录改回ExtractFilePath(Application.ExeName)？

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #6

对。我就是需要这个！

Sets the current directory.
Unit
Sysutils
Category
file management routines
function SetCurrentDir(const Dir: string): Boolean;
Description
The SetCurrentDir function sets the current directory. The return value is True
if the current directory was successfully changed, or False if an error occurred.