如何删除某个注册表键及其所有子键和父键

Share

1. [Code]
   
2. procedure TotalDeleteRegKey(rKey: integer; sKey: string; deletesubkeys: boolean);
   
3. var
   
4.   s: string;
   
5. begin
   
6.   s := sKey;
   
7.   if deletesubkeys then
   
8.     RegDeleteKeyIncludingSubkeys(rKey, sKey)
   
9.   else
   
10.     RegDeleteKeyIfEmpty(rKey, sKey);
    
11.   if Pos('\', s) <> 0 then
    
12.     begin
    
13.       while s[Length(s)] <> '\' do
    
14.         Delete(s, Length(s), 1);
    
15.       Delete(s, Length(s), 1);
    
16.       TotalDeleteRegKey(rKey, s, false);
    
17.     end;
    
18. end;
    
19. 
    
20. procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
    
21. begin
    
22.   if CurUninstallStep = usPostUninstall then
    
23.     TotalDeleteRegKey(HKCU, ExpandConstant('{app}'), true);
    
24. end;

复制代码