全ウインドウを最小化する

全ウインドウを最小化する

■使用するコンポーネント

Button

■使用するAPI関数

keybd_event（特殊キーの状態を設定する）

■ソースは下記のようになります。

■全ウインドウを最小化する処理
`procedure TForm1.Button1Click(Sender: TObject); Const 　VK_WIN = $5B ; //Winキー　VK_D =68 ; //Dキー begin 　//Winキーを押す　keybd_event(VK_WIN, 0, 0, 0) ; 　//Dキーを押す　keybd_event(VK_D, 0, 0, 0) ; 　//キーを離す　keybd_event(VK_WIN, 0, KEYEVENTF_KEYUP, 0); end;`

Win32APIのページへ

ホーム PV ランキング