コードを介して WindowsKey + M と同じタスクを実行する必要があります。開いているすべてのウィンドウを最小化します。これは、.Net ではなく、Win32 API を介して行う必要があります。
FreeBasic で次のことを試しましたが、何も起こりません。
Dim hWndConsole As HWND
'Shell_TrayWnd = class name of taskbar
Dim WindowName as String = "Shell_TrayWnd"
hWndConsole = FindWindow(0, strptr(WindowName))
ShowWindow(hWndConsole, SW_MINIMIZE) 'outta my sight
誰かがこれを行う方法を知っていますか?
ありがとうございました。
編集:これが実用的なソリューションです:
#include "Windows.bi"
Dim hWndConsole As HWND
'Shell_TrayWnd = class name of taskbar
Dim WindowName as String = "Shell_TrayWnd"
Dim res as LRESULT
CONST minall = 419
hWndConsole = FindWindow( "Shell_TrayWnd",null)
res = postMessage(hWndConsole, WM_COMMAND, minall, null )