Process32First

来源：互联网发布：网络直播受众范围编辑：程序博客网时间：2024/06/05 07:56

process32First 是一个进程获取函数,当我们利用函数CreateToolhelp32Snapshot()获得当前运行进程的快照后,我们可以利用process32First函数来获得第一个进程的句柄.其原型为(用的是vfp)

DECLARE INTEGER Process32First IN WIN32API ;

INTEGER hSnapshot,STRING @ lppe

在C语言中如下

1
2
3
4
BOOLWINAPI Process32First(
    HANDLEhSnapshot,//_in
    LPPROCESSENTRY32 lppe//_out
);

其中PROCESSENTRY32结构为:

PROCESSENTRY32 结构如下：

1
2
3
4
5
6
7
8
9
10
11
12
typedefstruct tagPROCESSENTRY32 {
    DWORDdwSize; // 结构大小；
    DWORDcntUsage; // 此进程的引用计数；
    DWORDth32ProcessID; // 进程ID;
    DWORDth32DefaultHeapID; // 进程默认堆ID；
    DWORDth32ModuleID; // 进程模块ID；
    DWORDcntThreads; // 此进程开启的线程计数；
    DWORDth32ParentProcessID;// 父进程ID；
    LONGpcPriClassBase; // 线程优先权；
    DWORDdwFlags; // 保留；
    charszExeFile[MAX_PATH]; // 进程全名；
} PROCESSENTRY32;

此函数往往和

Process32Next(

Handle hsnapShot,

LPPROCESSENTRY32 lppe)

搭配使用，用来枚举当前系统快照相关的所有进程。

函数返回值:成功返回true,否则返回false.

vb实例

Private Type PROCESSENTRY32

dwSize As Long

cntUseage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

swFlags As Long

szExeFile As String * 1024

End Type

Private Sub demo()

Dim MySnapHandle As Long

Dim ProcessInfo As PROCESSENTRY32

MySnapHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

ProcessInfo.dwSize = Len(ProcessInfo)

If Process32First(MySnapHandle, ProcessInfo) <> 0 Then

'用来判断快照MySnapHandle 成功获得进程信息

end if

end sub

===============================================================================

C/C++

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
PROCESSENTRY32 p;
PROCESSENTRY32 *info = &p;
// 在使用这个结构之前，先设置它的大小
info->dwSize = sizeof(PROCESSENTRY32 );
charproName[] = {"devenv.exe"};
HANDLEhandlePro = NULL; //结束进程句柄
// 给系统内的所有进程拍一个快照
HANDLEhProcessSnap = ::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if(hProcessSnap == INVALID_HANDLE_VALUE)
{
    printf(" CreateToolhelp32Snapshot调用失败！ \n");
    return-1;
}
// 遍历进程快照，轮流显示每个进程的信息
BOOLbMore = ::Process32First(hProcessSnap, info);
BOOLterminate = FALSE;
while( bMore != FALSE)
{
    if(strcmp(proName,info->szExeFile) == 0)
    {
        handlePro=OpenProcess(PROCESS_TERMINATE, FALSE, info->th32ProcessID);
        if(NULL == handlePro)
        {
            break;
        }
        //结束进程
        terminate = TerminateProcess(handlePro, 0);
    }
bMore = Process32Next(hProcessSnap, info);
}
::CloseHandle(hProcessSnap);

===============================================================================

0 0