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);