窗口最小化问题？？？

Question

我希望象delphi自身环境那样，最小化主窗口，里面打开的几个窗口也同时最小化，
在应用程序里如何实现？？？

Answer 1

procedure TFrmLxxt.epEfButton10Click(Sender: TObject);
begin
  keybd_event(91, MapVirtualKey( 91, 0 ), 0 , 0 );  // win 键按下
  keybd_event(68, MapVirtualKey( 68, 0 ), 0 , 0 );  // d 键按下
  keybd_event(68, MapVirtualKey( 68, 0 ), KEYEVENTF_KEYUP , 0 );  // d 键抬起
  keybd_event(91, MapVirtualKey( 91, 0 ), KEYEVENTF_KEYUP , 0 );  // win 键抬起
end;

Answer 2

procedure MinimizeAll; 
var h:HWnd; 
begin
  h:=handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
    Postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
    h:=GetnextWindow(h,GW_HWNDNEXT);
  end; 
end;