"Dienst anhalten" nicht erlauben

[dingdoi]

Ich möchte den Pause-Button in der Diensteübersicht ("Hält den Dienst an.") für einen selbstgeschriebenen Dienst deaktivieren. Da dies bei einigen anderen Diensten bereits der Fall ist, muss es ja irgendwie funktionieren. Nur wie?


Ich installiere den Dienst über CreateProcess. Kann es evtl. mit einer bestimmten Kombi des Parameters dwDesiredAccess klappen?

Grüße vom Jan

[Duffy]

Hallo dingdoi,
TService1.AllowPause := False; bye
Claus

[dingdoi]

Hallo Claus,

Danke für die schnelle Antwort. Leider kann ich diesen Weg nicht gehen, da ich nicht die TService Komponente benutze, sondern den Dienst über die API installiere (CreateProcess).

Grüße vom Jan

[Duffy]

´Hallo dingdoi,
du benutzt aber TService oder?

bye
Claus

[Vjay]

Guck doch mal was TService1.AllowPause := False; ausführt oder verändert, bzw wo TService auf AllowPause zugreift.
TService ist ja auch nur ein API-Wrapper, d.h. könntest da evtl. klauen.

[dingdoi]

Delphi-Quellcode:

hSCM:=OpenSCManager(NIL, NIL, SC_MANAGER_ALL_ACCESS);
CASE hSCM OF
  0:FatalError;
ELSE BEGIN
  hService:=CreateService(hSCM,
               PChar(ServiceName),
               PChar(DisplayName),
               SERVICE_START OR SERVICE_QUERY_STATUS OR _DELETE,
               SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS,
               StartupMode,
               SERVICE_ERROR_NORMAL,
               @modname[0],
               NIL, NIL, NIL, NIL, NIL);
  CASE hService OF
    0:BEGIN
      CloseServiceHandle(hSCM);
      FatalError;
    END;
    ELSE BEGIN
      CloseServiceHandle(hSCM);
      CloseServiceHandle(hService);
    END;
END;

[Meflin]

[ot] muss das wirklich sein? ich als user hätte gerne selbst die kontrolle über meine services, und systemnotwendig wird das teil ja dann wohl doch nicht sein oder? wenn ich deine software will lasse ich auch den service laufen. [/ot]

[dingdoi]

@meflin:

Ich sach ma: Nice to have.