一、配置文件
.ini 文件是基于文本类型的格式文件，用于存储程序初始化和配置数据。
.ini文件是有段（Sections）和键（key）组成的，每个文件可以有 n个段(每个段有方括号括起来)，每个段可以有m个键，大致格式如下：
[secontion]
KeyName1=Value1;
;comment
KeyName2=Value2;
段名和键名在使用中是不区分大小写得，但是名字中不能有空格。
键可以存储integer，string，float，boolean，datatime等数据类型。
如我写的服务配置文件连接数据库的例子：
[Oralce]
con_scyx=Provider=MSDAORA.1;Password=ygscyx;User ID=scyx;Data Source=ygdbsrv;Persist Security Info=True
con_erp=Provider=MSDAORA.1;Password=ERP;User ID=ERP;Data Source=ORCL;Persist Security Info=True
二、读取配置文件
在Delphi中有一个TIniFile的类用于访问.ini文件，该类定义在IniFiles.pas文件中，具体使用如下
1、在Interface的Uses节增加IniFiles；
2、在Var变量定义部分增加一行：myinifile:Tinifile;
然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。
二、打开INI文件
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(filename);
该语句将会为变量myinifile与具体的文件program.ini建立联系，然后，就可以通过变量myinifile，来读写program.ini文件中的关键字的值了。如果括号中的文件名没有指明路径的话，那么这个Program.ini文件会存储在Windows目录中,把Program.ini文件存储在应用程序当前目录中的方法是：为其指定完整的路径及文件名。
三、读取关键字的值
针对INI文件支持的字符串、整型数值、布尔值三种数据类型，TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。假设已定义变量vs、vi、vb分别为string、integer、boolean类型。其中缺省值为该INI文件不存在该关键字时返回的缺省值。
vs:=myinifile.Readstring('小节名','关键字',缺省值);
vi:=myinifile.Readinteger('小节名','关键字',缺省值);
vb:=myinifile.Readbool('小节名','关键字',缺省值);
四、写入INI文件
同样的，TInifile类也提供了三种不同的对象方法，向INI文件写入字符串、整型数及布尔类型的关键字。
myinifile.writestring('小节名','关键字',变量或字符串值);
myinifile.writeinteger('小节名','关键字',变量或整型数值);
myinifile.writebool('小节名','关键字',变量或True或False);
当这个INI文件不存在时，上面的语句还会自动创建该INI文件。
五、删除关键字
除了可用写入方法增加一个关键字，Tinifile类还提供了一个删除关键字的对象方法：
myinifile.DeleteKey('小节名','关键字');
六、小节操作
增加一个小节可用写入的方法来完成
myinifile.EraseSection('小节名'); // 删除一个小节
myinifile.readsection('小节名',TStrings变量); 将小节中的所有关键字名读取至一个字符串列表变量中；myinifile.readsections(TStrings变量); 将INI文件中所有小节名读取至一个字符串列表变量中去。
myinifile.readsectionvalues('小节名',TStrings变量); 将小节的键值对读取至一个字符串列表变量中去。
七、释放
myinifile.Destroy; 也可以使用FreeAndNil(myinifile);
我写的读取配置文件数据库的例子
procedure TDBMonitorService.ServiceCreate(Sender: TObject);
var
pFile: array[0..255] of char;
begin
try
GetModuleFileName(0,pFile,Sizeof(pFile));//获取路径
g_Path := ExtractFileDir(pFile); //获得服务的路径 从文件名中获取目录名(文件不在根目录下时取得的值后没有“/”，在根目录时一样，都是盘符，例如“C:/”)
with tinifile.Create(g_path+'config.ini') do
try
ConScyx := ReadString('Oralce','con_scyx','');
ConErp := ReadString('Oralce','con_erp','');
finally
Free;
end;
con_scyx:=TADOConnection.Create(nil);
con_scyx.ConnectionString:=ConScyx;
con_scyx.LoginPrompt:=false;
con_erp:=TADOConnection.Create(nil);
con_erp.ConnectionString:=ConErp;
con_erp.LoginPrompt:=false;
qry_scyx:=TADOQuery.Create(nil);
qry_scyx.Connection:=con_scyx;
qry_erp:=TADOQuery.Create(nil);
qry_erp.Connection:=con_erp;
except
on e:Exception do
begin
WriteLog(e.Message+'->服务启动错误！');
Exit;
end;
end;
end;