激活一个正在运行的程序

原创 2006年06月24日 00:05:00

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Integer

'这里SciCalc是计算器的窗口类名
        Dim hCalcWnd As Integer = FindWindow("SciCalc", "计算器")

        If hCalcWnd = 0 Then
            Shell("calc.exe", AppWinStyle.NormalFocus)
        Else
            BringWindowToTop(hCalcWnd)
        End If

相关文章推荐

Java Swing 每次打开只运行一个实例,并激活任务栏里的程序

import java.awt.AWTException; import java.awt.Dimension; import java.awt.Image; import java.awt.Menu...
  • lovoo
  • lovoo
  • 2016年09月14日 21:40
  • 1997

Android通知之通知栏点击通知后返回正在运行的程序,而不是一个新Activity

一般的写法,点击通知栏进入的Activity是一个新创建的Activity,而不是原先正在运行的Activity,这和我的想法是背道而驰的。当你点击返回按键退出这个Activity之后,发现,原先正在...

java程序中,如何安全的结束一个正在运行的线程?

转载:http://blog.163.com/xh_ding/blog/static/193903289201341685931689在Java的多线程编程中,java.lang.Thread 类型包...

Android中实现“程序前后台切换效果”和“返回正在运行的程序,而不是一个新Activity”

ANDROID 一、首先是返回正在运行的程序,而不是新的ACTIVITY。 多网上关于 通知栏的例子都是打开一个新的Activity,代码也很多。 根据那些代码如下     public ...
  • DJY1992
  • DJY1992
  • 2013年05月30日 10:33
  • 2731

Windows 防火墙无法运行 "由于另一个程序或正在运行的服务可能正在使用网络地址转换组件"

今天客户的服务器,客户自己安装了个u-mail 邮件服务器软件.重启系统后.就远程不了服务器.也ping不通了.手动重启系统也没用.只好机房.本地登陆进去..右击网上邻居--属性---窗口打开后.什么...
  • tangdc88
  • tangdc88
  • 2011年05月23日 23:18
  • 12184

程序只运行一个实例,并激活已运行的实例[12月15日更新]

只允许一个实例的方法比较简单: 在InitInstance() 函数里加入如下代码,利用互斥量来保证只运行一次 HANDLE m_hMutex = CreateMutex(NULL, TR...
  • arbel
  • arbel
  • 2011年12月10日 11:17
  • 753
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:激活一个正在运行的程序
举报原因:
原因补充:

(最多只允许输入30个字)