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.
