列举系统中所有被加载的DLL

 void ShowProcessModules(HWND hwnd, DWORD PId)
{

 SYSTEM_INFO si;
 memset(&si, 0, sizeof(si));
 GetSystemInfo( &si );
 if( PId == 0)
  PId = GetCurrentProcessId();
 DWORD LowAddr, HighAddr;
 LowAddr = (DWORD)si.lpMinimumApplicationAddress;
 HighAddr = (DWORD)si.lpMaximumApplicationAddress;
 HANDLE hdl = OpenProcess( PROCESS_QUERY_INFORMATION |PROCESS_VM_READ,
         FALSE, PId );
 if (hdl == NULL)
  return;
 char mapfilename[MAX_PATH] = "unknown";
 char tempname[MAX_PATH];
 DWORD nSize = sizeof(mapfilename);
 DWORD MapAddr, MapAddrto = 0;
 
 for (MapAddr = LowAddr; MapAddr < HighAddr; MapAddr += si.dwAllocationGranularity)
 {
 GetMappedFileName( hdl, (LPVOID)MapAddr,mapfilename, nSize );
 if(MapAddr < MapAddrto)
  continue;
 if(strlen(mapfilename) == 0)
  continue;
  
 for(MapAddrto = MapAddr; ; MapAddrto += si.dwPageSize)
  {GetMappedFileName( hdl, (LPVOID)MapAddrto,tempname, nSize );
   if(strcmp(tempname, mapfilename) == 0)
   continue;
   else
    break;
  }
 wsprintf(tempname, "0x%p-0x%p: %s",MapAddr, MapAddrto, mapfilename);
 SendMessage(GetDlgItem(hwnd,IDC_LIST1),LB_ADDSTRING,0,(LPARAM)tempname);

 }
CloseHandle( hdl );
return;
}