Anwendung als Service

[delphinia]

Ich habe mich nun mit dem Thema Service beschäftigt.
Nach dem ich ich ja nicht über die SvcMgr verfüge, wurde ich auf
Assarbad's NT Service Tutorial verwiesen.

OK soweit....

Aber leider habe ich wenn ich das Demo "sample_svc" ausführe so wie es von Assarbad ist
eine 100%ige auslastung des Systems über die gesamte Dauer!
Das ist bisschen heftig!

Wen ich dann

Delphi-Quellcode:

 repeat
    if not paused then
    begin    end;
  until stopped;

entferne ist zwar keine 100%ige auslastung mehr aber auch erscheint eine Fehlermeldung!
Der Dienst wurde gestartet und dann angehalten............

Hmmm wer kann da helfen?


Ok noch eine Frage: Wie kann ich es verhindern, das der dienst manuelle gestartet/beendent werden kann?
oder gar die EXE per Taskmanager abgeschossen werden kann.
Mein vorbild ist da der Kaspersky AV - dieser lässt weder das abschiessen der EXE zu ( Der Vorgang konnte nicht beendet werden zugriff verweigert)
und bei dem Service sidn alle Buttons deaktiviert und das verändern der Startoption (Zugriff verweigert)

[Apollonius]

Ich hatte vor kurzer Zeit auch das Problem mit dem fehlenden SvcMgr. Ich habe mir dann einfach Turbo-Delphi heruntergeladen, da ist es dabei.

[delphinia]

kann ich diese einfach frech in mein Delphi 5 nehmen?
oder muss / Sollte ich ich den Service mit Turbo machen?! hmmmm kenne mich gar nicht aus mit Turbo


wo gibt es Turbo?

[mkinzler]

www.turboexplorer.com

[Phoenix]

Das mit der 100% CPU-Last ist logisch. Das ist ja auch eine Endlosschleife.
Entfernst Du diese Schleife, so läuft der Dienst durch seinen kompletten Programmcode durch, ist danach fertig - und wenn ein Programm fertig ist terminiert es. Also beendet sich der Dienst automatisch mit dem Ende der Methode.

Du könntest z.B. eine Pause in die Schleife einbauen, die nach einem Durchlauf immer x Sekunden wartet. Während der Wartezeit wird die Schleife nicht durchlaufen, und Deine CPU-Last sinkt dramatisch.

[delphinia]

ok ich würde halt gerne prüfen ob meine anwendung aktiv wnen nicht wieder starten... wie würdet ihr das machen?!


Und was ist mit dem zweiten teil meiner Fragen das sichern der Anwenung?!

[Phoenix]

Hrm. Das wirft Probleme auf. Ich lehne mich da jetzt zwar weit aus dem Fenster, aber ich bin mir ziemlich sicher, dass man aus einem Service heraus keine Anwendung für einen User starten kann.

Das Absichern: Keine Ahnung. Da müsstest Du Dich mal mit dem Service Control Manager im MSDN auseinandersetzen.