AutoStart für Delphi-Programme über Systemregistrierung

[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.