谢谢各位,,请帮我下

[取窗体文件路径+文件名]
没能理解.
是与窗体程序文件有关的文件路径？

楼上，我来了

2楼,我的意思是

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

Option Explicit
Private Declare Function GetWindowModuleFileName Lib "user32" (ByVal hWnd As Long, ByVal lpszFileName As String, ByVal cchFileNameMax As Long) As Long

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

= =;
好像不是你要的。

[ 本帖最后由 bczgvip 于 2009-11-10 23:35 编辑 ]

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

我测试下

'这个代码不对，还是不行
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

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 lhWnd As Long
lhWnd = FindWindow("ShImgVw:CPreviewWnd", vbNullString)
If lhWnd Then
    Dim sBuf$
    sBuf = String$(261, 0)
    GetWindowModuleFileName lhWnd , sBuf, 260
    sBuf = Left$(sBuf, InStr(1, sBuf, vbNullChar) - 1)
    Debug.Print sBuf
End If
End Sub 

[ 本帖最后由 bczgvip 于 2009-11-11 00:43 编辑 ]

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