Fixation tregistry.deletekey


Microsoft a décidé de rendre le registre de l'API de travailler différemment sur Win9X pour windows Nt/2000. C'est gentil !
Fixation DeleteKey
De la WinAPI de l'aide sur DeleteKey....

Appel DeleteKey pour supprimer une clé spécifiée et ses données associées,
le cas échéant, à partir du registre. Sous Windows 95, si la clé est sous-clés,
les sous-clés et toutes les données associées sont également supprimés.
Sous Windows NT, sous-clés doivent être explicitement supprimé par des
appels à DeleteKey.

...Donc, le code que vous écrivez sur Win9x qui fonctionne (supprime la clé
peu importe les sous-clés) ne fonctionnera pas sur windows Nt/2000.
j'ai Donc trouvé nécessaire d'écrire ma propre mise en œuvre qui
appelle de manière récursive iteself afin de supprimer les sous-clés.
procédure DeleteRegKey(aRoot : HKey aPath : String)
var
& nbsp & nbsp SL : TStringList
& nbsp & nbsp X : Integer
begin
& nbsp & nbsp SL := TStringList.Créer
& nbsp & nbsp avec TRegistry.Créer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp RootKey := aRoot
& ! & ! & ! & nbsp si OpenKey(aPath,False), puis commencer
& ! & ! & ! & ! & ! & nbsp GetKeyNames(SL)
& ! & ! & ! & ! & ! & nbsp Pour X:=0 pour SL.Count-1 ne DeleteRegKey(aRoot,aPath '\' SL[X])
& ! & ! & ! & ! & ! & nbsp CloseKey
& ! & ! & ! & ! & ! & nbsp DeleteKey(aPath)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp Gratuit
& ! & ! & ! & nbsp SL.Gratuit
& nbsp & nbsp fin
fin
ASTUCE:Pour comprendre la récursivité, vous devez d'abord comprendre la récursivité!









Fixation tregistry.deletekey


Fixation tregistry.deletekey : Plusieurs milliers de conseils pour vous faciliter la vie.


Microsoft a decide de rendre le registre de l'API de travailler differemment sur Win9X pour windows Nt/2000. C'est gentil !
Fixation DeleteKey
De la WinAPI de l'aide sur DeleteKey....

Appel DeleteKey pour supprimer une cle specifiee et ses donnees associees,
le cas echeant, a partir du registre. Sous Windows 95, si la cle est sous-cles,
les sous-cles et toutes les donnees associees sont egalement supprimes.
Sous Windows NT, sous-cles doivent etre explicitement supprime par des
appels a DeleteKey.

...Donc, le code que vous ecrivez sur Win9x qui fonctionne (supprime la cle
peu importe les sous-cles) ne fonctionnera pas sur windows Nt/2000.
j'ai Donc trouve necessaire d'ecrire ma propre mise en œuvre qui
appelle de maniere recursive iteself afin de supprimer les sous-cles.
procedure DeleteRegKey(aRoot : HKey aPath : String)
var
& nbsp & nbsp SL : TStringList
& nbsp & nbsp X : Integer
begin
& nbsp & nbsp SL := TStringList.Creer
& nbsp & nbsp avec TRegistry.Creer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp RootKey := aRoot
& ! & ! & ! & nbsp si OpenKey(aPath,False), puis commencer
& ! & ! & ! & ! & ! & nbsp GetKeyNames(SL)
& ! & ! & ! & ! & ! & nbsp Pour X:=0 pour SL.Count-1 ne DeleteRegKey(aRoot,aPath '\' SL[X])
& ! & ! & ! & ! & ! & nbsp CloseKey
& ! & ! & ! & ! & ! & nbsp DeleteKey(aPath)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp Gratuit
& ! & ! & ! & nbsp SL.Gratuit
& nbsp & nbsp fin
fin
ASTUCE:Pour comprendre la recursivite, vous devez d'abord comprendre la recursivite!


Fixation tregistry.deletekey

Fixation tregistry.deletekey : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation