Foros Club Delphi - ¿Controlar procesos, y en caso de que fallen se reejecuten?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - ¿Controlar procesos, y en caso de que fallen se reejecuten? (https://www.clubdelphi.com/foros/showthread.php?t=68270)

¿Controlar procesos, y en caso de que fallen se reejecuten?

Buenos días,

Quisiera saber de algún programa para windows, que controle que proceso x esté encendido, y si no lo esta ejecute tal .exe, es posible?

O bien, explicadme más o menos la forma de saber en c++ builder si un proceso se esta ejecutando.

Grácias.

Claro, esta incluido en el OS y es el sistema de servicios.

Debes crear tu app con soporte a correr como un servicio (o sea, jamas de los jamases abrir un messagebox o exigir input del usuario).

En el panel de control, herramientas administrativas, servicios, puedes ver los servicios activos y en propiedades se configura el usuario y las opciones de recuperacion.

Esta es la forma mas correcta de hacerlo.

PERO

Si los exes que supervisas tienen interactividad con el usuario, debes replicar el sistema con una aplicación en el background que chequee los procesos activos y haga lo que buscas (similar a como hace la herramienta "Guardian" de firebird )

Cita:

Empezado por vivamotos (Mensaje 366202)

...O bien, explicadme más o menos la forma de saber en c++ builder si un proceso se esta ejecutando...

Código:

#include <tlhelp32.h>



bool IsRuning(char* FileName)

{

   PROCESSENTRY32 Proceso;

   HANDLE ProcessHandle;

   bool Result = false;



   Proceso.dwSize = sizeof(PROCESSENTRY32);

   ProcessHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

   if(Process32First(ProcessHandle, &Proceso)){

     do{

       if(!stricmp(Proceso.szExeFile, FileName)){

         Result = true;

         break;

       }

     }while(Process32Next(ProcessHandle, &Proceso));

   }

   CloseHandle(ProcessHandle);

   return Result;

}

Saludos.

Muchas grácias hoy por la tarda lo pruebo

Muchísimas grácias funciona perfectamente soys los mejores :D

El código que me pasasteis antes funciona bien pero tengo en un ordenador los procesos siguientes:

Como vereis el wcirnet.exe no tiene PID, y es un subproceso de NTVDM.EXE como puedo saber si wcirnet.exe esta en marcha?, como el otro código pero con subprocesos

Código:

#include <vdmdbg.h>



struct TProcessEnumData16{

  char* Name;

  bool Running;

};



BOOL WINAPI ProcessVDMs( DWORD, DWORD, LPARAM );

BOOL WINAPI ProcessTasks( DWORD, WORD, WORD, PSZ, PSZ, LPARAM );



BOOL WINAPI

ProcessVDMs(DWORD dwProcessId, DWORD dwAttrib, LPARAM PE)

{

   VDMEnumTaskWOWEx(dwProcessId, (TASKENUMPROCEX)ProcessTasks, PE);

   return ((TProcessEnumData16*)PE)->Running;

}



BOOL WINAPI

ProcessTasks(DWORD dwThreadId, WORD hMod16, WORD hTask16, PSZ pszModName, PSZ pszFileName, LPARAM PE)

{

   if(strstr(strupr(pszFileName), strupr(((TProcessEnumData16*)PE)->Name)))

      return ((TProcessEnumData16*)PE)->Running = true;



   return false;

}



//---------------------------------------------------------------------------

IsRunning16(char* Name)

{

   TProcessEnumData16 PE = {Name,0};

   VDMEnumProcessWOW((PROCESSENUMPROC)ProcessVDMs, (LPARAM)&PE);

   return PE.Running;

}

Saludos.

Otra forma de hacerlo mas compacto usando las bondades de C++:

Código:

bool IsRunning16_(char* Name)

{

  struct TRuningProcess16{

    char* Name;

    bool Running;





    static BOOL WINAPI

    ProcessTasks(DWORD dwThreadId, WORD hMod16, WORD hTask16, PSZ pszModName, PSZ pszFileName, LPARAM PE)

    {

       if(strstr(strupr(pszFileName), strupr(((TRuningProcess16*)PE)->Name)))

          return ((TRuningProcess16*)PE)->Running = true;

       return false;

    }

    static BOOL WINAPI

    ProcessVDMs(DWORD dwProcessId, DWORD dwAttrib, LPARAM PE)

    {

       VDMEnumTaskWOWEx(dwProcessId, (TASKENUMPROCEX)ProcessTasks, PE);

       return ((TProcessEnumData16*)PE)->Running;

    }



  } PE = {Name,0};



  VDMEnumProcessWOW((PROCESSENUMPROC)ProcessVDMs, (LPARAM)&PE);

  return PE.Running;

}

Saludos.

El código que me habeís pasado no funciona ninguno de los dos, ejecuto el administrador de tareas, ejecuto el programa y le paso al IsRunning16("taskmgr.exe") y me devuelve que no esta activo cuando lo esta.

Me lo podeís corregir?

Cita:

Empezado por vivamotos (Mensaje 366846)

No me extraña que no te funcione así. El Taskmgr.exe es una aplicación 32 bits no de 16.

Te explico: Las aplicaciones de 16 bits en NT se ejecutan sobre una máquina virtual. Puede haber varias máquinas funcionando al tiempo. El código busca en todas las máquinas virtuales, y en cada una busca el proceso que coincida con el nombre dado. Si lo encuentra, devuelve true. No busca procesos de 32 bits.

El segundo código tiene un pequeño error que no aparecerá si ambos los compilaste juntos. donde dice TProcessEnumData16* debe decir TRuningProcess16*. ambas estructuras son compatibles pero no compilará si está "sólo". Haz el cambio para solucionarlo.

"No puedo editar el post", algo han cambiado en clubdelphi con lo que ese error se mantendrá. No se si el cambio es intencionado o no, en caso de que lo sea, no entiendo porque se prefieren post con erratas...

Publico la corrección:

Código:



#include <vdmdbg.h>

 

bool IsRunning16_(char* Name)

{

  struct TRuningProcess16{

    char* Name;

    bool Running;

 

 

    static BOOL WINAPI

    ProcessTasks(DWORD dwThreadId, WORD hMod16, WORD hTask16, PSZ pszModName, PSZ pszFileName, LPARAM PE)

    {

       if(strstr(strupr(pszFileName), strupr(((TRuningProcess16*)PE)->Name)))

          return ((TRuningProcess16*)PE)->Running = true;

       return false;

    }

    static BOOL WINAPI

    ProcessVDMs(DWORD dwProcessId, DWORD dwAttrib, LPARAM PE)

    {

       VDMEnumTaskWOWEx(dwProcessId, (TASKENUMPROCEX)ProcessTasks, PE);

       return ((TRuningProcess16*)PE)->Running;

    }

 

  } PE = {Name,0};

 

  VDMEnumProcessWOW((PROCESSENUMPROC)ProcessVDMs, (LPARAM)&PE);

  return PE.Running;

}

Si quieres un código que busque todo tipo de proceso, une ambos:

Código:

bool _IsRunning(char* Name)

{

   return IsRunning16_(Name) || IsRuning(Name);

}

Saludos.

Cita:

Empezado por escafandra (Mensaje 366849)

[..] "No puedo editar el post", algo han cambiado en clubdelphi con lo que ese error se mantendrá. No se si el cambio es intencionado o no, en caso de que lo sea, no entiendo porque se prefieren post con erratas...

Publico la corrección:
[..]

Hola, escafandra, los post se pueden editar si no ha pasado un tiempo determinado, creo recordar que media hora. Pasado ese tiempo es necesario escribir un nuevo post para indicar los cambios que se necesiten, tal y como has hecho.

Se tuvo que optar por esa forma de actuar para solucionar unos inconvenientes en la instalación de nuestro nuevo servidor. Se volverá a dejar como antes en cuanto esté todo funcionando correctamente.

Rapidez y sencilles

Grácias por todo amigos, ha funcionado perfectamente y os doy las grácias por la rápidez en contestar y en aclarar el problema.

THANK YOOOUUU :D

Cita:

Empezado por Casimiro Notevi (Mensaje 366851)

Gracias. ;)

Saludos.