Главная страница
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-1163580837
Sanyok
2006-11-15 11:53
2006.12.03
По правте пожалуйста этот запрос не правильно делит


2-1163756193
Дмитрий Белькевич
2006-11-17 12:36
2006.12.03
io error 32


2-1163621813
dima123
2006-11-15 23:16
2006.12.03
Значение


2-1162990447
Okey
2006-11-08 15:54
2006.12.03
record для новичка


2-1163146941
Access
2006-11-10 11:22
2006.12.03
События (свойства) ListView