Z zyh16821cn Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #1 在保存的时候老是保存在最后一次用opendialog所打开的那个目录中,而我想保存在本程序所在的目录中,该怎么设置? 请赐教! 谢谢!!
D delphi365 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #2 当前目录是不是程序所在的目录啊!如果是,那比较简单!
D delphi365 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #3 还是给一点代码给你 得到程序所在的目录: function Tfrm_main.GetExePath:String; begin ; Result:=ExtractFilePath(ParamStr(0)); ; if Result[Length(Result)]<>'/' then ; ; Result:=Result+'/'; end; 设置savedialog的初始目录为上面的目录,一切ok!
还是给一点代码给你 得到程序所在的目录: function Tfrm_main.GetExePath:String; begin ; Result:=ExtractFilePath(ParamStr(0)); ; if Result[Length(Result)]<>'/' then ; ; Result:=Result+'/'; end; 设置savedialog的初始目录为上面的目录,一切ok!
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #4 OpenDialog.InitialDir:=ExtractFilePath(Application.ExeName); if OpenDialog.Execute then ; SaveFile(OpenDialog.FileName);
OpenDialog.InitialDir:=ExtractFilePath(Application.ExeName); if OpenDialog.Execute then ; SaveFile(OpenDialog.FileName);
B bluerain Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #5 ;SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);