如何根据窗口标题获得进程名称

大佬教程收集整理的这篇文章主要介绍了如何根据窗口标题获得进程名称，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

本来想用kernel32中的GetModuleFilename函数来实现的，可惜该函数需要更准确的hModule（因为一个进程中可能包含多个hModule），还得使用EnumProcessModules函数枚举hMos，为了省事，故使用了psapi中的GetModuleFilenameExA函数实现，代码如下：@H_944_1@

Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpWindowName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng) 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_@R_<a href="http://code.js-code.com/tag/674/" target="_blank" class="keywords">674</a>_10636@ACCESS = &H1F0FFF Private Declare Function CloseHandle Lib "kernel32" (ByVal hOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct As Long) As Long Private Declare Function GetModuleFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a>ExA Lib "psapi.dll" (ByVal hProcess As Long,ByVal hModule As Long,ByVal Modul<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal nSize As Long) As Long Sub Main() Dim strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Dim hWnd As Long,pId As Long,hProcess As Long strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> = <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng(128,<a href="http://code.js-code.com/tag/chr/" target="_blank" class="keywords">chr(</a>0)) hWnd = FindWindow(vbNull<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,"无标题 - 记事本") '以记事本为例 GetWindowThreadProcessId hWnd,pId hProcess = OpenProcess(PROCESS_@R_<a href="http://code.js-code.com/tag/674/" target="_blank" class="keywords">674</a>_10636@ACCESS,pId) strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> = Left(strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a>,GetModuleFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a>ExA(hProcess,strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a>,Len(strFile<a href="http://code.js-code.com/tag/Name/" target="_blank" class="keywords">Name)</a>)) CloseHandle hProcess MsgBox strFil<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> End Sub @H_944_1@

大佬总结

以上是大佬教程为你收集整理的如何根据窗口标题获得进程名称全部内容，希望文章能够帮你解决如何根据窗口标题获得进程名称所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。