Programm zur beim Windowsstart starten!

[Luckie]

Zeig erstmal, was du schon hast, dann müsen wir nicht von vorne anfangen.

[The-X]

hi,

versuch's mal mit folgendem:
OpenReadOnly (damit du keine Fehlermeldung bekommst wenn der Schlüssel nicht existiert
bzw.
ValueExists (um zu guggn ob der Wert existiert

[F.W.]

Hier ist der Code:

Delphi-Quellcode:

 Reg := TRegistry.Create;
 if Reg.KeyExists('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run') then
    StartBox.Checked := True else
    StartBox.Checked := False;
 Reg.Free;

Aber das Ding ist nie angehakt.

[Luckie]

Was für einen Fehler bekommst deu denn zurück? (GetLastError) Eventuell erst öffen den Schlüssel? Und wie wäre es mit einem klitze kleinen Ressourcenschutzblock?

[Christian Seehase]

Moin F.W.,

hast Du für die CheckBox zufälliger Weise einer OnClick Routine?
Diese wird bei Zuweisung eines Wertes an Checked aufgerufen.

[F.W.]

Ich bekomme keine Fehlermeldung zurück, die CheckBox ist nurnicht angehakt.

Kann es sein, dass ich noch den Namen der Exe irgendwie anhängen muss?

[Christian Seehase]

Moin F.W.,

Zitat von F.W.:

Kann es sein, dass ich noch den Namen der Exe irgendwie anhängen muss?

Wenn Du nur wissen willst, ob der Key vorhanden ist, nicht.
Ansonsten müsstest Du den Key öffnen und mit ValueExists prüfen, ob der von Dir eingetragenen Wert da drin steht, bzw. mit ReadString prüfen, ob er auch den gewünschten Inhalt hat.

Du kannst Dir übrigens die if Abfrage einsparen:
StartBox.Checked := Reg.KeyExists('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run');

[F.W.]

Danke, dann werde ich also den Key öffnen und mit ValueExists prüfen .

PS:

Zitat:

Du kannst Dir übrigens die if Abfrage einsparen

Stimmt, danke!