Текущий архив: 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.043 c
