Dienst "Wiederherstellen"-Option einstellen

[Phoenix]

Zitat von Olli:

Zitat von gsh:

Geh mal Systemsteuerung -> Verwaltung -> Dienste
Dort klickst du auf einen dienst rechts drauf -> Eigenschaften
Dort gibt es einen Reiter "Wiederherstellung". Genau des meine ich

Ah, gut. Danke.

Dazu benutzt du QueryServiceConfig2 und ChangeServiceConfig2 jeweils mit SERVICE_CONFIG_FAILURE_ACTIONS und der SERVICE_FAILURE_ACTIONS-Struktur. Sollte bei JEDI-Apilib enthalten sein ...

Das bedeutet Du kennst das schon *g*
Unter welcher Bezeichnung läuft das bei Dir, Olli?

[Olli]

Zitat von Phoenix:

Das bedeutet Du kennst das schon *g*
Unter welcher Bezeichnung läuft das bei Dir, Olli?

Nunja, da ich meinen Code (ja, auch den privaten) auf Englisch kommentiere tendiere ich zum englischen Begriff oder einer direkten Uebersetzung.

Nachtrag: Sagen wir mal so, die Tatsache, dass ich (als ich noch die Zeit dazu hatte) mich wild durch's PSDK gewuehlt habe, zahlt sich noch immer aus *g*

[gsh]

Zitat von Olli:

Ah, gut. Danke.

Dazu benutzt du QueryServiceConfig2 und ChangeServiceConfig2 jeweils mit SERVICE_CONFIG_FAILURE_ACTIONS und der SERVICE_FAILURE_ACTIONS-Struktur. Sollte bei JEDI-Apilib enthalten sein ...

hmm ja sagt mir nichts
Ich hab mich noch nie wirklich in der msdn zurecht gefunden. Ich verstehs einfach nicht

JEDI-Apilib? Sagt mir auch nichts

[Olli]

Zitat von gsh:

Zitat von Olli:

Ah, gut. Danke.

Dazu benutzt du QueryServiceConfig2 und ChangeServiceConfig2 jeweils mit SERVICE_CONFIG_FAILURE_ACTIONS und der SERVICE_FAILURE_ACTIONS-Struktur. Sollte bei JEDI-Apilib enthalten sein ...

hmm ja sagt mir nichts
Ich hab mich noch nie wirklich in der msdn zurecht gefunden. Ich verstehs einfach nicht

Das waere Minimalanforderung an jeden Windowsprogrammierer

Zitat von gsh:

JEDI-Apilib? Sagt mir auch nichts

http://jedi-apilib.sf.net ... moegliche Bugs darfste auch gleich an mich weiterleiten

[gsh]

Zitat von Olli:

http://jedi-apilib.sf.net ... moegliche Bugs darfste auch gleich an mich weiterleiten

hmm ich hab mir des mal geholt. hab auch glaub ich die richtige datei gefunden "JwaWinSvc.pas"
Auch die Functionen hab ich gefunden

Delphi-Quellcode:

function ChangeServiceConfig(hService: SC_HANDLE; dwServiceType, dwStartType,
  dwErrorControl: DWORD; lpBinaryPathName, lpLoadOrderGroup: LPCTSTR;
  lpdwTagId: LPDWORD; lpDependencies, lpServiceStartName, lpPassword,
  lpDisplayName: LPCTSTR): BOOL; stdcall;
{$EXTERNALSYM ChangeServiceConfig}

aber da kann ich ja keine Wiederherstellungsoptionen einstellen oder?

[gsh]

hab was anderes gefunden:
Und zwar in der Regedit:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\{ ServiceName}
Da sind die einstellungen von einem Service. Und dort gibt es auch einen schlüssel names: FailureActions
Da sind aber leider alles nur binärdaten drinnen:

Beispiel (Ohne eine Aktion):

Code:

00 00 00 00 00 00 00 00 00 00 00 00 03 00 00 00 4E 00 42 00 00 00 00 00 60 EA 00 00 00 00 00 00 60 EA 00 00 00 00 00 00 00 00 00 00

Beispiel (1. Aktion: Dienst neustarten):

Code:

00 00 00 00 00 00 00 00 00 00 00 00 03 00 00 00 4E 00 42 00 01 00 00 00 60 EA 00 00 00 00 00 00 60 EA 00 00 00 00 00 00 00 00 00 00

Aber des konnte problematisch werden wenn ich des direkt änder. Oder?

[Olli]

Zitat von gsh:

hab was anderes gefunden:
Aber des konnte problematisch werden wenn ich des direkt änder. Oder?

Jupp, könnte es. Daher solltest du einfach besagte API benutzen. Mach mal bitte folgendes: miste deinen Service so aus, daß nichts mehr drin ist außer dem eigentlichen Service-Kram. Also kein Server usw. und schicke mir das Ergebnis zu! Ich werde mich bemühen dir schnellstmöglich ein angepaßtes Beispiel zukommen zu lassen. Ich nehme nämlich an, daß du irgendeine Service-Komponente/Klasse benutzt und nicht den Standardweg. Daher dieser Umweg.

[gsh]

Zitat von Olli:

Jupp, könnte es. Daher solltest du einfach besagte API benutzen. Mach mal bitte folgendes: miste deinen Service so aus, daß nichts mehr drin ist außer dem eigentlichen Service-Kram. Also kein Server usw. und schicke mir das Ergebnis zu! Ich werde mich bemühen dir schnellstmöglich ein angepaßtes Beispiel zukommen zu lassen. Ich nehme nämlich an, daß du irgendeine Service-Komponente/Klasse benutzt und nicht den Standardweg. Daher dieser Umweg.

Was? Wenn ich alles raushaue dann kann ich ja gleich schon einfach auf Neu-> Service-Anwendung klicken.
Die zwei standart funktionen sind immer noch vorhanden:

Delphi-Quellcode:

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  LibraServerService.Controller(CtrlCode);
end;

function TLibraServerService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

und der service ist immer noch von der klasse class(TService). Also was soll anderes sein?

[Olli]

Zitat von gsh:

und der service ist immer noch von der klasse class(TService). Also was soll anderes sein?

Ich weiß nicht, vermutlich könnte sein, daß ich zu doof zur Telepathie bin und es ja nur ein paar dutzend verschiedene Möglichkeiten gibt, wie man nun konkret die Implementation vornimmt ... oder vielleicht ist mir (und dem Forum als du Absenden geklickt hast) ja entgangen, daß du TService geschrieben hast? Da ich leider ein bißchen blöde bin, konnte ich diesen meinen Fehler ja nicht bemerken.

Also weiß nicht, einer der Gründe wird's wohl gewesen sein

[gsh]

Zitat von Olli:

Ich weiß nicht, vermutlich könnte sein, daß ich zu doof zur Telepathie bin und es ja nur ein paar dutzend verschiedene Möglichkeiten gibt, wie man nun konkret die Implementation vornimmt ... oder vielleicht ist mir (und dem Forum als du Absenden geklickt hast) ja entgangen, daß du TService geschrieben hast? Da ich leider ein bißchen blöde bin, konnte ich diesen meinen Fehler ja nicht bemerken.

Ich hab ganz am anfang geschrieben des ich einen dienst habe also imho ein TService. Ich weiss ja nicht wie man sonst noch services schreibt. Aber ich hab es mir ganz einfach mit Neu -> Service-Anwendung gemacht
Und wie kann ich jetzt mit einem TService des einstellen?