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

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

■使用するAPI関数

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

全ウインドウを最小化する処理
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 ランキング