无窗口PAS文件访问INI文件的问题

// 获取DbConString.ini连接字符串
function TADOHelper.GetConnString(key: integer): string;

begin
   getdir(0, Dir);
 // Dir := Dir + '\DbConString.ini';
  // Dir := 'F:\Delphi\AngelSulEmail\AngelSulEmail\Win32\Debug\DbConString.ini';
  // Dir:= ExtractFilePath(Paramstr(0))   + '\DbConString.ini';

  result := Dir;
end;

[解决办法]
你在有窗体的单元文件中输入dir, 查看其声明单元, 加入到你无窗体单元中来
[解决办法]
DIR你定义了吗！真是的。。
[解决办法]
使用GetModuleFileName好了
[解决办法]
INI应该可以，问题在INI未指明何处。
[解决办法]
头文件是 windows

//保存INI设置参数
procedure SaveConfig(FileName : String;Setting : String;Key : String;Value : String);
begin
  WritePrivateProfileString(PChar(Setting),pchar(Key),pchar(Value),pchar(FileName));
end;
//读取INI设置参数
function LoadConfig(FileName : String;Setting : String;Key : String) : String;
var
  strResult:array[0..200] of Char;
begin
  GetPrivateProfileString(pchar(Setting),pchar(Key),nil,strResult,300,pchar(FileName));
  result:=strResult;
end;