vdmdbg fonction VDMEnumTaskWOWExRésolu

Question

Bonjour,
Je n'arrive pas a utiliser la fonction VDMEnumTaskWOWEx de la DLL VDMDBG. 
Cette fonction permet de connaître les processes 16bits tournant sur une machine par rapport à l'ID du process NTVDM.EXE

Si quelqu'un peut me donner un ptit coup de main.

Merci,

Pascal99

cs_pascal99 · Accepted Answer

J'ai fini par trouver apres pas mal de tatonements.

type     PSZ = LPSTR;

    TASKENUMPROCEX            = Function (dwThreadId: DWORD; hMod16: Word; hTask16: Word; pszModName, pszFileName: PSZ; lpUserDefined: LPARAM): Boolean stdcall;

    TVDMEnumTaskWOWEx         = Function (dwProcessId: DWORD; fp: TASKENUMPROCEX; lparam: LPARAM)                     : Integer stdcall;

Const 

Function  LoadVDMDBG: Boolean;
Function  Enum16   (dwThreadId: Cardinal; hMod16: Word; hTask16: Word; pszModName, pszFileName: PSZ; lpUserDefined: LPARAM): Boolean; stdcall;

implementation
var hVDMDBG: THandle;
      VDMEnumTaskWOWEx         : TVDMEnumTaskWOWEx;
    

function LoadVDMDBG: Boolean;
begin
     if hVDMDBG = 0 then
     begin
          hVDMDBG := LoadLibrary('VDMDBG.dll');
          if hVDMDBG < 32 then
          begin
               hVDMDBG := 0;
               Result := False;
               Exit;
          end;
          @VDMEnumTaskWOWEx                    := GetProcAddress(hVDMDBG, 'VDMEnumTaskWOWEx');
          
     end;
     Result := True;
end;

function Enum16(dwThreadId: Cardinal; hMod16: Word; hTask16: Word; pszModName, pszFileName: PSZ; lpUserDefined: LPARAM): Boolean; stdcall;
begin
     //ce que l'on souhaite faire avec le process 16bits par ex :
    toto := ExtractFileName(pszFileName);
     result := false;
end;

...
VDMDBGLoaded := LoadVDMDBG;
...

if  (UpperCase(truc.nom) = 'NTVDM.EXE')
              and  VDMDBGLoaded then
              begin
                   cEP16 := VDMEnumTaskWOWEx(truc.ID, Enum16, 0); // Enum 16-bit process ;
                   for i := 0 to cEP16-1 do //faire un truc avec
              end;

Voila j'espere avoir ete clair

Pascal99

Vdmdbg fonction VDMEnumTaskWOWEx

1 réponse

Votre réponse

Discussions similaires