关闭

激活一个正在运行的程序

777人阅读 评论(0) 收藏 举报

    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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:183693次
    • 积分:2697
    • 等级:
    • 排名:第13364名
    • 原创:86篇
    • 转载:5篇
    • 译文:0篇
    • 评论:41条
    最新评论