Brauche hilfe bei Registry*

[Christian Seehase]

Ich hätte da noch einen kleinen Verbesserungsvorschlag:

Delphi-Quellcode:

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try // Absichern, dass reg auch wieder freigegeben wird
    with Reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      // Wenn der Key nicht geöffnet werden kann gibt es nichts weiter zu tun
      // Open kann, z.B., auf Grund fehlender Rechte fehlschlagen
      // Wenn nicht geschrieben werden darf, nutzt auch der Parameter true nichts
      if not OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then exit;
      try // Sicherstellen, dass der Key wieder geschlossen wird
        if ValueExists('123.exe') then DeleteValue('123.exe');
      finally
        CloseKey;
      end;
    end;
  finally
    Free;
  end;
end;