如何获得具有焦点的窗口的句柄

Question

如何获得具有焦点的窗口的句柄?获得窗体句柄后并显示在Text1中,该如何显现,谢谢.

Answer 1

【VB声明】   
      Private   Declare   Function   GetActiveWindow   Lib   "user32"   Alias   "GetActiveWindow"   ()   As   Long   
    
  【说明】   
      获得活动窗口的句柄     
    
  【返回值】   
      Long，活动窗口的句柄，如没有窗口处于活动状态，则返回零值

Answer 2

蹭分：
Text1.Text=GetActiveWindow()

Answer 3

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

Answer 4

老马的回答对GetForegroundWindow取得所有进程中的活动窗口GetActiveWindow取得当前进程中活动窗口