Anwendunng automatisch starten

[Akut-Programming]

Hi, ich würd gern meine Anwendung - ja nach Checkbox Zustand beim Windows Start automatisch starten lassen, ambesten minimiert - damit sie im Tray verschwindet. Wie kann ich das realisieren?? :roll:

[Mirilin]

:hi:

Spontan würde mir da ein Eintrag in der Registry einfallen (Schlüssel ...\Run oder ähnlich).


[Edit] KLICK MICH

[Alexander]

Such hier mal nach Autostart, da wirst du bestimmt was finden.
Sonst such mal in der Registry nach dem Key 'Run'

[Akut-Programming]

Cool, danke. Sieht vielversprechend aus.

[Robert Marquardt]

Die Jedi Code Library http://sourceforge.net/projects/jcl enthaelt auch dazu eine Funktion.
Die Checkbox musst du aber schon selber hinkriegen ;-)

[Akut-Programming]

Joa, gucksch mir ma an :cyclops:

[Mirilin]

:hi:

zur TNA findest du HIER was.

[Uncle Cracker]

Die Schweizer haben es noch ein bisschen ausführlicher gemacht.
Siehe hier: http://www.swissdelphicenter.ch/de/showcode.php?id=1157

[edit=UC]Rechtschreibefehler verbessert :lol:[/edit]

[Akut-Programming]

Hey cool für eure zahlreichen und vorallem hilfreichen Tips bzw. Links.

[Akut-Programming]

Also hab jetzte mal rumprobiert... nur löscht er mir die Einträge nich wieder aus der Registry!?
Hier mal mein Code:

Aufruf der Prozeduren:

Delphi-Quellcode:

procedure Tfrm_einstellungen.Checkbox6Click(Sender: TObject);
begin
  if Checkbox6.Checked=true
  then begin
  DoAppToRunOnce('SmSo_Terminplaner',ExtractFilePath(Application.ExeName)+'terminplaner.exe');
  end else
  if IsAppInRunOnce('SmSo_Terminplaner')=true then ShowMessage('Existiert');
  DelAppInRunOnce;
  begin
  end;
end;

Prozedur zum Eintragen:

Delphi-Quellcode:

procedure DoAppToRunOnce(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName,AppName);
    CloseKey;
    Free;
  end;
end;

Prozedur zum löschen:

Delphi-Quellcode:

procedure DelAppInRunOnce;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  Reg.DeleteValue('SmSo_Terminplaner');
  Reg.Destroy;
end;

Könnt ihr mir helfen - bestimmt, oder?