高分高分了，请高手帮忙！

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  MyStream: TMemoryStream;
begin
  try
    MyStream := TMemoryStream.Create;
    IdHTTP1.Get('http://127.0.0.1/update.txt', MyStream);
    MyStream.SaveToFile(ExtractFilePath(Application.ExeName)+'server.ini');
    MyStream.Free;
  except
    ShowMessage('获取列表失败');
    Application.Terminate;
假如生成的这个文件叫chengxu.exe 我现在放在game目录下，那么保存的ini文件肯定也放在game目录下，我现在想把ini放在game目录下的data目录下，怎么办？

Answer 1

MyStream.SaveToFile(ExtractFilePath(Application.ExeName)+'data\server.ini'); 

Answer 2

如果Data目录不存在呢？呵呵，
先用ForceDirectories确保目录存在

Answer 3

没错先判断目录是否存在  
uses   filectrl;   
  if   directoryexists(ExtractFilePath(Application.ExeName)+'data')   then
  begin   
    //...   
  end；

Answer 4

大家看看楼主的分数还有他给的分。。专家分: 目前总共有26分 马上查看他的帖子
VC/MFC:20分 扩充话题:6分