Überprüfen ob Prohramm schon im Autostart ist!

[jAcK oRsEn]

Hi, ich stelle mein Programm mit folgendem Code in den Autostart:

Delphi-Quellcode:

Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  Reg.WriteString('Walli', ParamStr(0));
  Reg.Destroy;

Wie kann ich aber zuvor prüfen ob mein Prorgramm schon im Autostart ist?

[sakura]

Ganz einfach ;)

Code:

Reg := TRegistry.Create;
try
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  [color=#f50000]if not Reg.ValueExists('Walli') then[/color]
    Reg.WriteString('Walli', ParamStr(0));
finally
  Reg.Destroy;
end;

....cat:...

P.S:: Value wars :mrgreen:

[alcaeus]

Zitat:

Zitat von Delphi OH

Delphi-Quellcode:

function ValueExists(const Name: String): Boolean;

Das sollte helfen

Greetz
alcaeus

[edit]Immer diese Katze :roll: ;)[/edit]

[mirage228]

Zitat:

Zitat von alcaeus

[edit]Immer diese Katze :roll: ;)[/edit]

Ist KeyExists() von der Katze überhaupt richtig?

mfG
mirage228

[sakura]

Zitat:

Zitat von mirage228

Ist KeyExists() von der Katze überhaupt richtig?

Hat die Katze doch gar nicht mehr :mrgreen:

...:cat:...

[jAcK oRsEn]

also fehler gabs nichtz

[alcaeus]

Zitat:

Zitat von jAcK oRsEn

also fehler gabs nichtz

Wegen dem KeyExists? KeyExists ist ja auch eine richtige Funktion. KeyExists überprüft allerdings, ob ein Schlüssel (also der Pfad zum Wert) vorhanden ist, ValueExists erfüllt deine Bedürfnisse ;)

Greetz
alcaeus

[jAcK oRsEn]

und wie wende ich das dann an?

[alcaeus]

Zitat:

Zitat von sakura

Delphi-Quellcode:

Reg := TRegistry.Create;
try
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  if not Reg.ValueExists('Walli') then
    Reg.WriteString('Walli', ParamStr(0));
finally
  Reg.Destroy;
end;

Die Katze hat ihren Code korrigiert :roll: ;)

Greetz
alcaeus