Servicios de Windows

[jocey]

en este si compila, pero el valor que le subrayo siempre esta en cero....

Código Delphi [-]
   procedure StartSrv(Nombre: String);
var
 ServiceControlManager: SC_HANDLE;
 Service: SC_HANDLE;
 ServiceStatus: SERVICE_STATUS;
 Argv: PChar;
begin
  ServiceControlManager:= OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if ServiceControlManager <> 0 then
  begin
    Service:= OpenService(ServiceControlManager,PChar(Nombre),SERVICE_ALL_ACCESS);
    if Service <> 0 then
    begin
      if QueryServiceStatus(Service, ServiceStatus) then
      begin
        if ServiceStatus.dwCurrentState <> SERVICE_RUNNING  then
        begin
          Argv:= nil;
          StartService(Service,0,Argv);
        end;
      end;
      CloseServiceHandle(Service);
    end;
    CloseServiceHandle(ServiceControlManager);
  end;
end;

entonces nunca entra, sale al final de la aplicacion...

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

¿Puedes poner con qué parámetros los llamas?
¿Cómo identificas el servicio?

[jocey]

en el caso del segundo ejemplo que es el que más se me ajusta:

servicio : Enrutamiento y acceso remoto
llamada : StartSrv('Enrutamiento y acceso remoto');

el nombre del servicio lo saque de la consola services.msc.

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

Empezado por jocey

en el caso del segundo ejemplo que es el que más se me ajusta:
servicio : Enrutamiento y acceso remoto
llamada : StartSrv('Enrutamiento y acceso remoto');

Si accedes a la consola de servicios y accedes a las propiedades de ese servicio deberías ver algo así:



Ahora prueba lo mismo que estás haciendo, pero con el Nombre del servicio, no con el nombre a mostrar; A ver qué resultado da.

Código Delphi [-]
StartSrv('RemoteAccess');

[[seoane]]

Solo una reflexion ... que facil es decir que algo no funciona

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

Empezado por seoane

...que facil es decir que algo no funciona

Bueno, iba a decir que al ser nuevo en el club (aunque veo que no lo es -con más 100 mensajes-) tal vez no conoce mucho a los integrantes.
De ser así, sabría que los "códigos" de Domingo -Seoane- no suelen fallar ("no funcionar").

[jocey]

Es verdad tienen razon, es mas facila decir que no funciona y esperar a que te lo haga otro, tendre mas precaucion para la proxima, Gracias