如何取得当前目录

今天 写项目的时候遇到 一个怪事，除了指定绝对路径（能行，但不灵活），所以想文件就在本目录下，为何还要非得指定一个路径信息呢，于是 经过一翻查找资料，才发现，事情是这样处理~！！

On Windows,

ParamStr(0) returns the path and file name of the executing program (for example, C:/TEST/MYPROG.EXE).

ExtractFilePath（。。。）

The resulting string is the leftmost characters of FileName, up to and including the colon or backslash that separates the path information from the name and extension. The resulting string is empty if FileName contains no drive and directory parts.

///// 当前目录的 表示方法
if tbl2.Active=False then
begin
tbl2.DatabaseName := ExtractFilePath(ParamStr(0)); //+'country.db'
tbl2.Active := True;
end;