Ü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

[alcaeus]

Zitat von Delphi OH:

function ValueExists(const Name: String): Boolean;

Das sollte helfen

Greetz
alcaeus

[edit]Immer diese Katze [/edit]

[mirage228]

Zitat von alcaeus:

[edit]Immer diese Katze [/edit]

Ist KeyExists() von der Katze überhaupt richtig?

mfG
mirage228

[sakura]

Zitat von mirage228:

Ist KeyExists() von der Katze überhaupt richtig?

Hat die Katze doch gar nicht mehr

......

[jAcK oRsEn]

also fehler gabs nichtz

[alcaeus]

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 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

Greetz
alcaeus