我想实现这么一个效果,大虾们帮我看看怎么办哈:)
   我当前在执行一个软件,然后我想按下一个系统级热键执行我做的另外一个.EXE执行文件等执行完了,再重新激活原来使用的软件。这里有两个问题,
  1,我怎么实现那个热键
  2,等执行完了那个.exe执行文件关闭后,怎么返回激活原来使用的软件?

解决方案 »

  1.   

    热键的话用api registerhotkey
    等待执行完毕可以用 waitsingleobject之类的api
    你现在可以去搜索具体怎么用以上两个函数了
      

  2.   

    Private Const MOD_ALT = &H1
    Private Const MOD_CONTROL = &H2
    Private Const MOD_SHIFT = &H4
    Private Const PM_REMOVE = &H1
    Private Const WM_HOTKEY = &H312Private Type POINTAPI
        x As Long
        y As Long
    End TypePrivate Type Msg
        hWnd As Long
        Message As Long
        wParam As Long
        lParam As Long
        time As Long
        pt As POINTAPI
    End TypePrivate Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
    Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
    Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
    Private Declare Function WaitMessage Lib "user32" () As Long
    Private bCancel As BooleanPrivate Sub ProcessMessages()
        Dim Message As Msg
        'loop until bCancel is set to True
        Do While Not bCancel
            'wait for a message
            WaitMessage
            'check if it's a HOTKEY-message
            If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
                'minimize the form
                WindowState = vbMinimized
            End If
            'let the operating system process other events
            DoEvents
        Loop
    End SubPrivate Sub Form_Load()
        Dim ret As Long
        bCancel = False
        '註冊熱鍵ctrl+f
        ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)
        
        Me.AutoRedraw = True
        Me.Print "Press CTRL-F to minimize this form"
        
        Show
        'process the Hotkey messages
        ProcessMessages
    End SubPrivate Sub Form_Unload(Cancel As Integer)
        bCancel = True
        'unregister hotkey
        Call UnregisterHotKey(Me.hWnd, &HBFFF&)End Sub
      

  3.   

    你原封不動的copy到form1里執行一下就可以了。CTRL+F是窗口最小化的熱鍵。
      

  4.   

    为什么要这么麻烦哦,让电脑按照人的做法去做???好笨的主意既然事自己写程序为什么不用自己程序SHELL启动第二个进程。用waitsingleobject等待第二个进程结束再继续自己的程序啊??还要什么热键。相关的帖子很多,自己搜吧