请问用savefile()保存文件的时候,如何设置当前目录为保存的目录(50分)

  • 主题发起人 主题发起人 zyh16821cn
  • 开始时间 开始时间
Z

zyh16821cn

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