Ver Mensaje Individual
  #4  
Antiguo 19-11-2010
Avatar de rastafarey
rastafarey rastafarey is offline
Miembro
 
Registrado: nov 2003
Posts: 927
Reputación: 21
rastafarey Va por buen camino
Resp

Si notas algunos prohrams que dependen de servicios se ejecutan de la siguiente manera por ejemplo kavsperky se llama asi
C:\Archivos de programa\Kaspersky Lab\avp.exe /waitservice

Yo tengo un progrma que hace lo mismo y cuando lo llamo desd el run de windows osea cuando arranca el sistema operativo. si veo que esta el parametro realizo un ciclo repeat durente un tiempo o hasta que el serviocioeste levantado.

Código Delphi [-]
Function VerficicarServicio(Srv: String): Boolean;
Begin
   //cooidgo que verifica si el servicio esta levantado
End;

Procedure xxxxxxx;
Var
   ServicioCorriendo: Boolean;
   TiempoAgotado: Boolean;
Begin
repeat
   ServicioCorriendo := VerficicarServicio('xxxxx');
   //Codigo para vefiicar el tiempo maximo 
Until ServicioCorriendo or TiempoAgotado;
End;
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Responder Con Cita