Ver Mensaje Individual
  #10  
Antiguo 10-06-2010
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por vivamotos Ver Mensaje
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?
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.
Responder Con Cita