API DeletePrivateProfileString

Messages postés
11
Date d'inscription
mardi 16 juillet 2002
Statut
Membre
Dernière intervention
29 juin 2003
-
Messages postés
14
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
18 juillet 2004
-
J'ai vu dans le forum qelqu'un qui parlait de cette API pour supprimer des clé des fichier INI. Mais il n'avait pas préciser qu'elles sont les varaible.
Si cette personne se reconnait peut il me répondre ou si une autre personne connait la réponse alors n'hesité pas.
P.S : Si possible donner un exemple.
Inc@nus

1 réponse

Messages postés
14
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
18 juillet 2004

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)