Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Erreur advapi32.dll

Erreur advapi32.dll

5 réponses
Avatar
Via
Bonjour à tous !

Voici mon code :

If plStatus = 0 Then
' We get a key ID so we can delete the entry
plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
End If

Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
J'ai bien dans mes déclarations :
Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
"RegdeleteKeyA" _
(ByVal hkey As Long, _
ByVal lpSubKey As String) As Long

donc je ne vois pas quel est le problème. Ca supprime bien mon entrée dans
ma base de registres, donc au pire je peux capturer l'erreur et faire un
Resume Next, mais ça n'est pas très élégant...
Merci de votre aide,

Via :)
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
PR-VB6
lKeyId =HKEY_CLASSES_ROOT /HKEY_CURRENT_USER ... =lPredefinedKey
(const long) désigne la branche
et non pas le handle de la clé
ByVal ptSubKey =sKeyName

Est-ce la solution?
PR

"Via" a écrit dans le message de news:

Bonjour à tous !

Voici mon code :

If plStatus = 0 Then
' We get a key ID so we can delete the entry
plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
End If

Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
J'ai bien dans mes déclarations :
Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
"RegdeleteKeyA" _
(ByVal hkey As Long, _
ByVal lpSubKey As String) As Long

donc je ne vois pas quel est le problème. Ca supprime bien mon entrée dans
ma base de registres, donc au pire je peux capturer l'erreur et faire un
Resume Next, mais ça n'est pas très élégant...
Merci de votre aide,

Via :)




Avatar
Via
Bonjour.

C'est peut-être la solution, mais je ne l'ai pas comprise. Ce code ne
vient pas de moi, malheureusement. Ce qui me dérange, c'est qu'il a toujours
fonctionné, y compris chez les clients, et que depuis quelques jours j'ai le
même problème sur plusieurs postes !
Bref, que faudrait-il que je fasse précisément ? Parce que je vois deux
lignes de code dans ton post, mais dois-je les recopier ? Si oui, où ? Ou
est-ce simplement le problème de vocabulaire que tu pointes ?
Merci en tous cas,

Via :)


"PR-VB6" a écrit dans le message de news:
#

lKeyId =HKEY_CLASSES_ROOT /HKEY_CURRENT_USER ... =lPredefinedKey
(const long) désigne la branche
et non pas le handle de la clé
ByVal ptSubKey =sKeyName

Est-ce la solution?
PR

"Via" a écrit dans le message de news:

> Bonjour à tous !
>
> Voici mon code :
>
> If plStatus = 0 Then
> ' We get a key ID so we can delete the entry
> plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
> End If
>
> Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
> RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
> J'ai bien dans mes déclarations :
> Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
> "RegdeleteKeyA" _
> (ByVal hkey As Long, _
> ByVal lpSubKey As String) As Long
>
> donc je ne vois pas quel est le problème. Ca supprime bien mon entrée


dans
> ma base de registres, donc au pire je peux capturer l'erreur et faire un
> Resume Next, mais ça n'est pas très élégant...
> Merci de votre aide,
>
> Via :)
>
>




Avatar
ng
Bonjour,

Et avec cette déclaration : Declare Function RegDeleteKey Lib "advapi32.dll"
Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Sinon peut-on voir plus de code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Via a écrit :

Bonjour à tous !

Voici mon code :

If plStatus = 0 Then
' We get a key ID so we can delete the entry
plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
End If

Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
J'ai bien dans mes déclarations :
Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
"RegdeleteKeyA" _
(ByVal hkey As Long, _
ByVal lpSubKey As String) As Long

donc je ne vois pas quel est le problème. Ca supprime bien mon entrée
dans ma base de registres, donc au pire je peux capturer l'erreur et
faire un Resume Next, mais ça n'est pas très élégant...
Merci de votre aide,

Via :)


Avatar
Via
Je ne cherche plus à comprendre. Je n'ai rien touché dans cette partie du
code mais je n'ai plus d'erreur. Et c'est pas la première fois... donc je
vous fait signe quand ça recommencera !
Merci de votre aide en tous cas,

Via :)

"ng" a écrit dans le message de news:

Bonjour,

Et avec cette déclaration : Declare Function RegDeleteKey Lib


"advapi32.dll"
Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As


Long

Sinon peut-on voir plus de code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Via a écrit :

> Bonjour à tous !
>
> Voici mon code :
>
> If plStatus = 0 Then
> ' We get a key ID so we can delete the entry
> plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
> End If
>
> Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
> RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
> J'ai bien dans mes déclarations :
> Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
> "RegdeleteKeyA" _
> (ByVal hkey As Long, _
> ByVal lpSubKey As String) As Long
>
> donc je ne vois pas quel est le problème. Ca supprime bien mon entrée
> dans ma base de registres, donc au pire je peux capturer l'erreur et
> faire un Resume Next, mais ça n'est pas très élégant...
> Merci de votre aide,
>
> Via :)




Avatar
ng
Ok !

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Via a écrit :

Je ne cherche plus à comprendre. Je n'ai rien touché dans cette
partie du code mais je n'ai plus d'erreur. Et c'est pas la première
fois... donc je vous fait signe quand ça recommencera !
Merci de votre aide en tous cas,

Via :)

"ng" a écrit dans le message de news:

Bonjour,

Et avec cette déclaration : Declare Function RegDeleteKey Lib
"advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal
lpSubKey As String) As Long

Sinon peut-on voir plus de code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Via a écrit :

Bonjour à tous !

Voici mon code :

If plStatus = 0 Then
' We get a key ID so we can delete the entry
plStatus = RegdeleteKey(lKeyId, ByVal ptSubKey)
End If

Cela me renvoie l'erreur suivante : erreur 453, Point d'entrée
RegdeleteKeyA d'une DLL introuvable dans advapi32.dll.
J'ai bien dans mes déclarations :
Private Declare Function RegdeleteKey Lib "advapi32.dll" Alias
"RegdeleteKeyA" _
(ByVal hkey As Long, _
ByVal lpSubKey As String) As Long

donc je ne vois pas quel est le problème. Ca supprime bien mon
entrée dans ma base de registres, donc au pire je peux capturer
l'erreur et faire un Resume Next, mais ça n'est pas très élégant...
Merci de votre aide,

Via :)