Lanzar ventana de servicios de windows

[hector_etv]

Gracias a todos por su ayuda!!!

[[seoane]]

Empezado por hector_etv

Gracias a todos por su ayuda!!!

Por que no nos sacas de la duda ¿para que es el parametro /s?

[roman]

Empezado por seoane

Por que no nos sacas de la duda ¿para que es el parametro /s?

Pues ha de ser eso:

Empezado por dec

La "s" en estos casos suele significar "silent"

es decir, Shhhhhh, no le digas a nadie qué significa.



// Saludos

[Ade]

asi podria activar el apache que lo tengo manual desde mi aplicacion delphi directamente?

[[seoane]]

Para iniciar un servicio tienes que usar algo como esto:

Código Delphi [-]
uses WinSvc;

function InicarServicio(Nombre: String): boolean;
var
 Scm: SC_HANDLE;
 Srv: SC_HANDLE;
 Arg: PAnsiChar;
begin
  Result:= FALSE;
  Scm:= OpenSCManager(nil,nil,GENERIC_EXECUTE or GENERIC_READ);
  if Scm > 0 then
    begin
      Srv:= OpenService(Scm, PChar(Nombre), GENERIC_EXECUTE or GENERIC_READ);
      if Srv > 0 then
        begin
          Arg:= nil;
          Result:= StartService(srv,0,arg);
          CloseServiceHandle(Srv);
        end;
      CloseServiceHandle(Scm);
    end;
end;

// Por ejemplo, para activar el apache
InicarServicio('Apache2');

[roman]

También podrías valerte de la aplicación net.exe:

Código Delphi [-]
WinExec('net.exe start apache', SW_HIDE);

// Saludos

[Ade]

muchas gracias, supongo que si se puede iniciar un servicio se podra comprobar si antes no esta activado y demas, para lo cual habra mas funciones como OpenService, me puedes decir donde las encuentro??

[roman]

Aquí

// Saludos

[[seoane]]

Empezado por Ade

muchas gracias, supongo que si se puede iniciar un servicio se podra comprobar si antes no esta activado y demas, para lo cual habra mas funciones como OpenService, me puedes decir donde las encuentro??

Mira este hilo, ahí describo como reiniciar un servicio. Básicamente compruebo si esta iniciado, lo paro y lo vuelvo a iniciar.

http://www.clubdelphi.com/foros/show...65&postcount=3