//存信件檔案路徑 const DirName = 'Data\mail\'; aFileName := 123.aaa; FileName := DirName '\' aFileName; AssignFile(MFile, FileName); Rewrite(MFile, 1); 這樣設,存檔時可存到執行檔下的資料夾中,但我用了SaveDialog到他槽後再呼叫這段程式碼,資料夾就會建立在他槽,請問該怎麼設定才可確保存在執行檔下的資料夾中.

Hi neoaj23 : FileName := ExtractFilePath(Application.ExeName) DirName '\' aFileName; 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

neoaj23 你好: var Pth:string;    GetDir(0,Path); 可以取的程式路徑

------
======================
昏睡~
不昏睡~
不由昏睡~