VB如何根据窗口标题获得进程名称
2013-02-08 07:52:22| 分类：
编程-VB
| 标签：
|举报
|字号大中小 订阅
本来想用kernel32中的GetModuleFileName函数来实现的，可惜该函数需要更准确的hModule（因为一个进程中可能包含多个hModule），还得使用EnumProcessModules函数枚举hMos，为了省事，故使用了psapi中的GetModuleFileNameExA函数实现，代码如下：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Sub Main()
Dim strFileName As String
Dim hWnd As Long, pId As Long, hProcess As Long
strFileName = String(128, Chr(0))
hWnd = FindWindow(vbNullString, "无标题 - 记事本") '以记事本为例
GetWindowThreadProcessId hWnd, pId
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pId)
strFileName = Left(strFileName, GetModuleFileNameExA(hProcess, 0, strFileName, Len(strFileName)))
CloseHandle hProcess
MsgBox strFileName
End Sub
摘自：如何根据窗口标题获得进程名称
评论这张
转发至微博
转发至微博
关闭
玩LOFTER，免费冲印20张照片，人人有奖！
我要抢>
<#--最新日志，群博日志-->
<#--推荐日志-->
<#--引用记录-->
<#--博主推荐-->
<#--随机阅读-->
<#--首页推荐-->
<#--历史上的今天-->
<#--被推荐日志-->
<#--上一篇，下一篇-->
<#-- 热度 -->
<#-- 网易新闻广告 -->
<#--右边模块结构-->
<#--评论模块结构-->
<#--引用模块结构-->
<#--博主发起的投票-->
评论