Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Brauche hilfe bei Registry*

  Alt 23. Mai 2009, 00:17
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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat