Servicio para ejecucion de proceso
 

Buenos dias amigos!!, primero decir que ya eh leido muchos post y no doy con la solucion al problema que voy a plantear, por eso es que molesto con mi consultilla:p

Necesito un servicio que compruebe cada tanto tiempo, que cierto proceso este en ejecucion (es una aplicacion delphi con ventana pero en estado invisible) y de no ser asi lo ejecute, ya que debe estar en funcionamiento permanentemente. En cuanto a la creacion del servicio ya esta hecho y funciona como servicio en blanco, lo que necesito es que me ayuden con el codigo para la comprobacion del estado de ejecucion del proceso y posterior ejecucion si fuera necesario. Espero haberme explicado y desde ya les agradezco muchisimo cualquier colaboracion, Saludosssss:D

Aca hacen precisamente lo contrario, si existe lo cierran. Pero es una luz para lo que quieres hacer.

http://www.ajpdsoft.com/modules.php?...owpage&pid=132


Este tambien te puede servir para estudiar.

http://www.clubdelphi.com/foros/showthread.php?t=46087


Saludos

Código Delphi [-]
function IsRuning(FileName: PAnsiChar): boolean;
var
  PE: TPROCESSENTRY32;
  ProcessHandle: THandle;
begin
  Result:= false;
  PE.dwSize:= sizeof(TPROCESSENTRY32);
  ProcessHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, PE) then
    repeat
      if lstrcmpi(PE.szExeFile, FileName) = 0 then
      begin
        Result:= true;
        break;
      end;
    until not Process32Next(ProcessHandle, PE);
  CloseHandle(ProcessHandle);
end;

Saludos.