Servicio para ejecucion de proceso

[Ezecool]

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

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

[Osorio]

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

[[escafandra]]

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.