"Dienst anhalten" nicht erlauben

[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;