Lanzar ventana de servicios de windows

[hector_etv]

Amigos... la idea sería esta:

ShellExecute(Handle, 'open', 'c:\windows\system32\services.msc /s', nil, nil, SW_SHOWNORMAL);

EL problema es que no funciona...


Alguna sugerencia ????

Salu2,

Héctor.

[roman]

No sé para qué es la opción /s pero si se la quitas funciona.

// Saludos

[dec]

Hola,

También funciona si no especificas la ruta "completa". Por si puede serte de utilidad...

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(GetActiveWindow, 'open',
   'services.msc', nil, nil, SW_SHOWNORMAL);
end;

[[seoane]]

Y ya como funciona perfecto es si los parámetros lo pasas así :

Código Delphi [-]
ShellExecute(Handle, 'open', 'c:\windows\system32\services.msc', '/s', nil, SW_SHOWNORMAL);

[roman]

Cierto, aunque sigo sin saber para qué es el parámetro. Parece igual, con o sin parámetro.

// Saludos

[dec]

Hola,

La "s" en estos casos suele significar "silent" (ejecutar "por detrás", sin "ser visto"), aunque, aquí concretamente no sé si tiene utilidad alguna...

[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

[Ade]

gracias de nuevo voy a echarle un vistazo

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

[Ade]

muchas gracias nuevamente, no sabia como usar el ServiceStatus y me estaba volviendo loca con el ingles, mi asignatura pendiente..

saludos