如何取得活动窗口的应用程序名称?

Question

Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long

Answer 1

agree maoqingfeng(千里孤坟) 
next 
GetWindowText()

Answer 2

好象不对呀,我有如下代码:Private Declare Function GetActiveWindow Lib "user32" () As LongPrivate Sub Timer1_Timer()
  List1.AddItem GetActiveWindow
End Sub我运行后,切换到EXCEL并输入一些数据,再切换回来,发现List1中除了0就是VB的窗口的句柄,难道在EXCEL输入数据,EXCEL窗口还不算是活动窗口吗?

Answer 3

'This Project needs
'- two timers, interval=100
'- a button'in general section
Private Type POINTAPI
    x As Long
    y As Long
End TypePrivate Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = True
    Timer2.Interval = 100
    Timer2.Enabled = True
    Command1.Caption = "Draw Text"
End Sub
'This will draw an Ellipse on the active window
Sub Timer1_Timer()
    Dim Position As POINTAPI
    'Get the cursor position
    GetCursorPos Position
    'Draw the Ellipse on the Screen's DC
    Ellipse GetWindowDC(0), Position.x - 5, Position.y - 5, Position.x + 5, Position.y + 5
End Sub
Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]    Dim intCount As Integer, strString As String
    strString = "Cool, text on screen !"
    For intCount = 0 To 30
        'Draw the text on the screen
        TextOut GetWindowDC(0), intCount * 20, intCount * 20, strString, Len(strString)
    Next intCount
End Sub
Private Sub Timer2_Timer()
    'Draw the text to the active window
    TextOut GetWindowDC(GetActiveWindow), 50, 50, "This is a form", 14
End Sub

Answer 4

GetActiveWindow只可得到自己开发的程序的活动窗口,应该用GetForegroundWindow,再用GetWindowText,谢谢ygd(小小大圣)提醒我.