如何在可执行文件所在的当前目录下创建文件，并读取文件

Alice

如何在可执行文件所在的当前目录下创建文件，并读取文件

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
  ifFile : TIniFile;
begin
  //获取EXE的绝对路径
  sIniFilePath :=Business.System.JSCommon.ModulePath+'CustomConfigmmm.Ini';
if not Business.System.SysUtils.FileExists(sIniFilePath) then
  begin
    //创建INI文件
    Sysutils.FileCreate(sIniFilePath);
  end;
  try
   ifFile:= TIniFile.Create(sIniFilePath);
    Edit1.Text := ifFile.ReadString('新闻浏览','Name1','');
    Edit2.Text := ifFile.ReadString('新闻浏览','Name2','');
  finally
    ifFile.Free;
  end;
end;

Alice

procedure TMainForm.BitBtn2Click(Sender: TObject);
var
  ifFile : TIniFile;
begin
  try
    ifFile := TIniFile.Create(sIniFilePath);
    ifFile.WriteString('新闻浏览','Name1',Edit1.Text);
    ifFile.WriteString('新闻浏览','Name2',Edit2.Text);
  finally
    ifFile.Free;
  end;
end;