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;