La fijación de tregistry.deletekey

La fijacion de tregistry.deletekey

La fijacion de tregistry.deletekey : Multi-millones de consejos para hacer su vida mas facil.

Microsoft decidio hacer el registro de la API de trabajo de manera diferente en Win9X, para WinNT/2000. Que bonito !
la Fijacion de DeleteKey
a partir De la WinAPI ayuda en DeleteKey....

Llame DeleteKey para eliminar una clave especificada y sus datos asociados,
si alguna, desde el registro. En Windows 95, si la clave tiene subclaves,
las subclaves y los datos asociados se eliminan tambien.
en Windows NT, subclaves se deben eliminar explicitamente por separado
las llamadas a DeleteKey.
...Asi que, el codigo que se escribe en Win9x, que funciona (elimina la tecla
independientemente de subclaves) no funcionara en WinNT/2000.
por Lo que me ha sido necesario escribir mi propia aplicacion la que
llama recursivamente a iteself con el fin de eliminar sub-claves.
procedimiento DeleteRegKey(aRoot : HKey aPath : String)
var
& nbsp & nbsp SL : TStringList
& nbsp & nbsp X : Integer
begin
& nbsp & nbsp SL := TStringList.Crear
& nbsp & nbsp con TRegistry.Crear
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp RootKey := aRoot
& nbsp & nbsp & nbsp & nbsp si OpenKey(aPath,False) then begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp GetKeyNames(SL)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp X:=0 a SL.Count-1 do DeleteRegKey(aRoot,aPath '/' SL[X])
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp CloseKey
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DeleteKey(aPath)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp Libre
& nbsp & nbsp & nbsp & nbsp SL.Libre
& nbsp & nbsp final
fin
TIP:Para entender la recursividad, primero debe entender la recursividad!