请教各位大虾，用opendialog 后，我的工作路径被改变了，怎样将工作路径改回我原来的中径。(50分)

T

tsaietsai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #1

急，急，急。

 

轩

轩辕散光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #2

程序已开始的时候用一个变量存储但强工作目录

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #3

先保存工作路径
调用opendialog
恢复工作路径
ok

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #4

ExtractFilePath(Application.ExeName)

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #5

procedure TForm1.changeDir;
var sPath:string;
begin
; sPath:=GetCurrentDir;//得到当前目录
; if opendialog1.Execute then
; ; ShowMessage(OpenDialog1.FileName+#13#10+sPath);
; SetCurrentDir(sPath);//指定当前目录
end;
你也可以用ExtractFilePath(Application.ExeName)的方法

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #6

chshanghai 聪明能干
而且还很准

 

M

ml81888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #7

zhangkzn同志的回答很有帮助哦[]

 

T

tsaietsai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-14

• #8

多人接受答案了。