Удаление из реестра Windows

← →
Beauty_Full (2002-01-02 22:00) [5]

Uses {...},Registry;

{...}

Function DeleteValue(Root:HKEY;Path,VName:String):Boolean;
Var R:TRegistry;
Begin
R:=TRegistry.Create;
Result:=True;
Try R.RootKey:=Root;
If R.OpenKey(Path,False) Then R.DeleteKey(VName);
Except Result:=False
End;
R.Free
End;

или

Uses {...},RegUtil;

{...}

Function DelValue(HRoot:HKEY;Path,VName:String):Boolean;
Function DelTree(HRoot:HKEY;Path,TName:String):Boolean;
Function DelTree_A (HRoot:HKEY;Path,TName:String;Type:HREG):Boolean;
Function DelPhase(HRootAPath:GREGJ;Names:String):Boolean;

Удаление из реестра Windows Найти похожие ветки