[VBA] 如何向Total Commander 中发送WM_COPYDATA 消息

valuex

参照下述网址将代码改成64位用的了，一直没有成功，请坛子里面的高手帮忙看看，谢谢。
我怀疑是跟这句相关，但尝试了好几种方案也没有成功。

cds.cbData = Len(UserCMD)+1

'cds.cbData = Len(UserCMD)

'cds.cbData = Len(UserCMD)*2

'cds.cbData =( Len(UserCMD)+1)*2

参考链接： https://stackoverflow.com/questi ... am-in-vba-for-excel

1. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
2. Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr
   
3. 
   
4. Public Type CopyDataStruct
   
5.     dwData As LongPtr
   
6.     cbData As LongPtr
   
7.     lpData As LongPtr
   
8. End Type
   
9. Private Const WM_COPYDATA = &H4A
   
10. Sub test()
    
11.     Dim newPath As String
    
12.     ThisFile = "D:\xxx\xxx.mhtml"
    
13.     newPath = ThisFile & "\:\n" & "\0"
    
14.     hwndTC = FindWindow("TTOTAL_CMD", vbNullString)
    
15.     result = SendMessage(hwndTC, 1075, 4001, 0)  'FocusLeft
    
16.     result = SendMessage(hwndTC, 1075, 3001, 0)  'NewTab
    
17.    
    
18.     Call TC_SetPath(hwndTC, newPath)
    
19. End Sub
    
20. 
    
21. Sub TC_SetPath(hwndTarget, UserCMD As String)
    
22.     Dim cds As CopyDataStruct
    
23.    
    
24.     cds.dwData = Asc("C") + 256 * Asc("D")
    
25.     cds.cbData = Len(UserCMD)+1
    
26.     cds.lpData = StrPtr(UserCMD)
    
27.    
    
28.     ' Send the WM_COPYDATA message
    
29.     result = SendMessage(hwndTarget, WM_COPYDATA, 0, cds)
    
30. End Sub

复制代码

perfect131

最终目的是 是什么？
操控 mhtml？

valuex

执行TC中定义的用户命令，可以做很多事情，现在主要是想在excel中选中一个单元格后，就能快速预览文件。

leolee82

DWORD是32位