谢谢各位,,请帮我下

楼上，我来了

2楼,我的意思是

 我要写个 程序  取 第3方软件,  我现在可以取 软件的窗口 句柄,  然后 通过句柄 我想 找到  这个软件 所在的 路径和文件名字,请给我个代码吧,谢谢

挖,是斑竹哦，,,太感动了

我测试下

'这个代码不对，还是不行
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowModuleFileName Lib "user32" (ByVal hWnd As Long, ByVal lpszFileName As String, ByVal cchFileNameMax As Long) As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim hWnd As Long

If hWnd = FindWindow("ShImgVw:CPreviewWnd", vbNullString) > 0 Then

 

Dim sBuf$
sBuf = String$(261, 0)
GetWindowModuleFileName Me.hWnd, sBuf, 260
sBuf = Left$(sBuf, InStr(1, sBuf, vbNullChar) - 1)
Debug.Print sBuf
MsgBox sBuf


 End If


End Sub

斑竹， 我这个程序目的 是,  查找 电脑里 是否 打开一个图片,XP系统默认打开是用  "WINDOWS 图片和传真查看器",  找到 句柄后， 就要 找出 这个图片  的路径和文件名来，,,谢谢, 你楼上这个程序，我运行了，不显示东西

谢谢了啊, 我明白了