Über Delphi zu Windows Register??

[CSgamer]

Brauche Hilfe!!
Ich habe einen Notiz Programm und würde dem gerne ,jedesmal mit Windows gestarted haben...
Kann ich das so machen, dass sich mein Notiz Programm bei öffnen direkt in Register unter HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run einträgt? Wenn Ja dann wie?
Brauche Hilfe!!

Bitte Hilft mir!!!!

[edit=sakura] Doppelpost gelöscht! Mfg, sakura[/edit]

[Luckie]

Guck dir einfach mal die Klasse Tregistry in der Hilfe an. aber warum seit ihr immer so fixiertd auf HKLM? Sinnvoller wäre doch bestimmt der entsprechende Run-Schlüssel unter HKCU, da kann jeder Benutzer selber entscheiden, ob er es starten will oder nicht.

[CSgamer]

Na ja ich habe es versucht aber es habt nicht geklabt
Es wird schon was eingetragen aber, es öffnet sich nicht mit Windows Start.
So ist das:

Delphi-Quellcode:

procedure RunOnStartup(sTitel, sBefehl: String; bEinmalig: Boolean);
var   sKey: String;
begin
  if bEinmalig then sKey := 'RunOnce'
  else sKey := 'Run';
  With TRegistry.Create do begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\' + sKey, false);
    WriteString(sTitel, sBefehl);
    free;
  end;
end;

Dann rufe ich das mit ein Button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//nimm False, wenn der Eintrag bei JEDEM Start ausgeführt werden soll
//nimm True, wenn er nur beim NÄCHSTEN Windowsstart ausgeführt weden soll
RunOnStartup('notiz', 'C:\Programme\notiz.exe', False);
end;

Und das was!
Ich weiß nicht was ich falsch gemacht habe.

[mkinzler]

Hat der Benutzer, unter dem das Programm ausgefüht werden soll, Adminrechte ?

[CSgamer]

J a, es gibt nur einen Benutzer(Admin).

[mkinzler]

Ändere den Code mal so ab

Delphi-Quellcode:

procedure RunOnStartup(sTitel, sBefehl: String; bEinmalig: Boolean);
var   sKey: String;
begin
  if bEinmalig then sKey := 'RunOnce'
  else sKey := 'Run';
  With TRegistry.Create do begin
    Access := KEY_ALL_ACCESS;
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\' + sKey, false);
    WriteString(sTitel, sBefehl);
    free;
  end;
end;

[CSgamer]

Ich hab's gemacht, es funktioniert immer noch nicht.
Das Problemm ist das der Eintrag nach dem Windows Start direkt gelöscht und garnicht ausgeführt wird.Obwohl die Quelen von meinem Prog. richtig sind.





Danke für die vorherige Hilfe.

[mkinzler]

Läuft bei dir vielleicht ein Sicherheitsprogramm, wie der Teatimer von S & D? Dieser "korrigiert" deine Änderungen beim Neustart des Rechners.

[CSgamer]

Aha das ist das richtige.Jetztz lgeht.!!!! DANKE