Registry Wert dauerhaft löschen

[Luckie]

Ich habe hier ein etwas seltsames Phänomen. Unter dem Schlüssel HKCU\Software\Microsoft\windows\CurrentVersion\Exp lorer\Discardable\PostSetup\ShellNew findetman die Einträge vom den Kontextmenü die man sieht wenn man im Explorer mit der rechten Maustaste klickt und dann "Neu" auswählt. Wenn man dort einen Wert löscht, dann fehlt auch der zugehörige Eintrag im Kontextmenü. Öffnet man das Kontextmenü aber zum zweiten mal, ist der Eintrag in der Registry und im Menü wieder da. allerdings wollte ich die Einträge dauerhaft löschen, weil das Menü voller Einträge ist, die ich nicht brauche und man die nicht findet, die man braucht.

Ich habe mir auch schon ein kleines Programm dafür geschrieben:

Delphi-Quellcode:

uses
  Registry;

const KEY = 'Software\Microsoft\windows\CurrentVersion\Explorer\Discardable\PostSetup\ShellNew';

procedure RegGetValueNames(const Key: AnsiString; Values: TStrings);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ);
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(KEY, false) then
    begin
      Reg.GetValueNames(Values);
    end
    else
      RaiseLastOSError;
  finally
    Reg.Free;
  end;
end;

procedure RegDeleteValue(const Key: AnsiString; const Value: AnsiString);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    if Reg.OpenKey(KEY, false) then
    begin
      if not Reg.DeleteValue(Value) then
        RaiseLastOSError;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  try
    RegGetValueNames(KEY, CheckListBox1.Items);
    for i := 0 to CheckListBox1.Count - 1 do
      CheckListBox1.Checked[i] := true;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  try
    for i := 0 to CheckListBox1.Count - 1 do
    begin
      if not CheckListBox1.Checked[i] then
        RegDeleteValue(KEY, CheckListBox1.Items[i]);
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Das funktioniert auch, bis auf die Tatsache, dass Windows die gelöschten Einträge wieder erstellt. Windows muss sie sich also noch irgendwo anders merken. Nur wo? Ich habe unter HKCU nichts weiter gefunden.

[himitsu]

Hast du es mal so probiert?

- (eventuell den Explorer abschießen ... Taskmanager)
- Einträge löschen
- Windows neu starten
- weg?

[Bernhard Geyer]

Um welche Einträge geht es? Sind das evtl. Einträge von ShellExtensions? Dann solltest du diese Löschen.
Ansonsten wird wohl hier die Registry wohl nur eine Art NIL-Device darstellen.

[Luckie]

Windows habe ich noch nicht neu gestartet.

Im Anhang noch mal ein Screenshot von den Einträgen.

[Luckie]

Neue Erkenntnis:

Unter HKEY_USERS\S-1-5-21-1060284298-492894223-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Exp lorer\Discardable\PostSetup\ShellNew gibt es die gleichen Einträge. Und dort kann ich sie auch löschen. Aber dann sind sie auch wieder da. Auch wenn ich sie in beiden Schlüsseln lösche.

[DeddyH]

In letzter Zeit mal beim Bayrischen Zoll gewesen? (SCNR^^)

[Bernhard Geyer]

Zitat von Luckie:

Neue Erkenntnis:

Unter HKEY_USERS\S-1-5-21-1060284298-492894223-725345543-1003 ... gibt es die gleichen Einträge.

Das ist ja auch deine HKCU-Zweig der Registry.

[Bummi]

werde die gegf. von den Anwendungen bzw. Installer neu geschrieben?

[Luckie]

Nein, die betreffenden Anwendungen wurden nach dem Löschen nicht gestartet.

[Bummi]

Vielleicht kommst Du mit Regmon bzw. Prozess Monitor dahinter wer die Schlüssel wieder einträgt