API DeletePrivateProfileString
cs_Incanus
Messages postés
11
Date d'inscription
mardi 16 juillet 2002
Statut
Membre
Dernière intervention
29 juin 2003
-
29 juil. 2002 à 19:31
picwin Messages postés 14 Date d'inscription mercredi 10 juillet 2002 Statut Membre Dernière intervention 18 juillet 2004 - 30 juil. 2002 à 11:13
picwin Messages postés 14 Date d'inscription mercredi 10 juillet 2002 Statut Membre Dernière intervention 18 juillet 2004 - 30 juil. 2002 à 11:13
1 réponse
picwin
Messages postés
14
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
18 juillet 2004
30 juil. 2002 à 11:13
30 juil. 2002 à 11:13
cette API n'existe pas :-p .
il faut utiliser l'API d'ecriture et passer des parametres à null pour effacer soit une section, soit une clé.
ex:
Public Sub DeleteSection(ByVal section As String)
Dim retval As Integer
retval = WritePrivateProfileString(section, 0&, "", FileIni)
End Sub
Public Function DeleteINISetting(ByVal sSection As String, _
ByVal sKey As String) As Long
Dim lStatus As Long
Const sValue As Long = 0
Dim Path As String
If Len(sKey) > 0 Then
sKey = sKey & vbNullChar
End If
Path = FileIni & vbNullChar
lStatus = WritePrivateProfileString(sSection, _
sKey, _
sValue, _
Path)
DeleteINISetting = lStatus
End Function
:approve) :approve) :approve) :approve) :approve)
il faut utiliser l'API d'ecriture et passer des parametres à null pour effacer soit une section, soit une clé.
ex:
Public Sub DeleteSection(ByVal section As String)
Dim retval As Integer
retval = WritePrivateProfileString(section, 0&, "", FileIni)
End Sub
Public Function DeleteINISetting(ByVal sSection As String, _
ByVal sKey As String) As Long
Dim lStatus As Long
Const sValue As Long = 0
Dim Path As String
If Len(sKey) > 0 Then
sKey = sKey & vbNullChar
End If
Path = FileIni & vbNullChar
lStatus = WritePrivateProfileString(sSection, _
sKey, _
sValue, _
Path)
DeleteINISetting = lStatus
End Function
:approve) :approve) :approve) :approve) :approve)
