Registry-Key löschen

[St.Pauli]

Also, ich glaube ich pack es net nervlich :wink: !!

Wie lösch ich einen Key aus der Registry?
Ich mache als

Code:

Reg := TRegistry.Create;
    try
          Reg.DeleteKey('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\url1');
    finally
          Reg.Free;
end;

und es zeigt ja auch beim starten dann keinen Fehler aber wenn cih in der Registry nachsehe steht der Key noch?

BIN ICH ZU BLÖD (ja, will es nur nochma von euch hören :wink: ) ??????

[bigg]

moin,

leg mal in deinem Beispiel "RootKey" fest. :wink:

[St.Pauli]

^^Hat ich auch schon probiert

Code:

    Reg := TRegistry.Create;
    Reg.RootKey:=HKEY_CURRENT_USER;
    try
          Reg.DeleteKey('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\url1');
    finally
      Reg.Free;
    end;

[bigg]

du willst das hier löschen:
"HKEY_CURRENT_USER\HKEY_CURRENT_USER\Software\Micr osoft\Internet Explorer\TypedURLs\url1"

[St.Pauli]

OK, das hab ich geändert, aber der existiert immer noch!

Code:

procedure TForm1.Button11Click(Sender: TObject);
var Reg: TRegistry;
begin
    Reg := TRegistry.Create;
    Reg.RootKey:=HKEY_CURRENT_USER;
    try
          Reg.DeleteKey('Software\Microsoft\Internet Explorer\TypedURLs\url1');
    finally
      Reg.Free;
    end;
end;

[MrSpock]

Hallo St. Pauli,

:warn: bitte demnächst nicht zwei Threads zu demselben Thema aufmachen.

[St.Pauli]

OK, sorry

[gsh]

das Problemm ist des man den key erst öffnen muss.

Code:

procedure TForm1.Button11Click(Sender: TObject); 
var Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  Reg.RootKey:=HKEY_CURRENT_USER; 
  try 
    if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\') = true then
    begin
      Reg.DeleteKey('url1'); 
    end;
  finally 
    Reg.Free; 
  end; 
end;

:thumb:

[St.Pauli]

Code:

procedure TForm1.Button11Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  try
    if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\', true) then
    begin
      Reg.DeleteKey('url1');
    end;
  finally
    Reg.Free;
  end;
end;

So, oder?

Klappt aber immer noch nicht!

Nur so, ich bin und habe volle Admin rechte aufm PC, daran kanns net liegen (Kein plan ob es daran liegen könnte)

[gsh]

a ja ich hab des vergessen des des noch einen zweiten parameter braucht der ist dafür dass der ordner erstellt wird wenn er nicht vorhanden ist aber es müsste funktionieren.

Code:

procedure TForm1.Button11Click(Sender: TObject); 
var Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  Reg.RootKey:={Rootkey}HKEY_CURRENT_USER; 
  try 
    if Reg.OpenKey({ordner in dem root key}'Environment', true) then 
    begin 
      Reg.DeleteKey({Der value wert}'Path'); 
    end; 
  finally 
    Reg.Free; 
  end; 
end;

wenns dann immer noch nicht geht dann bin ich ratlos

PS: Achtung des ist von windows irgend so ein Schlüssel nicht wirklich löschen oder vorher backup machen