怎样获得当前打开文件的目录？？

Question

有一个Access数据库和自己做的一个小程序放在同一个目录，想在程序运行时自动加载这个数据库，所以需要得到当前的文件目录

Answer 1

不好意思再附加一个问题，怎样把这个文件路径赋值给ADOConnection.connectionstring???
好多 ' 难以处理！！！

Answer 2

procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
begin
  TADOConnection(Sender).ConnectionString := WIDESTRING('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(ParamStr(0)) + 'your.mdb;Persist Security Info=False')
end;