Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
ВнизКак удалить из реестра переменную? Найти похожие ветки
← →
InfoCar1 (2004-03-06 16:57) [0]Как удалить из реестра переменную?
← →
Ihor Osov'yak © (2004-03-06 17:06) [1]Если ручками - есть такая утилита - regedit. Если программно - см. TRegistry.DeleteValue или RegDeleteValue.
Последнее - апишный вызов, следовательно можно использовать не только в D.
Подробности - нажатием F1.
← →
InfoCar1 (2004-03-06 17:33) [2]в Делфи
мне нужен пример типа
RegDeleteValue.DeleteValue(HKEY_LOCAL_MACHINE,PChar("SOFTWARE\Microsoft\Windows\CurrentVersion\Run,Sklad"));
как правильно?
← →
Serge © (2004-03-06 17:39) [3]Уважаемый, InfoCar1
ответ Ihor Osov"yak © (06.03.04 17:06) [1] должен был полностью удовлетворить Ваши потребности особенно последняя часть - Подробности - нажатием F1.
This OnClick event handler deletes all values saved in the registry under they key named in an edit control.
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
Val:TStringList;
I:Integer;
begin
Reg:=TRegistry.Create;
try
Val:=TStringList.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section to look for within the registry
if not Reg.OpenKey(Edit1.Text,False) then
ShowMessage("Error opening key")
else
begin
Reg.GetValueNames(Val);
for I:=0 to Val.Count-1 do
begin
ShowMessage(Edit1.Text + Chr(13) +
"has an Entry Called "+Val.Strings[I]+Chr(13)+
"With a Value of "+Reg.ReadString(Val.Strings[I]));
end;
if MessageDlg("Ok to delete the key and lose all these values?"
,Mtinformation,[mbYes,mbNo],0)=mryes then
Reg.DeleteKey(Edit1.Text);
end;
finally
Val.Free;
end;
finally
Reg.Free;
end;
end;
← →
InfoCar1 (2004-03-06 18:13) [4]Нажатием по F1 не получается, т.к. по этому нет хелпа, но все равно спасибо, сам справился...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c