如何响应全部程序最小化？

Question

在Windows2000下点“显示桌面”按钮或按"win"+"M"可以使所有的可视运行程序
最小化，在这种情况下我在Delphi程序中检测最小化事件检测不到，而直接点最小化按钮
在Delphi程序中是能检测到最小化事件的，请问
在Delphi中如何检测上面提到的全部最小化事件呢？

Answer 1

处理Application的Min事件，不要处理只MainForm的Min

Answer 2

我响应的就是Application的Min事件，但确实没有响应

Answer 3

放一个ApplicationEvents，在它的OnMinimize事件中写就可以了。

Answer 4

我就是按楼上那位说的那样写的呀？但确实没有检测到，直接最小化通过楼上的方式是检测得到的，能否给我Email一个例子?   [email protected]

Answer 5

//type
//  TForm1 = class(TForm)
  private
  procedure  MyPosMsg(var  Msg:TWMWindowPoschanged);
message  WM_WINDOWPOSCHANGED; 
/////////
procedure  TForm1.MyPosMsg(var  Msg:TWMWindowPoschanged);
begin
           if  IsIconic(Application.handle)  then  //如果主程序被最小化
                application.Title:=application.Title+'最小化';
end;

Answer 6

to: yang6130(无限可能) 你这是在每个最下化状态时都要执行，包扩最大化、最下化、复原等，
我需要的是只在最小化时执行