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

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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;

Answer 4

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

Answer 5

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

Answer 6

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;

Answer 7

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;

Answer 8

不好意思，错了一句，应为：
    With IniFile Do Begin
    XX:=ReadString('节名称','值名称','默认值');
    End;另外，加上  try 
           finally
      语句会更好！！！！！！！！！！！