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

[bigg]

Was macht ihr denn da eigentlich?

Code:

if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\', true) then

Heißt so viel wie: Erstelle einen Schlüssel, auch wenn dieser nicht existiert !!!
Und wenn wir ihn dann geöffnet haben, löschen wir ihn wieder.

Das sollte hier funktionieren:
Was ist "url1" ?
Ein Schlüssel, eine Zahl, String, Boolean, Hexwert?
Bei mir gibts den wert nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
const Key = 'Software\Microsoft\Internet Explorer\TypedURLs\url1';
begin

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER; {für alle Benutzer}

if Reg.KeyExists(Key) then {ist der Schlüssel vorhanden?}
Reg.DeleteKey(Key) {dann löschen} else
ShowMessage('Konnte den Schlüssel nicht löschen.'); {ansonsten Fehlermeldung ausgeben}

finally Reg.Free;
end;
end;

[St.Pauli]

Hi, erstma danke für die Antowrten!!!! :-D

ist ein String!

Software\Microsoft\Internet Explorer\TypedURLs\ = 10 zuletzt besuchte Seiten im IE also (url1, url2, ... url10).
Inhalt zum beispiel http://www.delphipraxis.net/

Will die mal alle löschen! Gut, es gibt auch software, aber jetzt hab ich ein Prog für alle unnötigen Dateien, und da kann man das ja auch gleich mit einbauen.

[bigg]

ich würde an deiner Stelle den gesamten Schlüssel "TypedURLs" löschen.
geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
const Key = 'Software\Microsoft\Internet Explorer\TypedURLs\';
begin

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER; {für alle Benutzer}

if Reg.KeyExists(Key) then
begin {ist der Schlüssel vorhanden?}
Reg.DeleteKey(Key); {dann löschen}
ShowMessage('Schlüssel wurde gelöscht.');
end else
ShowMessage('Schlüssel konnte nicht gefunden werden.'); {ansonsten Fehlermeldung ausgeben}

finally Reg.Free;
end;
end;

[Nightshade]

Delphi-Quellcode:

procedure TForm1.FormCreate(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.DeleteValue('url1');
    end;
  finally
    Reg.Free;
  end;
end;

url1 ist ein VALUE kein KEY !!!

[bigg]

Zitat:

Zitat von Nightshade

Delphi-Quellcode:

procedure TForm1.FormCreate(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.DeleteValue('url1');
    end;
  finally
    Reg.Free;
  end;
end;

url1 ist ein VALUE kein KEY !!!

Erst denken dann posten. Nicht umgekehrt :mrgreen:

[Nightshade]

Zitat:

Zitat von bigg

Erst denken dann posten. Nicht umgekehrt :mrgreen:

Was will er nu damit sagen :gruebel: :gruebel: :gruebel:

[bigg]

Das du keine Ahnung hast, will er sagen :mrgreen:
Ich lösche auch den Schlüssel nicht den Wert.

[Nightshade]

Ich bezog mich nur auf die 98 Beispiele nach St.Pauli's Frage :

Warum geht

Delphi-Quellcode:

Reg.DeleteKey('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\url1');

das nicht....

Es war immer nur die Frage wie kann man url1 löschen, nie die Frage wie kann ich den ganzen Schlüssel löschen.....

[bigg]

Zitat:

Hi, erstma danke für die Antowrten!!!! Very Happy

ist ein String!

Software\Microsoft\Internet Explorer\TypedURLs\ = 10 zuletzt besuchte Seiten im IE also (url1, url2, ... url10).
Inhalt zum beispiel http://www.delphipraxis.net/

Will die mal alle löschen! Gut, es gibt auch software, aber jetzt hab ich ein Prog für alle unnötigen Dateien, und da kann man das ja auch gleich mit einbauen.

[St.Pauli]

:-D :-D :-D ~~~~~~~~~ THX @ ALL ~~~~~~~~~ :-D :-D :-D

Nun klappt es, habe die letzte Version genommen.

Danke an alle!

Gruß, St.Pauli