Private Declare Function GetPrivateProfileSection Lib  "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Function EnumIniKeys(ByVal sIniPath As String, ByVal sSection As String, ByRef asKeys() As String) As Long
    Dim sBuffer As String, sKeys As String, i As Long
'
'   on récupère toutes les  clés+valeurs
    sBuffer = VBA.Strings.String$(458752, vbNullChar)
    sKeys = VBA.Strings.Left$(sBuffer, GetPrivateProfileSection(sSection,  sBuffer, Len(sBuffer),  sIniPath) - 1)
    If (VBA.Strings.LenB(sKeys) And VBA.Strings.InStrB(1, sKeys, "=")) Then
        asKeys = VBA.Strings.Split(sKeys,  vbNullChar)
        For i = LBound(asKeys) To UBound(asKeys)
'           l'API nous retourne aussi les valeurs, on  nettoie
            asKeys(i) = VBA.Strings.LeftB$(asKeys(i),  VBA.Strings.InStrB(1,  asKeys(i), "=") - 1)
        Next i
        EnumIniKeys = LBound(asKeys) + UBound(asKeys) + 1
    End If
End Function

<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Ansi)> _ 
Friend Function GetPrivateProfileSection(ByVal lpAppName As String, ByVal lpReturnedString As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

End Function
Public Function EnumIniKeys(ByVal IniPath As String, ByVal Section As String) As String() 
Dim pBuffer As IntPtr = Marshal.AllocHGlobal(32768)
Dim keys() As String = Nothing


Try
Dim iRet As Integer = GetPrivateProfileSection(Section, pBuffer, 32768, IniPath) 
If (iRet > 0) Then
Dim sReturned As String = Marshal.PtrToStringAnsi(pBuffer, iRet - 1) 
keys = sReturned.Split(vbNullChar.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

If (keys IsNot Nothing AndAlso keys.Length > 0) Then
For i As Integer = 0 To keys.Length - 1 
keys(i) = keys(i).Substring(0, keys(i).IndexOf("="))
Next


End If

Else

Return Nothing

End If
Catch ex As Exception 
Finally

If pBuffer <> IntPtr.Zero Then

Marshal.FreeCoTaskMem(pBuffer)

End If

End Try
Return keys 
End Function

[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Ansi)]
internal static int GetPrivateProfileSection(string lpAppName, IntPtr lpReturnedString, int nSize, string lpFileName);

public string[] EnumIniKeys(string IniPath, string Section)
{

  IntPtr pBuffer = Marshal.AllocHGlobal(32768);
  string[] keys = null;

  try {

    int iRet = GetPrivateProfileSection(Section, pBuffer, 32768, IniPath);
    if ((iRet > 0))
    {
      string sReturned = Marshal.PtrToStringAnsi(pBuffer, iRet - 1);
      keys = sReturned.Split(char.ConvertFromUtf32(0).ToCharArray(), StringSplitOptions.RemoveEmptyEntries); 
      if ((keys != null && keys.Length > 0))
      {
        for (int i = 0; i <= keys.Length - 1; i++) {
          keys(i) = keys(i).Substring(0, keys(i).IndexOf("="));
        }
      }

    }
    else
    {
      return null;
    }

  }
  catch (Exception ex) {
  }
  finally {
    if (pBuffer != IntPtr.Zero)
    {
      Marshal.FreeCoTaskMem(pBuffer);
    }
  }

  return keys;

}

uses Inifiles;
 
 // List sections
 procedure ListIniSections(const IniFile: string; Sections: TStrings);
  begin
    Sections.BeginUpdate;
    try
      with TIniFile.Create(IniFile) do
      try
        ReadSections(Sections);
      finally
        Free;
      end;
    finally
      Sections.EndUpdate;
    end;
  end;
 
 // list values of section
 procedure ListIniSectionValues(const IniFile, Section: string; Values: TStrings);
 begin
   Values.BeginUpdate;
   try
     with TIniFile.Create(IniFile) do
     try
       ReadSection(Section, Values);
     finally
       Free;
     end;
   finally
     Values.EndUpdate;
   end;
 end;
 
 // list values and datas of section
 procedure ListIniSectionValuesAndDatas(const IniFile, Section: string; ValuesAndDatas: TStrings);
 begin
   ValuesAndDatas.BeginUpdate;
   try
     with TIniFile.Create(IniFile) do
     try
       ReadSectionValues(Section, ValuesAndDatas);
     finally
       Free;
     end;
   finally
     ValuesAndDatas.EndUpdate;
   end;
 end;