Break ON

Function fnCompareIni($sIni1,$sIni2)
   Dim $iPhase
   Dim $sFile1,$sFile2
   Dim $sSection,$sEntry
   Dim $sValue1,$sValue2

   For $iPhase=0 To 1
      If $iPhase
         $sFile1=$sIni1
         $sFile2=$sIni2
      Else
         $sFile1=$sIni2
         $sFile2=$sIni1
      EndIf
      For Each $sSection In Split(ReadProfileString($sFile1,"",""),Chr(10))
         If $sSection <> ""
            If ReadProfileString($sFile2,$sSection,"")=""
               "$sFile2 Section " $sSection " blank or missing" ?
            Else
               For Each $sEntry In Split(ReadProfileString($sFile1,$sSection,""),Chr(10))
                  If $sEntry <> ""
                     $sValue1=ReadProfileString($sFile1,$sSection,$sEntry)
                     $sValue2=ReadProfileString($sFile2,$sSection,$sEntry)
                     If $sValue1<>$sValue2
                        If $sValue2=""
                           "$sFile2, Section $sSection, Entry $sEntry is blank or missing" ?
                        Else
                           If $iPhase
                              "Section $sSection, Entry $sEntry mismatch" ?
                           EndIf
                        EndIf
                     EndIf
                  EndIf
               Next
            EndIf
         EndIf
      Next
   Next
EndFunction

fnCompareIni(".\ini1.ini",".\ini2.ini")