乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 30|回复: 1

请教如何获取进程的PID

[复制链接]

12

主题

71

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
119
发表于 2005-2-4 12:50:00 | 显示全部楼层 |阅读模式
在一个模块里面加入如下代码 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                                                                                                                                                                                                 ByVal lpClassName As String, _
                                                                                                                                                                                                 ByVal lpWindowName As String) As Long
Sub TestFindWindow()
         Dim objXl As Object
         Dim lngXl As Long
         
         Set objXl = CreateObject("Excel.Application")
         lngXl = FindWindow(vbNullString, "Microsoft Excel")
         
         MsgBox lngXl
               
         objXl.Quit
         Set objXl = Nothing
         
End Sub
运行TestFindWindow之前特地看了一下任务管理器中并没有Excel的进程,
为什么Msgbox 显示的数值是一个6位整数,而任务管理中看到的PID却是一个4位整数?
回复

使用道具 举报

12

主题

71

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
119
发表于 2005-2-4 13:52:00 | 显示全部楼层
已经解决了,FindWindow获取的是窗体的Hwnd而不是进程的PID
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 20:48 , Processed in 0.364770 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表