Service-EXE ist in Windows Audio geöffnet?

[Codehunter]

Moinsen...

Ich schreibe an einem Systemdienst. Wenn ich den Dienst in der Dienstverwaltung beende und anschließend neu kompiliere, dann sagt der Compiler, dass die EXE nicht erstellt werden kann. Wenn ich versuche, die EXE manuell im Explorer zu löschen, erhalte ich die Fehlermeldung, dass das nicht geht weil die EXE in "Windows Audio" geöffnet ist.

Wenn ich nun den Dienst "Windows-Audio" beende und versuche, die EXE zu löschen, geht das auch nicht weil sie nun angeblich in "DHCP-Client" geöffnet wäre. Und so weiter...

Ich vermute, dass das irgendwas mit Dependencies zu tun hat. Hat jemand eine Idee?

Grüße
Cody

[himitsu]

Ein Systemdienst blockt und die Erkennung geht wohl auf die PIDs, welche in diesem Fall, vermutlich Dank fehlender Rechte, nicht ausgelesen werden können.

Alle diese Prozesse haben also die PID 0 und als Name wird nun der des zuerst gefundenen Prozesses ausgelesen. :stupid:


ProcessExplorer?

[nahpets]

Bei Windows XP kann man sich in der Systemsteuerung bei den Diensten die Abhängigleiten zwischen den Diensten anschauen. Wie's bei anderen Windosen ist, weiß ich nicht und mag auch nicht danach suchen.

Aber:

In der Registry könntest Du eventuell unter

Delphi-Quellcode:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services

fündig werden.
Dort müssten alle Dienste aufgeführt sein und bei Abhängigkeiten müsstest Du dort jeweils bei

Delphi-Quellcode:

DependOnService

und/oder

Delphi-Quellcode:

DependOnGroup

herausbekommen können, wer da von wem abhängt.

Eventuell forschst Du mal von hier http://www.winfaq.de/faq_html/Conten...?h=tip0572.htm ausgehend weiter.

[Codehunter]

Zitat:

Zitat von himitsu (Beitrag 1324087)

ProcessExplorer?

Unter SvHost - War ja zu erwarten.

Neue Vermutung: Ich versuche, den Service aus sich selbst heraus zu beenden, wenn intern eine Exception aufgetreten ist und die entsprechenden Fehler im EvtLog geschrieben sind. Könnte es sein, dass ein MyService.Free den Dienst nicht richtig beendet?

[nahpets]

Ein Service wird eigentlich mit

Delphi-Quellcode:

MyServiceThread.Terminate

beendet.
Damit müsste er eigentlich dem Betriebssystem mitteilen, dass er sich nun verabschiedet. (das ist Müll, da hab' ich (mal wieder) zu schnell diagonal gelesen :-(

Wenn dass nicht passiert, ist zwar des Programm selbst beendet, das Betriebssystem weiß davon aber nichts.
(Bin mir aber nicht sicher, ob das ausreicht.)

Eventuell ist das hier beschriebene aber hilfreicher: http://codeverge.com/embarcadero.del...rminat/1045961

Schau Dir bitte bei Gelegenheit mal diese Seite an: http://www.tolderlund.eu/delphi/service/service.htm, eventuell findest Du dort hilfreiche Informationen.

[himitsu]

Delphi-Quellcode:

Application.Terminate;

:roll: (das Application aus der Service-Unit und nicht das aus Forms)

[Codehunter]

Zitat:

Zitat von himitsu (Beitrag 1324097)

Delphi-Quellcode:

Application.Terminate;

:roll: (das Application aus der Service-Unit und nicht das aus Forms)

Vcl.SvcMgr.TServiceApplication.Terminate gibts bei mir nicht (XE4)

EDIT: Ich habe mal folgendes eingefügt:

Delphi-Quellcode:

procedure TMyService.Kill;
const
  SERVICE_CONTROL_STOP = $00000001;
begin
  ServiceController(SERVICE_CONTROL_STOP);
end;

Wenn jetzt während der Initialisierung eine Exception auftritt sagt mir der Dienstmanager, dass der Dienst gestartet und dann angehalten wurde. Der Effekt, dass unter SvHost weiterhin ein "Restprozess" verbleibt, hat sich dadurch leider aber nicht verändert.

Noch ein EDIT: Ich habs rausgefunden! Problem liegt ganz woanders. Ich habe für die Ereignisanzeige eine MessageTable direkt in die Exe von meinem Dienst einkompiliert und verweise in der Registry als MessageFile darauf. Wenn ich nun die Ereignisanzeige öffne, baut diese ein Handle zum Image (EXE-Datei) auf und lässt es so lange offen bis ich die Ereignisanzeige wieder schließe. Problem erkannt, Gefahr gebannt: Ich kompiliere mir jetzt als MessageFile eine separate DLL und gut ist.

Am Rande bemerkt finde ich die Methodik, Einträge ins Eventlog zu schreiben, ziemlich abartig kompliziert. Wer auch immer sich das so für NT 3.5 damals ausgedacht hat, er muss ein selbstverliebter Theoretiker gewesen sein :-D