AutoStart für Delphi-Programme über Systemregistrierung

[TOC]

Hi!

Ihr kennt sicher den Ordner "Start/Programme/Autostart" in den man seine selbstgeschriebenen Delphi-Programme ablegen kann um diese beim Start von Windows automatisch zu starten. Nungut, das funktioniert zwar, hat aber auch so seine Nachteile.

Es gibt nun aber auch die Möglichkeit ein AutoStart-Programm in die Systemregistrierung zu schreiben wie das professionelle Programme machen. Dies hat erhebliche Vorteile, da man seinem Programm so zum Beispiel auch beliebige Parameter beim Programmstart übergeben kann.

Im Anhang findest Du zwei kleine Delphi-Beispiel-Programme, eines für Delphi 3.0 und eines für Delphi 7.0. Über die CheckBox kannst Du ein/ausschalten ob das Beispiel-Programm beim Windows-Start, oder beim Anmelden eines neuen Benutzers, automatisch gestartet werden soll.

In der Unit "Global" findest Du die entsprechenden Funktionen:

// Erzeugt den Namen und den Pfad der Anwendung aus ParamStr(0)
Procedure GetProgramNameAndPath(Var ProgramName,ProgramPath:String);

// Systemregistrierungseintrag schreiben/löschen und somit AutoStart ein/ausschalten
Procedure SetAutoStart(Form:TForm; Flag:Boolean; Param:String);

// In der Systemregistrierung nachschauen ob AutoStart für diese Anwendung eingeschaltet ist
Function GetAutoStart(Form:TForm):Boolean;

Wenn Du nun aus Deinem Delphi-Programm ein AutoStart-Programm machen willst dann binde einfach die Unit "Global" in Dein Programm ein.

Grüsse von TOC :cyclops: !

[Luckie]

Eigentlich überflüssig, da man nur wissen muss, wie man in die Registry schreibt. Und auch einer verknüpfung im Autostart Ordner kann man Parameter mitgeben.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Eigentlich überflüssig, da man nur wissen muss, wie man in die Registry schreibt. Und auch einer verknüpfung im Autostart Ordner kann man Parameter mitgeben.

Weiss aber nun mal nit jeder was man wo in die Systemregistrierung schreiben muss für ne Autostart Funktion! Aber nun kann jeder, den es interessiert, im SourceCode nachlesen wie´s geht!

Grüsse von TOC!

[Luckie]

Dann mach doch besser eine Klasse raus, die man dann direkt verwenden kann:

Delphi-Quellcode:

TAutoStart = class(TObject)
private
  //...;
  //...;
public
  procedure AutoStart(Programmname, Pfad, Parameter: String; AllUsers: Boolean = False);
  procedure DelAutoStrat(Programmname: String);
end;

(Nur mal so als Vorschlag, wie die Klasse aussehen könnte.)

[TOC]

Hi!

Ach, ne eigene Klasse für die 3 kleinen Funktionen? Wat sollte dat bringen? Natürlich kann man aus fast allem Unfug ne Klasse machen oder sogar ne Komponente dafür schreiben, aber sehr sinnvoll finde ich dies nicht :roll: !

Grüsse von TOC!

[Luckie]

Der Sinn ist der, dass du dann keine zwei, drei losen Funktionen in einer Unit rumfliegen hast. Du kannst sie dann ja noch erweitern mit Erstellen von Verknüpfungen im Autostartordner und im RunOnce-Schlüssel der Registry. Also da kann man schon was schönes raus machen.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Der Sinn ist der, dass du dann keine zwei, drei losen Funktionen in einer Unit rumfliegen hast. Du kannst sie dann ja noch erweitern mit Erstellen von Verknüpfungen im Autostartordner und im RunOnce-Schlüssel der Registry. Also da kann man schon was schönes raus machen.

Ja, gut, das hört sich nicht so schlecht an. Ich könnte ja auch ne nichtvisuelle Komponente draus machen, dann bräuchte der Programmautor ja nur die Eigenschafft "Enabled" (z.B.) auf true/false setzen?
Was meinst Du, würde sich der Aufwand lohnen?

Grüsse von TOC!

[Luckie]

Eine Komponente würde ich nicht daraus machen. Eine eigene Unit mit Klasse reicht vollkommen.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Eine Komponente würde ich nicht daraus machen. Eine eigene Unit mit Klasse reicht vollkommen.

Naja, eine Klasse muss erst erzeugt und später wieder freigegeben werden und dafür braucht man dann noch ne Variable etc.. Ich glaube das mit der Klasse ist zu umständlich! Ok, man könnte eine eigen Unit für solche Spielereien schreiben, oder für Leute mit recht wenig Plan ne Komponente die man einfach ins Formular klickt und dann true/falls etc... Auf der anderen Seite sammle ich in der Unit "Global" halt Sachen die ich in fast all meinen Programmen brauche und verwende...

Grüsse von TOC!

[matashen]

Nachdem jeder so seine eigenen Vorzüge in sachen Klassen Units etc hat, hier mein Vorschlag,

mach einfach alle Varianten, schon passt's für jeden

:dp:

[TOC]

Hi!

Zitat:

Zitat von matashen

Nachdem jeder so seine eigenen Vorzüge in sachen Klassen Units etc hat, hier mein Vorschlag,

mach einfach alle Varianten, schon passt's für jeden

:dp:

Na, das wär´n Aufwand! Mein Vorschlag: Ihr habt den SourceCode! Spielt doch ein wenig damit herum! Wer ne Klasse draus machen will kann dies gerne tun und hier posten!

Und wenn ich Zeit finde bastel ich vielleicht doch noch ne Komponente daraus :stupid: !

Grüsse von TOC!

[Luckie]

Es fehlen aber noch einige Konfigurationsmöglichkeiten:

Delphi-Quellcode:

RootKey:=hKey_Local_Machine;

Was wenn der Autostart benutzerspezifisch sein soll?
Warum muss ich eine TForm Variable übergeben?
Was wenn ich anders auf einen Fehler reagieren will, als mit einer Messagebox?

Bei GetAutoStart:

Delphi-Quellcode:

Reg:=TRegistry.Create;

öffnest du den Schlüssel mit allen Rechten das ist unnötig, da du nur lesen willst. Und wenn du ihn mit allen Rechten öffnest, muss man selbst zum Lesen Administrator-Rechte haben in HKLM.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Es fehlen aber noch einige Konfigurationsmöglichkeiten:

Delphi-Quellcode:

RootKey:=hKey_Local_Machine;

Was wenn der Autostart benutzerspezifisch sein soll?
Warum muss ich eine TForm Variable übergeben?
Was wenn ich anders auf einen Fehler reagieren will, als mit einer Messagebox?

Bei GetAutoStart:

Delphi-Quellcode:

Reg:=TRegistry.Create;

öffnest du den Schlüssel mit allen Rechten das ist unnötig, da du nur lesen willst. Und wenn du ihn mit allen Rechten öffnest, muss man selbst zum Lesen Administrator-Rechte haben in HKLM.

Gut, Ok, also das TForm muss ansich nur übergeben werden damit MessagBox modal das entsprechende Fenster blockt solange dei Fehlermeldung angezeigt wird. Da könnte man wirklich auch eine eigene Exception-Klasse definieren die der Programmierer in seinem Programm dann halt abfangen und die Fehlermeldung selber ausgeben müsste.

Ich hab versucht das ganze so einfach wie möglich zu machen, deshalb geben die Prozeduren selber die Fehlermeldung raus und in die Registrierung wird immer nur das Programm geschrieben/gelöscht das die Prozedur aufruft. Eben, so einfach wie möglich.

Werd mal überprüfen wie man einen Key nur mit Lese-Zugriff öffnen kann. XP ist in dem Punkt mit den Rechten wesentlich empfindlicher als mein Win98SE, da hast Du natürlich schon recht!

Grüsse von TOC!

[Luckie]

Gib mir noch eine halbe Stunde und ich habe die Klasse fertig. ;)

[TOC]

Hi!

Zitat:

Zitat von Luckie

Gib mir noch eine halbe Stunde und ich habe die Klasse fertig. ;)

Cool! Postest Du die dann hier auch?

Grüsse von TOC!

[kalmi01]

Hi Luckie,

Zeit iss um :mrgreen:

[Luckie]

Fast fertig.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Fast fertig.

Gut Ding braucht Weile, lass Dir ruhig Zeit!

Sache mal, ich find nirgendwo in der D3 oder D7 Hilfe eine Erklärung wie man den RootKey mit "Nur-Lesen"-Rechten oder so öffnen kann. Gib mir bitte mal nen Tip falls Du weist wie das funzt.

Grüsse von TOC!

[Luckie]

Here we go. Unit mit Klasse im Anhang. Was noch fehlt ist das Erstellen einer Verknüpfung im AutoRun-Ordner des Startmenüs.

Anwendung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ar                : TMpuAutorun;
begin
  ar := TMpuAutorun.Create;
  try
    try
      ar.AutoRun(True);
    except
      on E: Exception do
        ShowMessage(E.Message);
    end;
  finally
    ar.Free;
  end;
end;

Setzt man die Eigenschaften ExeFilename, RootKey und RunOnce nicht, werden die Standardeinstellungen genommen. Und die wäre für ExeFilename: ParamStr(0), RootKey: HKEY_CURRENT_USER und RunOnce: False.

AutoRun(True) setzt den Autostarteintrag und AutoRun(False) löscht ihn wieder. Kann er nicht gestzt oder gelsöcht werden, wird eine Exception ausgelöst, die man abfangen kann.

[Thorben77]

Zitat:

Zitat von TOC

Sache mal, ich find nirgendwo in der D3 oder D7 Hilfe eine Erklärung wie man den RootKey mit "Nur-Lesen"-Rechten oder so öffnen kann.

Such mal nach Access im Zusammenhang mit TRegistry.

[Luckie]

Oder guck in meinen Code. ;)

[TOC]

Hi!

Zitat:

Zitat von Luckie

Oder guck in meinen Code. ;)

Dein Code ist echt genial :thumb: ! Ach, so ist dass, bei D7 kann man im TRegistry.Create also in der überladenen Version den Zugriffsmodus angeben. Das wusste ich wirklich noch nit weil das in D3 noch nit geht. Danke für den Tipp!

Also, nun haben wir das Problem also schon einmal mit ner Klasse und einmal mit ner Unit gelöst. Ich schreib heut nacht vielleicht noch ne Komponente, falls ich mal wieder nicht schlafen kann (zuviel Kaffee :roll:) und mir wieder langweilig ist...

Grüsse von TOC :stupid: !