Private Declare Function GetPrivateProfileSectionNames Lib  "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Function EnumSections(ByRef aSections() As String, sIniPath As String) As Boolean
    On Local Error Resume Next
'    on récupère toutes les clés de la section
    Dim sRet As String, sTempSection As String
    sRet = String$(458752, vbNullChar)
    sTempSection = Left$(sRet, GetPrivateProfileSectionNames(sRet, Len(sRet), sIniPath) - 1)
'   en principe c'est pas vide, mais dans le  doute...
    If LenB(sTempSection) = 0 Then
        EnumSections = False
    Else
'       on renvoie toutes les sections
        aSections() = Split(sTempSection, vbNullChar)
        EnumSections = True
    End If
    sRet = vbNullString
    sTempSection = vbNullString
End Function

'   EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    Dim aRet() As String
    If EnumSections(aRet, "C:\BOOT.INI") Then
        Dim i As Integer, sRet As String
        sRet = vbNullString
        For i = LBound(aRet) To UBound(aRet)
            sRet = sRet & "[" & aRet(i) & "]" & vbCrLf
        Next i
        MsgBox sRet
    Else
        MsgBox "aucune section"
    End If
    Erase aRet
    Unload Me
End Sub

<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _ 
Function GetPrivateProfileSectionNames( _ 
ByVal lpszReturnBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
End Function
    Private Function EnumSections(ByRef sections() As String, ByVal path As String) As Boolean
        Dim bRet As Boolean = True
        Dim pBuff As IntPtr = Marshal.AllocCoTaskMem(458752)
        Dim iRet = GetPrivateProfileSectionNames(pBuff, 458752, path)
        If iRet > 0 Then
            Dim sRet As String = Marshal.PtrToStringAuto(pBuff, iRet)
            sections = sRet.Substring(0, sRet.Length - 1).Split(vbNullChar)
        Else
            bRet = False
        End If
        Marshal.FreeCoTaskMem(pBuff)
        Return bRet
    End Function

{Nescessite la déclaration de IniFiles dans les Uses} 
procedure TForm1.Button1Click(Sender: TObject); 
begin   
  With TIniFile.Create('C:\Boot.ini') Do Try     
    ReadSections(Memo1.Lines);   
  Finally     
    Free;   
  End; 
end; 

>>> import ConfigParser as cp
>>> cfg = cp.ConfigParser()
>>> fichier = "test.ini"
>>> cfg.read(fichier)
['test.ini']
>>> for section in cfg.sections():
...        print section