ini文件读写

//创建对象:
iniFile:=TIniFile.Create(strFile);

//写入
procedure IEAddFavUrl(FURL, Title: string);
var
  fPath: string;
begin
  fPath := GetFavoritesPath;
  with TIniFile.Create(fPath + Title + '.url') do
  try
    WriteString('InternetShortcut', 'URL', FURL);
  finally
    free;
  end;
end;

//读取单个子节点的值
function AWS_GET_HomeWebAddr:String;
var
  strPath,strDefault,strWebAddr:string;
  AWSIni:TIniFile;
  Buffer:array[0..MAX_PATH] of Char;
begin
  strDefault:='http://'+GStack.LocalAddress;
 
  ZeroMemory(@Buffer[0],SizeOf(Buffer));
  GetWindowsDirectory(@Buffer[0],MAX_PATH);
  strPath:=StrPas(@Buffer[0])+'Aws.ini';
  AWSIni:=TIniFile.Create(strPath);
  strWebAddr:=AWSIni.ReadString('config','Aws_LocalIp','');
  AWSIni.Free;

  if strWebAddr='' then
    strWebAddr:=strDefault;
  Result:=strWebAddr;
end;


//读取整个节点下的值和字节点名称
  strFile:=StrBackupPath+'data.ini';
  iniFile:=TIniFile.Create(strFile);
  sl:=TStringList.Create;
  slValue:=TStringList.Create;
  iniFile.ReadSections(sl);//读取ini文件中所有的一级节点到sl中。
  iniFile.ReadSection('comm',sl);//读取comm节点下所有子节点名称到sl中.
  iniFile.ReadSectionValues('comm',slValue);//读取comm节点下所有子节点的名称和值到slValue中：id=123