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; ...
[ 查看全文 ]