Mein NT Dienst startet nicht

[Aljoscha]

Hi.
Mein Problem ist folgendes:
Ich habe aus testgründen einen Dienst erstellt (Delphi 7 Enterprise).
Ich habe alles bei den Standarteinstellungen belassen, ein paar Events ShowMessages hinzugefügt und Testweise zu kompiliert.
Das ganze hat auch super geklappt und installieren konnte ich den Dienst danach mit
Dienst.exe -install (bzw Dienst.exe -uninstall)
auch ganz einfach.
Nach dem installieren (deinstallieren) gibt das Programm auch die für das installieren vorgesehene Message aus.
Nur wenn der Dienst gestartet werden soll (net start MeinDienst, oder beim Booten)
passiert garnichts. Er versucht den Service zwar zu starten, bleibt auch nicht hängen, aber es passiert eben nichts.
In meinem cmd Fenster steht wird gestartet und es erscheinen endlos Punkte.
Beim Booten reagiert der PC ca 30 sec. nichtmehr.
Wie gesagt es liegt nicht an falscher programierarbeit (also in gewissem Sinne doch ),
sondern daran das ich nicht Weiß wie man dem Dienst klarmacht das er starten soll (kann).
Ich habe kein Tutorial oder so etwas gefunden (außer für intaraktive Konsolenanwendungen von Assabard).

Wen jemand den Source oder das Binary mal sehen möchte bitte kurz schreiben, dann lade ich es hoch.

thx 4 help

//Edit:
im Anhang ist nun das ganze Projekt + kompiliertem Programm + Fehlerbild

[sakura]

Meistens sind NT-Dienste nicht interaktiv, dass heisst, dass die Messageboxen nicht dargestellt werden können, da Du interaktiv angemeldet bist, der Dienst aber nicht. Nutze mal den Code, welchen Du hier findest, um Dir die Nachrichten anzeigen zu lassen.

......

[Aljoscha]

Danke für die schnelle Antwort
Aber mein Dienst startet ja nichtmal
Wenn ich schon so weit wäre das es um die Messages geht wäre ich ja froh

[sakura]

Zitat von Aljoscha:

Danke für die schnelle Antwort
Aber mein Dienst startet ja nichtmal
Wenn ich schon so weit wäre das es um die Messages geht wäre ich ja froh

Da wäre ich mir nicht sicher, es hört sich an, als würde der auf Deskop 0 warten, dass jemand die MessageBox wegklickt (er hängt), aber den siehst Du ja nicht und somit kannst Du Deine Messages nicht wegklicken. Der Dienstmanager wartet jetzt aber darauf, dass der Dienst ihm sagt, okay, ich bin so weit

......

[Aljoscha]

Du hattest recht, danke
Aber ich dachte ich könnte in meinem Dienst "normale" Funktionen und Komponenten benutzen!
Und z.B. mit ShellExecute arbeiten.
Liege ich da jetzt falsch oder geht das alles doch irgendwie?
Weil sonst kann ich damit wohl wenig anfangen

[sakura]

Zitat von Aljoscha:

Aber ich dachte ich könnte in meinem Dienst "normale" Funktionen und Komponenten benutzen!
Und z.B. mit ShellExecute arbeiten.
Liege ich da jetzt falsch oder geht das alles doch irgendwie?
Weil sonst kann ich damit wohl wenig anfangen

Du kannst Deinen Dienst als interaktiv markieren, dann geht es. Allerdings wird es inzwischen selbst von MS nicht mehr empfohlen. Shatter Attacken werden dadurch möglich

Ansonsten bleibt es dabei, dass man für solche Dinge zwei Anwendungen machen sollte. Eine, welche als Dienst läuft und eine, welche über Messages mit diesem kommuniziert und auf dem Desktop läuft.

......

[Aljoscha]

Kann ich "Interaktiv" einfach auf "true" setzen und plötzlich funktionieren Showmessages etc. ?
Oder wäre das wieder mit sehr viel Programmierarbeit verbunden?

[sakura]

Zitat von Aljoscha:

Kann ich "Interaktiv" einfach auf "true" setzen und plötzlich funktionieren Showmessages etc. ?
Oder wäre das wieder mit sehr viel Programmierarbeit verbunden?

Ja (Dienst muss neu installiert werden!), aber wie gesagt, es ist das Schlechteste was Du tun kannst. Die Sicherheit des Rechners wird dadurch extrem gefährdet.

......

[Aljoscha]

Ich habe es probiert und du hattest wieder recht
Allerdings dachte ich Dienste würden nicht im Taskmanager angezeigt, aber meiner kann das

[sakura]

Zitat von Aljoscha:

Ich habe es probiert und du hattest wieder recht
Allerdings dachte ich Dienste würden nicht im Taskmanager angezeigt, aber meiner kann das

Doch, Dienste werden dort angezeigt. Im Zweifel einfach mal die Checkbox "Prozesse aller Benutzer anzeigen" markieren.

......