Registry-Key löschen

[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;