pinvoke.net: Edit: kernel32.WritePrivateProfileSection

@msdn=http://search.microsoft.com/search/results.aspx?qu=$$$
@pinvoke=http://pinvoke.net/$$$.htm

Summary: The WritePrivateProfileSection API

!!!!C# Signature:
 [DllImport("kernel32.dll")]
 static extern bool WritePrivateProfileSection(string lpAppName,
   string lpString, string lpFileName);

!!!!C++ Signature:
 [DllImport("KERNEL32.DLL", CharSet=CharSet::Auto, EntryPoint="WritePrivateProfileSection")]
 static Boolean WritePrivateProfileSection(String^ lpAppName, String^ lpString, String^ lpFileName);

!!!!VB.NET Signature:
 <DllImport("kernel32.dll")> _
 Private Declare Auto Function WritePrivateProfileSection(ByVal lpAppName As String, _
   ByVal lpString As String, _
   ByVal lpFileName As String) As Boolean

Private Declare Ansi Function WritePrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpString As String, _
      ByVal lpFileName As String) As Integer

!!!!User-Defined Types:
None.

!!!!Notes:
None.

!!!!Tips & Tricks:
Please add some!

!!!!Sample Code:
VB.NET 
 Dim MYNAME As String = Replace(Replace(Replace(My.Application.Info.CompanyName.ToLower, ",", ""), ".", ""), " ", "_")
    Dim ConfigFile As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\" & MYNAME & "\" & "database.config"

Private Declare Ansi Function GetPrivateProfileString _
      Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpDefault As String, _
      ByVal lpReturnedString As System.Text.StringBuilder, _
      ByVal nSize As Integer, ByVal lpFileName As String) _
      As Integer
    Private Declare Ansi Function WritePrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpString As String, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt _
      Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal nDefault As Integer, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As Integer, _
      ByVal lpKeyName As Integer, ByVal lpString As Integer, _
      ByVal lpFileName As String) As Integer

Public Sub New()
        Dim FI As New FileInfo(ConfigFile)
        If My.Computer.FileSystem.DirectoryExists(FI.DirectoryName) = False Then
            My.Computer.FileSystem.CreateDirectory(FI.DirectoryName)
        End If

If My.Computer.FileSystem.FileExists(ConfigFile) = False Then
            CreateIniDefaults()
        End If

If GetString("SETTINGS", "LAST", "") = "0" Then
            CreateIniDefaults()
        End If

End Sub

#Region "Reading"
    Public Function GetString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String
        ' Returns a string from your INI file
        Dim intCharCount As Integer = 0
        Dim objResult As New System.Text.StringBuilder(1024)
        intCharCount = GetPrivateProfileString(Section, Key, [Default], objResult, objResult.Capacity, ConfigFile)
        If intCharCount > 0 Then
            GetString = Left(objResult.ToString, intCharCount)
        Else
            Return "0"
        End If
    End Function

Public Function GetInteger(ByVal Section As String, _
      ByVal Key As String, ByVal [Default] As Integer) As Integer
        ' Returns an integer from your INI file
        Return GetPrivateProfileInt(Section, Key, _
           [Default], ConfigFile)
    End Function
#End Region
#Region "Writing"
    Public Sub WriteString(ByVal Section As String, _
    ByVal Key As String, ByVal Value As String)
        ' Writes a string to your INI file
        WritePrivateProfileString(Section, Key, Value, ConfigFile)
        Flush()
    End Sub
    Public Sub WriteInteger(ByVal Section As String, _
      ByVal Key As String, ByVal Value As Integer)
        ' Writes an integer to your INI file
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub
#End Region
#Region "Cleanup"
    Private Sub Flush()
        ' Stores all the cached changes to your INI file
        FlushPrivateProfileString(0, 0, 0, ConfigFile)
    End Sub
#End Region
#Region "Default Creation"
    Private Sub CreateIniDefaults()
        Dim FI As New FileInfo(ConfigFile)
        Dim s As String = String.Empty
        s = s & "[LAST]" & vbCrLf & "LAST=LOCAL" & vbCrLf & vbCrLf
        s = s & "[LOCAL]" & vbCrLf
        s = s & "DBTYPE=2" & vbCrLf
        s = s & "O1=127.0.0.1" & vbCrLf
        s = s & "ISADMIN=0" & vbCrLf
        s = s & vbCrLf & vbCrLf
        s = s & "[SETTINGS]" & vbCrLf
        s = s & "COMPANY=MY COMPANY,INC." & vbCrLf
        Try
            My.Computer.FileSystem.WriteAllText(ConfigFile, s, False)
        Catch ex As Exception
            MsgBox("Unable to save default database settings." & vbCrLf & ex.InnerException.ToString, MsgBoxStyle.Information)
        End Try
    End Sub
#End Region

!!!!Alternative Managed API:
Do you know one?  Please contribute it!

Documentation: WritePrivateProfileSection@msdn on MSDN