ГлавнаяMS ACCESS Свернуть все открытые окна (показать "Рабочий стол")
Свернуть все открытые окна (показать "Рабочий стол")
Автор Прислал Roman
21.03.2005 г.
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