brandonwu78 你好:
(1)我想~~先說出心中的感受，從一開始到現在，老實說~~小弟我很懷疑你做過
   多少的努力，問你自己寫的程式碼在哪裡?? 結果你貼了一篇我第一次提供給
   你的連結中的程式碼 (一字不改，完全照抄)；試想~~天底下有這麼好的事情
   嗎?? 假設 M$DN 中的範例程式碼都可以完全照抄，而且不用修改就能夠達到
   自己需求的話，那可能大家都沒飯可吃了。
(2)如果你跟小弟我在 (1) 中想像得不一樣的話，那我在此鄭重道歉，可是，如
   果不幸言中，我只想提醒你、建議你，天下沒有白吃的午餐，自己的工作最
   好要由自己完成，這樣不是會比較有成就感嗎??
(3)我稍微修改了一下，在 BCB 就可以編譯/執行了，請參考以下的範例程式碼
   (要先在 Form1 上拉一個 Memo1 及 Button1)
#include "psapi.h"
void ListProcessNameAndID(DWORD processID);    void ListProcessNameAndID(DWORD processID)
{
   char szProcessName[MAX_PATH]="unknown";       //---------------------------------------------------------------------------
   // Get a handle to the process.
   HANDLE hProcess=OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,
      FALSE, processID);       //---------------------------------------------------------------------------
   // Get the process name.
   if(NULL!=hProcess)
   {
      HMODULE hMod;
      DWORD cbNeeded;          if(EnumProcessModules(hProcess, &hMod, sizeof(hMod), &cbNeeded))
      {
         GetModuleBaseName(hProcess, hMod, szProcessName, sizeof(szProcessName));
      }
      else
      {
         return;
      }
   }
   else
   {
      return;
   }       //---------------------------------------------------------------------------
   // Print the process name and identifier.
   Form1->Memo1->Lines->Add((AnsiString)szProcessName ", ID: " IntToStr(processID));       CloseHandle(hProcess);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DWORD aProcesses[1024], cbNeeded, cProcesses;
   unsigned int i;       if(!EnumProcesses(aProcesses, sizeof(aProcesses), &cbNeeded ))
   {
      return;
   }       //---------------------------------------------------------------------------
   // Calculate how many process identifiers were returned.
   cProcesses=cbNeeded/sizeof(DWORD);       //---------------------------------------------------------------------------
   // Print the name and process identifier for each process.
   for(i=0; i

<>
備註:
記得要利用 >    --