4 replies to this topic

[escafandra]

Las aplicaciones 16bits se ejecutan en una máquina virtual en el entorno NT. Por este motivo no se pueden enumerar con las utilidades tlhelp32.

Para enumerarlas tendremos que recorrer las máquinas virtuales que se estén ejecutando y sobre cada una de ellas enumerar las aplicaciones 16 bits que se ejecutan.

Pongo un ejemplo para saber si una aplicación de este tipo está ejecutándose:

cpp

#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)PE.ProcessVDMs, (LPARAM)&PE);
  return PE.Running;
}

Espero que sea de utilidad.

Saludos.

[seoane]

Que casualidad, ayer mismo necesitaba una funcion como esa, pero como andaba con prisa al final busque la aplicacion por el titulo de su vetana.

[escafandra]

Que casualidad, ayer mismo necesitaba una funcion como esa, pero como andaba con prisa al final busque la aplicacion por el titulo de su vetana.

Bueno, es una forma sencilla y rápida de implementar y muy eficaz... siempre que la aplicación tenga ventana 

De esta forma te aseguras de que la encuentras, tenga o no ventanas 

Saludos.

[escafandra]

Por si resulta de interés la traduzco a delphi:

delphi

uses StrUtils;
 
function VDMEnumTaskWOWEx(dwProcessId: DWORD; fp: pointer; lparam: integer): integer; stdcall; external 'VdmDbg.dll' name 'VDMEnumTaskWOWEx';
function VDMEnumProcessWOW(fp: pointer; lparam: integer): integer; stdcall; external 'VdmDbg.dll' name 'VDMEnumProcessWOW';
 
type
TRuningProcess16 = record
  Name: Pchar;
  Running: boolean;
end;
PTRuningProcess16 = ^TRuningProcess16;
 
// Enumera procesos
function ProcessTasks(dwThreadId: DWORD; hMod16, hTask16: WORD; pszModName, pszFileName: PCHAR; PE: integer): boolean; stdcall;
begin
   if AnsiContainsText(pszFileName, PTRuningProcess16(PE).Name) then
   begin
      PTRuningProcess16(PE).Running:= true;
      Result:= true;
      exit;
   end;
   Result:= false;
end;
 
// Enumera Máquinas Virtuales
function ProcessVDMs(dwProcessId, dwAttrib: DWORD; PE: integer): boolean; stdcall;
begin
   VDMEnumTaskWOWEx(dwProcessId, @ProcessTasks, PE);
   Result:= PTRuningProcess16(PE).Running;
end;
 
function IsRunning16_(Name: string): boolean;
var
  PE: TRuningProcess16;
begin
  PE.Name:= PCHAR(Name);
  PE.Running:= false;
 
  VDMEnumProcessWOW(@ProcessVDMs, integer(@PE));
  Result:= PE.Running;
end;

Saludos.

[egostar]

Muy bueno, si encuentra las app de 16 bits, ahora entiendo lo de WowExec.exe

Gracias amigo escafandra, siempre aportando código excelente

Salud OS