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)