请教，在delphi中，如何当我的程序运行时，令桌面上的其他窗体最小化？

Question

模拟一个Win+M的键盘事件即可。

Answer 1

发一个广播消息
  sendmessage(HWND_BROADCAST,WM_SIZE,SIZE_RESTORED,0);不过要是某个窗口不肯最小化可没办法

Answer 2

Hand :THandle;
while(Hand <> nil}
begin
  Hand = FindWindow(nil);
  ShowWindow(Hand,SC_MINIMIZE);
end  

Answer 3

  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 4

  keybd_event(91, MapVirtualKey( 91, 0 ), 0 , 0 );  // win 键按下
  keybd_event(68, MapVirtualKey( 77, 0 ), 0 , 0 );  // D 键按下
  keybd_event(68, MapVirtualKey( 77, 0 ), KEYEVENTF_KEYUP , 0 );  // D 键抬起
  keybd_event(91, MapVirtualKey( 91, 0 ), KEYEVENTF_KEYUP , 0 );  // win 键抬起
这个更好一些，可以来回切换