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

**Mirilin**

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.

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

**Mirilin**

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

[/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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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:

markieren

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?

Anwendunng automatisch starten

Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Re: Anwendunng automatisch starten

Forumregeln

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#1 Anwendunng automatisch starten 15. Okt 2003, 14:25 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?? Akut-Programming be cool, be hot ... just be
	Zitat

Mirilin Registriert seit: 21. Dez 2002 Ort: Lenzburg 861 Beiträge Delphi 6 Professional	#2 Re: Anwendunng automatisch starten 15. Okt 2003, 14:29 Spontan würde mir da ein Eintrag in der Registry einfallen (Schlüssel ...\Run oder ähnlich). [Edit] KLICK MICH Tobias Die Physik ist für die Physiker eigentlich viel zu schwer.
	Zitat

Alexander Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET	#3 Re: Anwendunng automatisch starten 15. Okt 2003, 14:29 Such hier mal nach Autostart, da wirst du bestimmt was finden. Sonst such mal in der Registry nach dem Key 'Run' Alexander
	Zitat

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#4 Re: Anwendunng automatisch starten 15. Okt 2003, 14:39 Cool, danke. Sieht vielversprechend aus. Akut-Programming be cool, be hot ... just be
	Zitat

Robert Marquardt (Gast) n/a Beiträge	#5 Re: Anwendunng automatisch starten 15. Okt 2003, 14:45 Die Jedi Code Library http://sourceforge.net/projects/jcl enthaelt auch dazu eine Funktion. Die Checkbox musst du aber schon selber hinkriegen
	Zitat

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#6 Re: Anwendunng automatisch starten 15. Okt 2003, 14:56 Joa, gucksch mir ma an Akut-Programming be cool, be hot ... just be
	Zitat

Mirilin Registriert seit: 21. Dez 2002 Ort: Lenzburg 861 Beiträge Delphi 6 Professional	#7 Re: Anwendunng automatisch starten 15. Okt 2003, 15:00 zur TNA findest du HIER was. Tobias Die Physik ist für die Physiker eigentlich viel zu schwer.
	Zitat

Uncle Cracker Registriert seit: 30. Mär 2003 Ort: Freital 694 Beiträge	#8 Re: Anwendunng automatisch starten 15. Okt 2003, 15:03 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 [/edit] I wish it was legal to marry software because I'm madly in love with Delphi...
	Zitat

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#9 Re: Anwendunng automatisch starten 15. Okt 2003, 16:55 Hey cool für eure zahlreichen und vorallem hilfreichen Tips bzw. Links. Akut-Programming be cool, be hot ... just be
	Zitat