GetPID

原创 2004年09月27日 02:19:00

Option Explicit

Const MAX_PATH = 260
Const TH32CS_SNAPPROCESS = 2&

Private Type PROCESSENTRY32
    lSize            As Long
    lUsage           As Long
    lProcessId       As Long
    lDefaultHeapId   As Long
    lModuleId        As Long
    lThreads         As Long
    lParentProcessId As Long
    lPriClassBase    As Long
    lFlags           As Long
    sExeFile         As String * MAX_PATH
End Type

Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" _
    Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, _
    ByVal lProcessId As Long) As Long
   
Private Declare Function ProcessFirst Lib "kernel32" _
    Alias "Process32First" (ByVal hSnapshot As Long, _
    uProcess As PROCESSENTRY32) As Long
   
Private Declare Function ProcessNext Lib "kernel32" _
    Alias "Process32Next" (ByVal hSnapshot As Long, _
    uProcess As PROCESSENTRY32) As Long
Private Sub Form_Load()
Dim sExeName   As String
Dim sPid       As String
Dim sParentPid As String
Dim lSnapShot  As Long
Dim r          As Long
Dim uProcess   As PROCESSENTRY32

lSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapShot <> 0 Then
    With MSFLEXGRID1
    .Clear
    .Rows = 1
    .Cols = 4
'    .FixedCols = 1
'    .FixedRows = 0
    .TextMatrix(0, 0) = "Module Name"
    .TextMatrix(0, 1) = "Process Id"
    .TextMatrix(0, 2) = "Parent" & vbCrLf & "Process"
    .TextMatrix(0, 3) = "Threads"
    .RowHeight(0) = 400
    .ColWidth(0) = 4200
    .ColWidth(1) = 950
    .ColWidth(2) = 950
    .ColWidth(3) = 775
    .ColAlignment(0) = flexAlignLeftBottom
    .ColAlignment(1) = flexAlignLeftBottom
    .ColAlignment(2) = flexAlignLeftBottom
    .ColAlignment(3) = flexAlignLeftBottom
   
    uProcess.lSize = Len(uProcess)
    r = ProcessFirst(lSnapShot, uProcess)

    Do While r
        sExeName = Left(uProcess.sExeFile, InStr(1, uProcess.sExeFile, vbNullChar) - 1)
        sPid = Hex$(uProcess.lProcessId)
        sParentPid = Hex$(uProcess.lParentProcessId)
        .AddItem sExeName & vbTab & sPid & vbTab & _
                sParentPid & vbTab & CStr(uProcess.lThreads)
        r = ProcessNext(lSnapShot, uProcess)
    Loop
    CloseHandle (lSnapShot)
    End With
End If
End Sub

getpid函数

函数功能:取得进程识别码   相关函数: fork,kill,getpid   头文件: 旧版本:unistd.h,在VC++6.0下可以用process.h   函数原型: 旧的原型为pid_t g...
  • pingwang0606
  • pingwang0606
  • 2011年03月17日 18:09
  • 1932

Linux系统调用--getpid/getppid函数详解

【getpid/getppid系统调用】       功能描述: getpid返回当前进程标识,getppid返回父进程标识。   用法:  #include #includ...
  • shixiaoguo90
  • shixiaoguo90
  • 2014年03月24日 14:13
  • 1082

error C3861: “getpid”: 找不到标识符

这种错误一般就是没有对应的函数或者对应的头文件 旧版的vs添加#include  "unistd.h"即可 新版的VS添加#include "process.h"即可解决该问题 凡是C3861的...
  • woniu199166
  • woniu199166
  • 2016年09月08日 14:36
  • 885

Linux fork和getpid语句详解

进程的定义 定义 应用程序关于某数据集合上的一次运行活动 操作系统进行资源分配和调度的基本单位 进程是程序的一次执行过程 进程是动态的,程序是静态的 同一程序同时运行于若干...
  • qq_20916555
  • qq_20916555
  • 2016年04月16日 09:07
  • 3143

getpid()

getpid是一种函数,功能是取得进程识别码。 中文名getpid函数功能取得进程识别码 相关函数ork,kill,getpid头文件旧版本:unistd.h 目录 1函数简介2程序示例...
  • Lina_ACM
  • Lina_ACM
  • 2016年07月20日 09:54
  • 933

fork、getpid函数的进程小知识

getpid函数与fork函数都是与进程有关的函数。   getpid函数原型为: pid_t getpid(void); 函数返回值为当前进程的PID。吐槽一下《UNIX环境高级编程》的中文版翻译,...
  • Lina_ACM
  • Lina_ACM
  • 2016年07月20日 09:54
  • 1064

Linux下获取线程TID的方法——gettid() 获取进程 getpid()

如何获取进程的PID(process ID)? 可以使用: #include    pid_t getpid(void);   通过查看头文件说明,可以得到更详细的...
  • u013443618
  • u013443618
  • 2015年11月19日 20:36
  • 2214

linux getpid 小结

copy from:  http://blog.sina.com.cn/s/blog_759dc36b0100p8y4.html 当运行任何一个UNIX命令时,shell至少会建立一...
  • zhuyi2654715
  • zhuyi2654715
  • 2012年07月19日 20:23
  • 1059

linux下的四个简单函数介绍:getpid, getppid, getuid, getgid

直接看程序: #include int main() { printf("pid:%d, ppid:%d, uid:%d, gid:%d\n", getpid(), getppid(), get...
  • stpeace
  • stpeace
  • 2015年04月30日 21:23
  • 8741

error: ‘getpid’ was not declared in this scope

This is expected you are not including unistd.h in your source which is required if you want to use ...
  • mydriverc2
  • mydriverc2
  • 2015年02月13日 16:21
  • 1770
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:GetPID
举报原因:
原因补充:

(最多只允许输入30个字)