通过程序来关闭另一个程序时出现的问题？？

2003-09-19 10:53:28 109 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何解决Vivado仿真时提示：另一个程序正在使用此文件 behavxsimsimulate.log xilinx vivado simulate.log文件占用问题阅读详情

Dim pID As Long

Private Sub Command1_Click()
pID = Shell("c:\test\jj.exe", vbNormalFocus)
End Sub

Private Sub Command2_Click()
Dim hWnd As Long
Dim i As Integer
hWnd = FindProcessWindow(pID)
Text1.Text = CStr(hWnd) & vbCrLf & Text1.Text
SetForegroundWindow hWnd
PostMessage hWnd, WM_CLOSE, 0, 0&
End Sub

问题：按Command1打开jj.exe后，要按多次Command2才能关闭，大侠们说说是为什么？

...全文

图像去雾新思路：手把手教你复现DEA-Net中的“细节增强卷积”与PyTorch实现本文详细解析了DEA-Net中的'细节增强卷积'(DEConv)与PyTorch实现，通过多分支差分卷积和重参数化技术，显著提升单图像去雾效果。文章从数学原理到代码实现，手把手指导复现这一创新架构，帮助开发者在保持轻量化的同时实现41dB以上的PSNR指标，适用于自动驾驶、遥感监测等关键领域。阅读详情

doubleh

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

doubleh 2003-09-19

打赏
举报

还是不行，每次点击Comamd2得到的hWnd = FindProcessWindow(pID)都不同，照理应是一样的？

代码在这里，你也可以试一下，是另一个大虾给的，这里暂时盗版一下了。：

'窗体中的代码
Option Explicit

Dim pID As Long

Private Sub Command1_Click()
pID = Shell("c:\test\jj.exe", vbNormalFocus) 'jj.exe是用VB编的另一个程序
End Sub

Private Sub Command2_Click()
Dim hWnd As Long
Dim i As Integer

hWnd = FindProcessWindow(pID)
SetForegroundWindow hWnd
'PostMessage hWnd, WM_CLOSE, 0, 0& '用post
SendMessage hWnd, WM_CLOSE, 0, 0&

End Sub

'模板中的代码
Option Explicit

Public Const WM_CLOSE = &H10
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Dim hWndProcess As Long

Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
Dim pID As Long

GetWindowThreadProcessId hWnd, pID
If pID = lParam Then
If GetParent(hWnd) = 0 Then
hWndProcess = hWnd
EnumWindowsProc = False
End If
End If
EnumWindowsProc = True
End Function

Function FindProcessWindow(ByVal pID As Long) As Long
hWndProcess = 0
EnumWindows AddressOf EnumWindowsProc, pID
FindProcessWindow = hWndProcess
End Function

lwm1977 2003-09-19

打赏
举报

学习ing

lwm1977 2003-09-19

打赏
举报

学习ing

Garfield 2003-09-19

打赏
举报

PostMessage是把消息放到目标程序的消息队列
如果目标程序还没处理这个消息就不会立即退出。

可以试一下 SendMessage 代替 PostMessage。

通过程序来关闭另一个程序时出现的问题？？

相关推荐