Private Declare Sub ShowWindow& Lib "user32" (ByVal q&, ByVal q1&)
Private Declare Function FindWindow Lib "user32" Alias
"FindWindowA" _ (ByVal w As String, ByVal w1 As String) As Long
Dim r As Long
Private Sub Command1_Click()
r = FindWindow("progman", vbNullString)
Call ShowWindow(r, 1)
End Sub
Private Sub Command2_Click()
r = FindWindow("progman", vbNullString)
Call ShowWindow(r, 0)
End Sub
Private Sub Form_Load()
Command1.Caption = "Показываем"
Command2.Caption = "Скрываем"
End Sub |
|