Lanzar ventana de servicios de windows

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