如何最小化所有窗口

Question

如何最小化所有窗口，包括正在进行的游戏？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(91, MapVirtualKey( 91, 0 ), 0 , 0 );  // win 键按下
  keybd_event(77, MapVirtualKey( 77, 0 ), 0 , 0 );  // M 键按下
  keybd_event(77, MapVirtualKey( 77, 0 ), KEYEVENTF_KEYUP , 0 );  // M 键抬起
  keybd_event(91, MapVirtualKey( 91, 0 ), KEYEVENTF_KEYUP , 0 );  // win 键抬起

Answer 2

隐藏桌面:
var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);
end;
显现桌面:
var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop,sw_restore);
end;