我想首先取得当前活动窗口，然后将其Enabled属性设置为Flase,怎么办？

Question

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

Answer 1

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Sub Command1_Click()
Dim S As Long
Dim TReturn As Long
S = GetActiveWindow
TReturn = EnableWindow(S, 0)
End Sub

Answer 2

需要API：GetForegroundWindow   EnableWindow
执行代码：
EnableWindow( GetForegroundWindow(),0)

Answer 3

GetForegroundWindow   EnableWindow