Service mit Parameter straten

[Union]

Du kannst mit ChangeServiceConfig direkt nach dem Installieren des Service den Pfad ändern um einen Parmeter einzufügen:

Delphi-Quellcode:

procedure TsrvTest.ServiceAfterInstall(Sender: TService);
var
   ScmH : SC_HANDLE;
   SvcH  : CARDINAL;
   NewPath : string;
begin
   ScmH := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT or GENERIC_READ);
   if ScmH <> 0 then
   begin
      SvcH := OpenService(ScmH, pchar(Sender.Name), SERVICE_CHANGE_CONFIG);
      if SvcH <> 0 then
      begin
         NewPath := ParamStr(0)+' /Mein Parameter';
         ChangeServiceConfig(SvcH,
            SERVICE_NO_CHANGE,
            SERVICE_NO_CHANGE,
            SERVICE_NO_CHANGE,
            pchar(NewPath),
            nil,
            nil,
            nil,
            nil,
            nil,
            nil);
         CloseServiceHandle(SvcH);
      end;
      CloseServiceHandle(ScmH);
   end;
end;