Como puedo saber si se le ha dado al botón de minimizar en una ventana?

[DarkByte]

ESTE ES EL TRUCO ORIGINAL DE TRUCOMANÍA:
//////////////////////////////////////////////////////////////
Ejecutar algo antes de que tu aplicación sea mini-
mizada:

Podemos hacerlo capturando el mensaje WM_SYSCOMMAND

-Primero, capturamos el mensaje, añadiendo esta linea en el private de la declaracion de la form:



type
TForm1 = class(TForm)
private
{Esta linea/This Line}
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;



-Y en el implementation, ponemos la procedure:



procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
MessageBeep(0);
DefaultHandler(Msg);
end;