Autostart: Wieso funktioniert der Code nicht ?!?

[Christian Seehase]

Moin Trouble Maker,

zu Deinen Code Schnipseln fällt mir 'ne ganze Menge ein:

Zum einen warum es nicht funktioniert:
Vermutlich befindet sich im Programmpfad ein Leerzeichen. Du müsstest nicht paramstr(0) in den Key schreiben, sondern '"'+paramstr(0)+'"'.

Dann vermisse ich in den ersten beiden Abschnitten die Freigabe des Reg Objektes und überall das Schliessen des Keys. (try/finally Blöcke wären auch gut)

Als nächstes prüfst Du nirgends, ob das was Du da gemacht hast auch funktioniert hat. Ob ein OpenKey den Key überhaupt geöffnet hat wird nicht geprüft, und dank Deines Try/Except Blockes würde auch nie eine Exception in diesem Bereich auffallen.

Ausserdem kannst Du leicht unnötigen Code vermeiden:

Der letzte Abschnitt könnte auch so aussehen:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject); 
var Reg: TRegistry; 
begin 
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
      try
        if CheckBox1.Checked then begin
          Reg.WriteString('Security-Tool.exe', '"'+ParamStr(0)+'"');
        end else begin
          Reg.DeleteValue('Security-Tool.exe');
        end;
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;

Aufpassen solltest Du noch beim Zuweisen eines Wertes an CheckBox.Checked, denn hierdurch wird ein OnClick Ereignis ausgelöst.