'获得当前活动窗口句柄
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long'获得当前窗口的标题
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long'获得当前窗口的标题
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
2 搜索一下 托盘 的例子吧,网上有很多.