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.