进程模块查看器

主要界面如下：
主要代码如下：
  1 BOOL CEnumProcessDlg::OnInitDialog()
  2 {
  3     CDialog::OnInitDialog();
  4 
  5     // 将“关于...”菜单项添加到系统菜单中。
  6 
  7     // IDM_ABOUTBOX 必须在系统命令范围内。
  8     ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  9     ASSERT(IDM_ABOUTBOX < 0xF000);
 10 
 11     CMenu* pSysMenu = GetSystemMenu(FALSE);
 12     if (pSysMenu != NULL)
 13     {
 14         CString strAboutMenu;
 15         strAboutMenu.LoadString(IDS_ABOUTBOX);
 16         if (!strAboutMenu.IsEmpty())
 17         {
 18             pSysMenu->AppendMenu(MF_SEPARATOR);
 19             pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
 20         }
 21     }
 22 
 23     // 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动
 24     //  执行此操作
 25     SetIcon(m_hIcon, TRUE);            // 设置大图标
 26     SetIcon(m_hIcon, FALSE);        // 设置小图标
 27 
 28     // TODO: 在此添加额外的初始化代码
 29     LONG lStyle;
 30     lStyle = GetWindowLong(m_ctrlList.m_hWnd, GWL_STYLE);
 31     lStyle &= ~LVS_TYPEMASK;
 32     lStyle |= LVS_REPORT;
 33     SetWindowLong(m_ctrlList.m_hWnd, GWL_STYLE, lStyle);
 34 
 35     DWORD dwStyle = m_ctrlList.GetExtendedStyle();
 36     dwStyle |= LVS_EX_FULLROWSELECT;
 37     dwStyle |= LVS_EX_GRIDLINES;
 38     m_ctrlList.SetExtendedStyle(dwStyle);
 39     m_ctrlList.InsertColumn(0, _T("Process ID"), LVCFMT_LEFT, 75);
 40     m_ctrlList.InsertColumn(1, _T("Process Name"), LVCFMT_LEFT, 120);
 41     m_ctrlList.InsertColumn(2, _T("Parent Process ID"), LVCFMT_LEFT, 115);
 42     m_ctrlList.InsertColumn(3, _T("Thread Count"), LVCFMT_LEFT, 90);
 43     ListProcess();
 44 
 45     return TRUE;  // 除非将焦点设置到控件，否则返回 TRUE
 46 }
 47 
 48 void CEnumProcessDlg::OnSysCommand(UINT nID, LPARAM lParam)
 49 {
 50     if ((nID & 0xFFF0) == IDM_ABOUTBOX)
 51     {
 52         CAboutDlg dlgAbout;
 53         dlgAbout.DoModal();
 54     }
 55     else
 56     {
 57         CDialog::OnSysCommand(nID, lParam);
 58     }
 59 }
 60 
 61 // 如果向对话框添加最小化按钮，则需要下面的代码
 62 //  来绘制该图标。对于使用文档/视图模型的 MFC 应用程序，
 63 //  这将由框架自动完成。
 64 
 65 void CEnumProcessDlg::OnPaint()
 66 {
 67     if (IsIconic())
 68     {
 69         CPaintDC dc(this); // 用于绘制的设备上下文
 70 
 71         SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);
 72 
 73         // 使图标在工作矩形中居中
 74         int cxIcon = GetSystemMetrics(SM_CXICON);
 75         int cyIcon = GetSystemMetrics(SM_CYICON);
 76         CRect rect;
 77         GetClientRect(&rect);
 78         int x = (rect.Width() - cxIcon + 1) / 2;
 79         int y = (rect.Height() - cyIcon + 1) / 2;
 80 
 81         // 绘制图标
 82         dc.DrawIcon(x, y, m_hIcon);
 83     }
 84     else
 85     {
 86         CDialog::OnPaint();
 87     }
 88 }
 89 
 90 //当用户拖动最小化窗口时系统调用此函数取得光标显示。
 91 //
 92 HCURSOR CEnumProcessDlg::OnQueryDragIcon()
 93 {
 94     return static_cast<HCURSOR>(m_hIcon);
 95 }
 96 
 97 
 98 void CEnumProcessDlg::ListProcess(void)
 99 {
100     HANDLE hProcessSnap;
101     PROCESSENTRY32 pe32;
102     
103     hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
104     if (hProcessSnap == INVALID_HANDLE_VALUE)
105     {
106         CString strErr;
107         strErr.Format(_T("CreateToolhelp32Snapshot failed:%d"), GetLastError());
108         AfxMessageBox(strErr);
109         return;
110     }
111 
112     pe32.dwSize = sizeof(PROCESSENTRY32);
113 
114     int index = 0;
115     if (!Process32First(hProcessSnap, &pe32))
116     {
117         CString strErr;
118         strErr.Format(_T("Process32First failed:%d"), GetLastError());
119         AfxMessageBox(strErr);
120         CloseHandle(hProcessSnap);
121         return;
122     }
123 
124     do 
125     {
126         CString strID;
127         strID.Format(_T("%d"), pe32.th32ProcessID);
128         m_ctrlList.InsertItem(index, strID);
129         m_ctrlList.SetItemText(index, 1, pe32.szExeFile);
130         strID.Format(_T("%d"), pe32.th32ParentProcessID);
131         m_ctrlList.SetItemText(index, 2, strID);
132         strID.Format(_T("%d"), pe32.cntThreads);
133         m_ctrlList.SetItemText(index++, 3, strID);
134     } while (Process32Next(hProcessSnap, &pe32));
135 
136     CloseHandle(hProcessSnap);
137 }
138 
139 void CEnumProcessDlg::OnContextMenu(CWnd* pWnd, CPoint point)
140 {
141     // TODO: 在此处添加消息处理程序代码
142     CMenu menu;
143 
144     if (menu.CreatePopupMenu() == FALSE)
145     {
146         return;
147     }
148     
149     if (pWnd == &m_ctrlList)
150     {
151         menu.AppendMenu(MF_STRING , ID_SCANMODULE , _T("查看依赖模块"));
152         if(m_ctrlList.GetSelectedCount() < 0)
153         {
154             menu.EnableMenuItem(ID_SCANMODULE , MF_DISABLED | MF_GRAYED);
155         }
156     }
157 
158     menu.TrackPopupMenu(TPM_LEFTALIGN | TPM_RIGHTBUTTON, point.x, point.y, this);
159 }
160 
161 void CEnumProcessDlg::ScanModule(UINT nID)
162 {
163     switch (nID)
164     {
165     case ID_SCANMODULE:
166         {
167             CString strProcessID = m_ctrlList.GetItemText(m_ctrlList.GetSelectionMark(), 0);
168             CProcessModule dlgProcessModule;
169             dlgProcessModule.m_dwProcessID = _tcstoul(strProcessID, 0, 10);
170             dlgProcessModule.DoModal();
171         }
172         break;
173     default:
174         break;
175     }
176 }
177 
178 void CEnumProcessDlg::OnNMDblclkListProcess(NMHDR *pNMHDR, LRESULT *pResult)
179 {
180     // TODO: 在此添加控件通知处理程序代码
181     CString strProcessID = m_ctrlList.GetItemText(m_ctrlList.GetSelectionMark(), 0);
182     CProcessModule dlgProcessModule;
183     dlgProcessModule.m_dwProcessID = _tcstoul(strProcessID, 0, 10);
184     dlgProcessModule.DoModal();
185     *pResult = 0;
186 }
下载地址如下：
http://pan.baidu.com/s/1gdeJ3xT