Hallo. Ich hab ein kleines Prog gemacht dass sich in den Autostart installieren soll. Allerdings klappt das komischerweise nicht.

markieren

Code:

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
  If not (Reg.ValueExists('progname')) then Reg.WriteString('progname',(getsystemdir + '\progname.exe'));
  Reg.Free;

Es kommt kein Fehler und es wird kein key erstellt. Bei nem Freund hats geklappt.
Das komische ist aber auch, das ich dort wenn ich über regedit in die registry reingehe, dann dort einen neuen key erstelle, dass dieser zwar erstellt wird, aber wenn ich den namen ändern will bzw in löschen will, dann kommt der fehler "Nicht alle werte können gelöscht werden" oder "Fehler beim umbenennen des eintrags". Wie kommt das?

Der Zugriff auf HKEY_LOCAL_MACHINE hängt von den Benutzerrechten ab!!
Nur der Administrator (und Kollegen) darf uneingeschränkt dort schreiben.
Mit dem Programm regedt32.exe kannst du die Berechtigungen einsehen (und evtl. ändern).

Zitat von shmia:

Mit dem Programm regedt32.exe kannst du die Berechtigungen einsehen (und evtl. ändern).

Was aber nicht zu empfehlen ist, da sich dann jede Malware in den Autostart eintragen kann.

Ich bin aber der einzige Benutzer auf dem pc und auch admin

Das ist schlecht. Dann hat nämlich jede Malware gleich Administrator Rechte.

Trotzdem kommt mir das komisch vor:

Zitat von Gerrit89:

markieren

Code:

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
  If not (Reg.ValueExists('progname')) then Reg.WriteString('progname',(getsystemdir + '\progname.exe'));
  Reg.Free;

Nicht nur, dass in HKLM reinschreiben willst, dein Programm liegt offenbar auch noch im Systemordner von Windows. Schlechter Stil, wenn du mich fragst.

Wenn du schon eine if Abfrage machst, warum wertest du den Rüclgabe wert nicht aus mit GetLastError. Und OpenKey ist auch eine Funktion, deren Rückgabewert man überpüfen kann.

Und gar kein Kommentar wg. try/finally/end?

Das habe ich mittlerweile aufgegeben.

Mathias ich versteh nicht was du meinst.
Und das try finally... mmh... vergessen.