盒子论坛 v2.1

偶是用C++BUILDER写的不是太完善，对不起啊！

void __fastcall TTaskMon::ShowProcess(void)
{
lvwProcess->Items->Clear();
  HANDLE hSnapshot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
     //  if(hSnapshot==(HANDLE)-1)
     //  {
     //   Application->MessageBox("程序运行失败", "错误",
     //       MB_OK+ MB_ICONEXCLAMATION);
     //    return;
     //  }
    StatusBar1->Panels->Items[0]->Text = "进程";
    StatusBar1->Panels->Items[1]->Text =
                "选择一进程可以查看它调用的模块信息";
    char Hex[14];
    TListItem  *ListItem;
  PROCESSENTRY32 pe;
    AnsiString FileName;
    AnsiString File;
    AnsiString Path;
  pe.dwSize=sizeof(pe);
  for(int i=Process32First(hSnapshot,&pe);i;i=Process32Next(hSnapshot,&pe))
  {
        FileName=pe.szExeFile;
        if (FileName.Pos('\\')==0)
        { File=FileName;
          Path=FileName;
        }
        else
        {
            for(int i=FileName.Length();i>0;i--)
            if(FileName.IsPathDelimiter(i))
            {
                File=FileName.SubString(i+1,FileName.Length());
                Path=FileName.SubString(1,i);
                break;
            }
        }
        /*
        typedef struct tagPROCESSENTRY32
{
    DWORD   dwSize;
    DWORD   cntUsage;
    DWORD   th32ProcessID;          // this process
    ULONG_PTR th32DefaultHeapID;
    DWORD   th32ModuleID;           // associated exe
    DWORD   cntThreads;
    DWORD   th32ParentProcessID;    // this process's parent process
    LONG    pcPriClassBase;         // Base priority of process's threads
    DWORD   dwFlags;
    CHAR    szExeFile[MAX_PATH];    // Path
}
typedef struct tagTHREADENTRY32
{
    DWORD   dwSize;
    DWORD   cntUsage;
    DWORD   th32ThreadID;       // this thread
    DWORD   th32OwnerProcessID; // Process this thread is associated with
    LONG    tpBasePri;
    LONG    tpDeltaPri;
    DWORD   dwFlags;
}

BOOL
WINAPI
Thread32First(
    HANDLE hSnapshot,
    LPTHREADENTRY32 lpte
    );

BOOL
WINAPI
Thread32Next(
    HANDLE hSnapshot,
    LPTHREADENTRY32 lpte
    );
        */
        ListItem= lvwProcess->Items->Add();
        ListItem->Caption = File;           // 文件名
        {
            intToHex(pe.th32ProcessID,Hex);
            ListItem->SubItems->Add(Hex);       // 进程ID
        }
        {
            AnsiString Tmp(pe.pcPriClassBase);
            ListItem->SubItems->Add(Tmp);       // 进程优先权
        }
        {
            intToHex(pe.th32ParentProcessID,Hex);
            ListItem->SubItems->Add(Hex);       // 父进程ID
        }
        {
            AnsiString Tmp(pe.cntThreads);
            ListItem->SubItems->Add(Tmp);       // 创建线程个数
        }
   //     ListItem->SubItems->Add(Path);      // 文件路径
        {
            AnsiString Tmp((int)pe.th32ProcessID);
            ListItem->SubItems->Add(Tmp);       // 进程ID
        }
  }
    CloseHandle(hSnapshot);
}
----------------------------------------------

作者：

zhaoyin (zhaoyin)	★☆☆☆☆	-
	普通会员

2003/11/19 15:29:09

9楼：

这么客气，谢谢你了
----------------------------------------------
-

信息

登陆以后才能回复