Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

TRegistry - удалить подраздел   Найти похожие ветки 

 
DelphiLexx ©   (2006-10-24 11:01) [0]

У меня в разделе HKEY_CURRENT_USER\Software\Aleksey хранится произвольное число подразделов:
HKEY_CURRENT_USER\Software\Aleksey\Alex0
HKEY_CURRENT_USER\Software\Aleksey\Alex1
...
HKEY_CURRENT_USER\Software\Aleksey\AlexN

Как с помощью TRegistry удалить все подразделы раздела HKEY_CURRENT_USER\Software\Aleksey


 
Джо ©   (2006-10-24 11:07) [1]

http://sql.ru/forum/actualthread.aspx?tid=353486

TRegistry.DeleteKey.


 
DelphiLexx ©   (2006-10-24 11:16) [2]


> TRegistry.DeleteKey

DeleteKey удалить и папку HKEY_CURRENT_USER\Software\Aleksey
, а мне нужно удалить только её содержимое, конечно, можно удалить все что есть в Aleksey, а потом её заново создать, но это глупо.


 
Джо ©   (2006-10-24 11:22) [3]

TRegistry.GetKeyNames и затем DeleteKey для каждого. Вот я чего не пойму, зачем Справка существует?


 
Плохиш ©   (2006-10-24 11:28) [4]


> Джо ©   (24.10.06 11:22) [3]


> Вот я чего не пойму, зачем Справка существует?

Ну наверное, для того, чтобы ты её почитал, перевёл и выдал в виде кода для copy/paste этому человеку с высшим образованием.


 
Джо ©   (2006-10-24 11:37) [5]

> [4] Плохиш ©   (24.10.06 11:28)
>
> > Джо ©   (24.10.06 11:22) [3]
>
>
> > Вот я чего не пойму, зачем Справка существует?
>
> Ну наверное, для того, чтобы ты её почитал, перевёл и выдал
> в виде кода для copy/paste этому человеку с высшим образованием.

Да. Точно. Ждем вопроса: "а поделитесь кодом". :)


 
Anatoly Podgoretsky ©   (2006-10-24 11:58) [6]


> удалить все что есть в Aleksey, а потом её заново создать,
>  но это глупо.

Если глупо разом, то удаляй поэлементно, вот это действительно будет глупо


 
MetalFan ©   (2006-10-24 12:43) [7]

простите, но LOL)


 
DelphiLexx ©   (2006-10-24 17:24) [8]


> Да. Точно. Ждем вопроса: "а поделитесь кодом". :)

Пожалуйста:


function
 TAppDBList.RefreshDBList:
 boolean;
var
 i: integer;
 Reg: TRegistry;
 KeyNames : TStringList;
 KeyInfo : TRegKeyInfo;
begin

 Result := true;
 Reg := TRegistry.Create;
 try
   if Count > 0 then
   begin
     Reg.RootKey := HKEY_CURRENT_USER;
     if Reg.OpenKey(ini.FileName, true) then
     begin
       Reg.GetKeyInfo(KeyInfo);
       if KeyInfo.NumSubKeys > 0 then
       begin
         KeyNames := TStringList.Create;
         try
           try
             Reg.GetKeyNames(KeyNames);
             for i := 0 to KeyNames.Count - 1 do
               Reg.DeleteKey(KeyNames[i]);
           except
             Result := false;
           end;
         finally
           KeyNames.Free;
         end;
       end;
     end;
   end;
 finally
   Reg.Free;
 end;
end;


 
Джо ©   (2006-10-24 17:27) [9]

Странный код...



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.06 c
2-1163473730
Wood
2006-11-14 06:08
2006.12.03
Continue, вложенный цикл.


2-1163577126
DragonIG
2006-11-15 10:52
2006.12.03
Как можно из-под программы переписать строковые ресурсы в DLL


15-1163270326
Alatiel
2006-11-11 21:38
2006.12.03
Delphi 7: could not find valid product information


15-1163535441
i-s-v
2006-11-14 23:17
2006.12.03
Вопрос о смартфоне НокИя Е61


11-1140002148
KingMidas
2006-02-15 14:15
2006.12.03
SQLLite