delphi 如何将txt文件保存在与exe文件相同的文件夹下。
如：
begin
AssignFile(list,'list.txt');
Rewrite(list,'list.txt');
CloseFile(list);
Memo.Lines.SaveToFile('list.txt');
end;
想将list.txt保存到与程序生成的exe文件相同的文件夹下。
希望能手指点一下！！！！！！感谢

先用ChDir过程将你的当前目录设置为EXE文件所在的文件夹,然后再执行文件保存操作. CHDIR过程语法:procedure ChDir(const S: string); overload; procedure ChDir(P: PChar); overload;. 描述ChDir 会将当前目录改变为由S或P指定的路径。如果这个操作失败，异常EInOutError将会引发。

ExtractFilePath(Application.ExeName):用這API函數獲取當前執行文件的路徑覺得方便點.
Memo.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'list.txt');

非常感谢你们了 ！！！！！[em10]