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

[nevid]

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

[Kingron]

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

[simonzone]

study

[nevid]

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

[票票飞扬]

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

[nevid]

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

[yang6130]

//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;

[nevid]

to: yang6130(无限可能)

你这是在每个最下化状态时都要执行，包扩最大化、最下化、复原等，
我需要的是只在最小化时执行