<DllImport("kernel32.dll")> _
Private Shared Function WriteProfileString(ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String) As Boolean
End Function
[DllImport("kernel32.dll")]
static extern bool WriteProfileString(string lpAppName, string lpKeyName,
string lpString);
None.
None.
Please add some!
Public Function SetProfileString(ByVal filename As String, ByVal section As String, ByVal key As String, ByVal sValue As String) As Boolean
Dim bRslt As Boolean
If filename = "" Then
bRslt = WriteProfileString(section, key, sValue)
Else
bRslt = WritePrivateProfileString(section, key, sValue, filename)
End If
Return bRslt
End Function
Public Function SetProfileString(ByVal section As String, ByVal key As String, ByVal sValue As String) As Boolean
Return SetProfileString("", section, key, sValue)
End Function
Public bool SetProfileString(string section, string key, string sValue)
{
WriteProfileString("", section, key, sValue);
}
Please add some!
Do you know one? Please contribute it!