Fehlermeldung beim Runterfahren mit Systemdienst

[Mavarik]

Zitat von Astat:

Nö, wenn Service Control Handler Function korrekt implemenetiert, wird ein Shutdown ausgeführt.

Wenn mein Dienst korrekt implementiert wäre, würde ich nicht hier Schreiben und eine Fehlermeldung erhalten...

Aber ich bin ja schon weiter...

Also...

Status.dwControlsAccepted := SERVICE_ACCEPT_STOP or SERVICE_ACCEPT_PAUSE_CONTINUE or SERVICE_ACCEPT_SHUTDOWN;

das fehlte schon mal...

Und obwohl ich

Delphi-Quellcode:

    SERVICE_CONTROL_SHUTDOWN:
       begin
         Stopped := True;
         StopEvent.SetEvent;
         Status.dwCurrentState :=  SERVICE_STOP_PENDING;
         Status.dwWaitHint :=  3000;
         Status.dwWin32ExitCode := NO_ERROR;
         SetServiceStatus(StatusHandle, Status);
       end

setze und (mein Dienst sich innerhalb von 430ms inkl. Logdateischreiben, sich beendet)

erhalte ich trotzdem die "Fehlermeldung" noch jemand ne Idee?

Grüsse Mavarik