枚舉系統進程核心代碼（代碼）

包含頭文件：
#include "tlhelp32.h"
示例：

void CTerminateProcessDlg::OnGetProcess() 
{ 
 m_ListBox.ResetContent();
 CString m_output;
 HANDLE hProcessSnap=NULL;
 PROCESSENTRY32 pe32={0};
 hProcessSnap=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if(hProcessSnap==(HANDLE)-1)
 {
  ::MessageBox(NULL,"查詢進程失敗！:(","錯誤提示",MB_OK);
 
 }
 pe32.dwSize=sizeof(PROCESSENTRY32);
 if(Process32First(hProcessSnap,&pe32))
 {
  do
  {
   m_output.Format("%-20s     ID:%-5d",pe32.szExeFile,pe32.th32ProcessID);
   m_ListBox.AddString(m_output);
  }
  while(Process32Next(hProcessSnap,&pe32));
 }
 else
 {
  ::MessageBox(NULL,"出現意外錯誤！","錯誤提示",MB_OK);
 }
 CloseHandle(hProcessSnap);

}