7,789
社区成员
发帖
与我相关
我的任务
分享高手请进!在线等待!!!
如果用findWindow找查指定caption的程序,用什么方法能知道这个程序在硬盘上的位置比如我找到了QQ的窗体,跟据这个窗口标题,能不能找到它的路径,比如(C:\QQ\QQ.exe)
...全文
请发表友善的回复…
发表回复
chriswing 2003-04-16
- 打赏
- 举报
Dim FileHwnd As Long
FileHwnd = FindWindow(vbNullString, "form2")
Debug.Print "Findwindow ->" & FileHwnd
Dim pid As Long
GetWindowThreadProcessId FileHwnd, pid
Debug.Print "PID -> " & pid
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
Debug.Print "OPEN process ->" & hProcess
Dim FilePath As String
FilePath = Space(256)
Dim FlagPath As Long
FlagPath = GetModuleFileName(hProcess, FilePath, 255)
Debug.Print "FlagPath -> " & FlagPath
MsgBox FilePath
这样的写法如何???
FileHwnd = FindWindow(vbNullString, "form2")
Debug.Print "Findwindow ->" & FileHwnd
Dim pid As Long
GetWindowThreadProcessId FileHwnd, pid
Debug.Print "PID -> " & pid
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
Debug.Print "OPEN process ->" & hProcess
Dim FilePath As String
FilePath = Space(256)
Dim FlagPath As Long
FlagPath = GetModuleFileName(hProcess, FilePath, 255)
Debug.Print "FlagPath -> " & FlagPath
MsgBox FilePath
这样的写法如何???
DaiLM 2003-04-16
- 打赏
- 举报
搜索注册表吧
xiaoxinghappy 2003-04-16
- 打赏
- 举报
呵呵，这个俺不清楚，帮你UP
