Registry-Key löschen

[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