| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление из реестра Windows [D5, Win95/98, Win2k]

Yaro ©   (2001-12-26 21:59:00) 

Привет всем!
Подскажите, пожалуйста, какие-нибудь методы удаления строкового параметра (или папки) из реестра Windows.
Должны же быть АПИ-функции или какие-нибудь другие методы, очень надо...

Заранее спасибо!

---

Yaro   (2002-01-22 15:50:00) [1]

y-soft: Спасибо! Очень помогли.

---

y-soft   (2002-01-14 22:14:00) [2]

>Yaro ©

Re:...почему не работает такой код?..


Альтернативный способ экспорта ключей (работает независимо от версии ОС):

WinExec("regedit.exe /e c:\1.txt "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft"",SW_HIDE);

---

Muhomor   (2002-01-14 20:14:00) [3]

Помоему здесь задавался вопрос о АПи функцих а не о Tregistry
Вот на апи было бы не плохо услышать

---

Romul   (2002-01-03 12:59:00) [4]

Сорри за неточность, но зачем нужен ключ реестра без определенного значения?

---

Beauty_Full   (2002-01-02 22:00:00) [5]

Uses {...},Registry;

{...}

Function DeleteValue(Root:HKEY;Path,VName:String):Boolean;
Var R:TRegistry;
Begin
R:=TRegistry.Create;
Result:=True;
Try R.RootKey:=Root;
If R.OpenKey(Path,False) Then R.DeleteKey(VName);
Except Result:=False
End;
R.Free
End;

или

Uses {...},RegUtil;

{...}

Function DelValue(HRoot:HKEY;Path,VName:String):Boolean;
Function DelTree(HRoot:HKEY;Path,TName:String):Boolean;
Function DelTree_A (HRoot:HKEY;Path,TName:String;Type:HREG):Boolean;
Function DelPhase(HRootAPath:GREGJ;Names:String):Boolean;

---

Anatoly Podgoretsky   (2001-12-31 12:53:00) [6]

Romul (28.12.01 13:07)
Вообще то никто не просил удалять ключи!

DeleteValue

---

Yaro   (2001-12-30 23:48:00) [7]

Спасибо, еще вопрос - как Експортировать "папку"?
Вернее так - почему не работает такой код?

Reg := TRegistry.Create;

Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.Access := KEY_ALL_ACCESS;
Reg.SaveKey("SOFTWARE\Microsoft", "e:\1.txt");
Reg.Free;


Windows 2000 Advenced Server (ENG), User=Administrator

---

Romul   (2001-12-28 13:07:00) [8]

const
REGISTRY_KEY="Software\MyKey";

procedure .....
var
Reg:TRegistry;
begin
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE; //ну или др.
Reg.OpenKey(REGISTRY_KEY, true);
Reg.DeleteKey("..");
finally
Reg.Free;
end;
end;

---

SergVlad   (2001-12-26 22:07:00) [9]

TRegistry

---

Наверх