INI文件的读写

　　function readInifile(fileName,section,Ident:string):string;？ //读取配置文件
　　var
　　？ ini:tinifile;
　　begin
　　？ ini:=tinifile.Create(fileName);
　　？ result:=ini.ReadString(section,ident,'');
　　？ ini.Free;
　　end;

　　procedure writeInifile(const fileName,Section, Ident, Value: string); //写inifile
　　var
　　？ ini:tinifile; aPathName:string;
　　begin
　　？ try
　　？？？ aPathName:= ExtractFileDir(fileName);
　　？？？ if not DirectoryExists(aPathName) then
　　？？？？？ ForceDirectories(aPathName);

　　？？？ ini:=tinifile.Create(fileName);
　　？？？ ini.WriteString(Section, Ident, Value);
　　？？？ ini.Free;
　　？ except
　　？ end;
　　end;