如何读取当前目录下的ini文件？

[cool_city]

如何读取当前目录下的ini文件？
难道只能将ini文件拷贝到window系统目录下才能让应用程序找到吗？
有什么好方法解决？

[DURON800]

var
IniFile:TIniFile;
IniFileName:string;
TempDir:string;
begin
TempDir:= ExtractFilePath(Application.ExeName);
IniFileName:=TempDIr + '\Config.Ini';
IniFile := TIniFile.Create(IniFileName);
With IniFile Do Begin
XX:=IniFile.ReadString('节名称','值名称','默认值');
End;
IniFile.Free;
end;

[DURON800]

不好意思，错了一句，应为：
With IniFile Do Begin
XX:=ReadString('节名称','值名称','默认值');
End;

另外，加上 try
finally
语句会更好！！！！！！！！！！！

[winder_008]

ｕｐ
上面的老兄门说的很清楚了

[netlib]

getdir得到当前目录，
然后读取就完了。

[debussy]

var
AIniFile:TIniFile;
IniFileName:string;
CurrDir:string;
begin
GetDir(0,CurrDir);
AIniFile := TIniFile.Create(CurrDir+'\'+IniFileName);
try
with AIniFile do
begin
//Read operation
end;
finally
AIniFile.Destroy;
end;

[fqsxr]

var
iniFile:TIniFile;
begin
iniFile:=TInifile.create('.\a.ini');
//用'.\'就可以打开当前目录，不用就是打开WINDOWS目录。
...

[Tiga]

var ss :string;
dir : string;
fini : TIniFile;
begin
ss := GetCurrentDir;
dir := ss+'\Setup'+IntToStr(File_Name)+'.ini';
fini := Tinifile.create(dir);
ss := fini.readstring('option','keyname','');
....
fini.free;

[fqsxr]

var
iniFile:TInifile;
begin
iniFile:=TInifile.create('.\a.ini');
//用'.\'就是打开当前目录，不用就是打开WINDOWS目录

[王集鹄]

IniFileName := ExtractFilePath(ParamStr(0)) + 'temp.ini';

[wzrlover]

var
IniPath:string;
MyFile:TIniFile;
begin
//ini文件放在应用程序目录下的ini文件夹下
IniPath:=ExtractFilePaht(Application.ExeName)+'ini\'+'Myini.ini';
try
MyFile:=TiniFile.Create(IniPath)
with MyFile do
begin
Readstring('xxx','xxx',xxx);
........
end;
finally
Myfile.free;
end;
end;

[dext]

".\Filename.ini'

[dext]

是'.\Filename.ini'

[dext]

是'.\Filename.ini'