Private Declare Function SendMessage Lib "user32.dll" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function FindWindow Lib "user32.dll" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Const WM_COMMAND As Long = &H111 'Процедура TurnAll - сворачивает все окна Public Sub TurnAll() SendMessage FindWindow("Shell_TrayWnd", vbNullString), WM_COMMAND, &H19F, 0 End Sub
|
Просмотров: 8742
Ваш коментарий будет первым | | |