Скачать: CL | DM;

Как удалить из реестра переменную?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c