Servicios en Windows

[sancarlos]

Necesito un ejemplito de servicios de Windows con delphi, necesito crear un servicio que detecte si una aplicacion no esta corriendo y que el servicio la levante.

Muchas Gracias de antemano.

[[cHackAll]]

Ese tema ya se ha visto, por favor utiliza la búsqueda, palabras clave: "TService" ó "CreateService".

[*Caro*]

Hola sancarlos, también puedes leer los temas similares que estan en la parte de abajo.

Saluditos

[sancarlos]

Asunto resuelto dejo el cogido por si acaso alguien ...lo necesita..

Código Delphi [-]
Function TService1.procrunning: Boolean;
var
  Proceso : TProcessEntry32;
  ProcessHandle : THandle;
  Sproceso   : Boolean;
  Nproceso : String;
  flag : boolean;
begin
  Result := False;
  Proceso.dwSize := SizeOf(TProcessEntry32);
  ProcessHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, Proceso) then  begin
    Nproceso:= String(Proceso.szExeFile);
      repeat Sproceso := Process32Next(ProcessHandle, Proceso);
      Nproceso:= String(Proceso.szExeFile);
             if Nproceso = 'transrvr.exe' then begin
                Result := True;
                //ico.Hint:='TranServer is Running...';
                flag:=true;
                end else begin
                flag:=false;
              end;
      until not Sproceso;
      if flag = false then begin
           try
            WinExec(PChar('C:\tii\Transerver\transrvr.exe'),SW_SHOWNORMAL);
            except
            on E:exception do begin
            showMessage('It was not possible to complete the transaction');
            end;
           end;
      end;
  CloseHandle(ProcessHandle);
  end;
 end;

[alquimista]

tengo unas preguntas.
¿El servicio se ve en el taskmanager y puede ser matado?
¿Como se instalara?
gracias por el codigo.

[sancarlos]

Mira , si claro con el hecho de que lo instales .

Te vas a Ejecutar de windows y alli pones la ruta de donde esta tu .exe

ejemplo:

c:\carpeta donde tienes el exe\tuservicio.exe /install

con eso ya esta listo

se registra
y luego vas a los servicios y lo inicias.

[alquimista]

perdon no me explique. quise decir desde delphi.

[sancarlos]

alquimista amigo,

No te entiendo , dime mas o menos que es lo que necesitas.

Si estamos hablando , de servicios , una vez que lo creas , el exe lo instalas en Windows y despues el lo administra, como cualquier otro servicio.

Una vez instalado lo administra como los servicios de windows, en panel de control, alli lo administra ....

Saludos

[alquimista]

Perdon.. (esto queria haberlo explicado en este hilo pero se me colo en otro hilo que hablaba de servicios)

Tengo un programa mata procesos y necesito evitar que me lo cierren con otro programa mata procesos como taskinfo, etc...
El programa se ejecuta al arrancar el Windows, no aparece en aplicaciones del taskmanager y si en los procesos. Deshabilita regedit, taskmanager, msconfig y programas no deseados.

Queria un servicio o lo que hiciera falta para que el programa sobreviviera aunque alguien lo matase. (como dije en otro hilo, no es un virus, pero deberia comportarse como ellos, es decir sobrevivir). No tengo problemas en dar mas info del programa.

Mi duda era si el servicio se puede proteger mejor que la aplicación para evitar que lo cierren

No se si me he explicado.

Gracias por todo.

[[escafandra]]

Pues debes revisar el hilo en el que ya participaste y más concretamente el post de cHackAll. Ofrece una solución a lo que pides.

Saludos.

[alquimista]

Si si ya lo revise, lo que pasa que , aunque esta muy bien explicado, me cuesta un poco asimilar todas las APIS que aparecen ahí. Y hay cosas que todavía no entiendo. Mi problema es que no puedo dedicar a delphi todo lo que quisiera.

De todas formas, mi pregunta en el otro hilo era un poco:
Para realizar la protección y ocultación de la app que es lo mejor para utilizar. Servicios o rootkit o ....?????

Gracias..

PD.- Me quito el sombrero ante foreros como vosotros (que gran nivel)