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: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

[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?name=Content&pa=showpage&pid=132


Este tambien te puede servir para estudiar.

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


Saludos

[escafandra]

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.