Servicios de Windows

[Neftali [Germán.Estévez]]

Parar un servicio y reiniciarlo es sencillo en Delphi; Es un tema que ya hemos tratado varias veces y además creo que hay algun truco en la sección de Trucos de clubDelphi donde podrás encontrar en código para hacerlo (sino en algun hilo ya se ha añadido).

En cuanto a saber si un servicio está bloqueado, creo que debes probar a hacer un programa que intente "consumir" de ese servicio; Si el resultado no es el esperado, actuar en consecuencia.

[jocey]

Si, ya he encontrado dos trucos y ninguno me funciona.....

[Neftali [Germán.Estévez]]

Deberías dar alguna explicación más. En mi caso tengo dos programas que utilizan ese código y funcionan perfectamente parando, arrancando y testeando el estado del servicio.

[jocey]

Eso es lo que necesito un programa que testee el servicio y lo arranque o reinicie en caso de que el servicio este detenido o bloqueado.... no se que mas puedo explicar.... si fueras tan amable.

Saludos

[Neftali [Germán.Estévez]]

Empezado por jocey

... y ninguno me funciona.....

Empezado por jocey

.... no se que mas puedo explicar...

Podrías explicar ¿Qué es lo que no funciona? ¿Parar? ¿Arrancar? ¿Que te devuelva el estado?
¿No te compilan los trucos? ¿Sí compilan, pero no ejecutan?
¿Algun error?
¿No funcionan con tu servicio concreto o no funcionan con ninguno?
¿qué llamada estás haciendo? ¿Qué parrémetro pasas para identificar el servicio?
...

A eso me refería.

[jocey]

No compilan, por ejemplo este

Código Delphi [-]
function iniciarServicio (sMachine, sService: String) : Boolean;
var
  schm,
  schs: SC_Handle;
  ss: TServiceStatus;
  psTemp: PChar;
  dwChkP: DWord;
begin
  ss.dwCurrentState := -1;
  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);
  if (schm>0) then
  begin
    schs := OpenService(schm, PChar(sService), SERVICE_START or
      SERVICE_QUERY_STATUS);
    if (schs>0) then
    begin
      psTemp := nil;
      if (StartService(schs, 0, psTemp)) then
        if (QueryServiceStatus(schs, ss)) then
          while (SERVICE_RUNNING<>ss.dwCurrentState) do
          begin
            dwChkP := ss.dwCheckPoint;
            Sleep(ss.dwWaitHint);
            if (not QueryServiceStatus(schs, ss)) then
              Break;
            if (ss.dwCheckPoint < dwChkP) then
              Break;
          end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := SERVICE_RUNNING=ss.dwCurrentState;
end;

la parte sudbrayada en rojo, ojo, se que es un cardinal y el valor esta fuera de rango, ahora, asi estaba en el truco que encontre... esto es lo que me pasa