Dienst: Auf herunterfahren/neustart des Systems reagieren?

[DelphiPeter]

Hallo!

Habe da einen Dienst, der beim herunterfahren von Windows reagieren soll. Damit ist gemeint, das abschließende Aufgaben noch durchgeführt werden sollen, und das Windows dann erst heruntergefahren/neugestartet werden darf.

Ist das irgendwie machbar?

Hinweis: Der Dienst wird nicht mit dem Konto SYSTEM ausgeführt, sondern über einen Domänen-Benutzer/Admin.


Peter

[Jelly]

Wenn ich mal davon ausgehe, dass es sich um eine Service Anwendung handelt, dann schau dir doch einfach mal dessen Events an. Da gibts so Sachen wie OnShutDown, OnStart... Da ist doch alles dabei was du brauchst.

[SirThornberry]

OnStart etc. ist doch aber auf den Dienst selbst bezogen oder nicht? Entsprechend kann man nur schlussfolgern das stoppen/schließen des Dienstes ein Herunterfahren des Systems als Ursache hat.

[Union]

Spontan würde ich sagen, dass Du mit PeekMessage schaust, ob WM_POWERBROADCAST vorhanden ist.

[nahpets]

Hallo,

es gibt doch da

Delphi-Quellcode:

procedure ServiceShutdown

zumindest hab' ich das bei mir in 'nem Service drin und der schreibt dann was in 'ne Logdatei.

Sollte eigentlich das Gesuchte sein.

Stephan

[Dezipaitor]

Nutze den Servicecontrolhandler.
http://msdn.microsoft.com/en-us/library/ms685149(VS.85).aspx
Die Callbackfunktion bekommt ne shutdown nachricht.

Soweit ich jedoch weiß, ist dies inkompatibel mit dem VCL Service. D.h. man müsste selbst einen Win32 Dienst schreiben. Könnte mich aber auch irren.

[SirThornberry]

Wird dieses ServiceShutdown aber nicht auch aufgerufen wenn man den Dienst manuell stoppt?

[nahpets]

Hallo,

Zitat:

Zitat von SirThornberry

Wird dieses ServiceShutdown aber nicht auch aufgerufen wenn man den Dienst manuell stoppt?

Nein, dafür gibt es ServiceStop (oder sollte ich mich das täuschen?)
Sorry, probier es aus, schreib mal in beiden Ereignissen was in 'ne Textdatei und werte die dann aus (jeder Boot tut gut, da kommst Du dann wohl nicht dran vorbei :wink:)
Bei meinem Service gebe ich in beiden Ereignissen den gleichen Text aus, nämlich, dass der Service beendet wurde. Würde beim Stop beides aufgerufen, müsste ich den Text zweimal sehen, sehe ihn aber nur einmal, daraus schließe ich: Stop ruft kein ShutDown auf.

Stephan

[DelphiPeter]

Hi leute, wahnsinn, danke für die ganzen Antworten. ich teste das mal durch. Es wäre halt schön, wenn mein dienst seine Arbeit noch beenden kann, und Windows dann erst heruntergefahren wird.

Mal sehn, melde mich dann wieder!

gruß,
Peter

[Jelly]

Ich schätze mal, es geht prinzipiell darum, den Dienst sauber zu beenden. Unabhängig ob das durch ein manuelles Stoppen des Dienstes passiert oder durch Herunterfahren des Bestriebsystems...

Dafür sollte doch aber das OnStop Event zuständig sein, oder?

Ich hab schon lang keinen Dienst mehr in Delphi geschrieben, aber unter .NET sieht bei mir ein funktionierender Dienst so aus:

Der Dienst:

Code:

public partial class ImaService : ServiceBase
{
    public ImaService()
    {
        InitializeComponent();
    }

    private ThreadStart ts;
    private Thread t;
    private DeadLiner ima;

    protected override void OnStart(string[] args)
    {
        // TODO: Add code here to start your service.
        ima = new DeadLiner();
        ts = new ThreadStart(ima.Execute);
        t = new Thread(ts);
        t.Start();
    }

    protected override void OnStop()
    {
        // TODO: Add code here to perform any tear-down necessary to stop your service.
        //DeadLiner.isRunning = false;
        t.Abort();
        t.Join();
    }


}

OnStop wird aufgerufen, wenn der Dienst beendet wird. Die eigentliche Funktionalität des Dienstes wird in der DeadLiner Klasse in einem separatem Thread erledigt. Der Hauptteil sieht etwas so aus:

Code:

class DeadLiner
{
    public void Execute()
    {
        Init();

        try
        {
            while (true)
            {
                Check();
                Thread.Sleep(checkInterval*1000);
            }
        }
        catch (ThreadAbortException e)
        {
        }
        finally
        {
            Finish();
        }
    }

    private void Finish()
    {
        // TODO: Do some finalization stuff here

        log.Write("End");
        log.Stop();

        CloseConnections();
    }
}