防止重复运行程序并且激活当前正在运行的窗口
2009-07-23 12:51
309 查看
Option Explicit
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Dim appCaption$, firstPopHWnd&
If App.PrevInstance Then
appCaption = Me.Caption
Me.Caption = appCaption & " "
firstPopHWnd = FindWindow("ThunderRT6FormDC", appCaption)
SetForegroundWindow firstPopHWnd&
End
End If
End Sub
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Dim appCaption$, firstPopHWnd&
If App.PrevInstance Then
appCaption = Me.Caption
Me.Caption = appCaption & " "
firstPopHWnd = FindWindow("ThunderRT6FormDC", appCaption)
SetForegroundWindow firstPopHWnd&
End
End If
End Sub
相关文章推荐
- 防止重复运行程序并且激活当前正在运行的窗口
- vc 防止程序重复运行(即只运行一个实例)并激活已运行进程和枚举进程及窗口
- [转]防止程序重复运行,显示原来的窗口
- 如何使PC上运行的程序不能退出,并且用户只能使用当前正在运行的程序。不能使用PC上的其他程序
- 防止程序重复运行的一种写法
- Winform防止程序重复运行
- c# 防止重复运行 弹出已运行窗口并传递消息
- C# 激活正在运行的程序
- C#中使用DOS命令关闭当前正在运行的程序并重新启动
- 修改主窗口的类名来防止程序运行多个实例
- vc防止运行多个程序,重复运行,同一个程序
- vc防止运行多个程序,重复运行,同一个程序
- C#中使用DOS命令关闭当前正在运行的程序并重新启动
- C#防止程序重复运行
- windows内核编程之如何防止一个相同的程序重复运行
- android服务里生成通知点击后返回正在运行的程序和当前的Activity
- 紧急求助国内外大侠:如何编写程序得到正在运行的ppt的当前页码和运行时间?
- Windows根据程序标题查找正在运行的程序的HWND--判断窗口程序是否运行
- 激活后台运行程序的窗口
- Vb.Net防止同一程序重复运行的方法