Minimieren im Hook abfangen!

[Orbmu2k]

Warum Hook ?

Delphi-Quellcode:

private
 
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

...

implementation

...

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MINIMIZE) then
    ShowMessage('Minimize')
  else if (Msg.CmdType = SC_MAXIMIZE) then
    ShowMessage('Maximize');
  DefaultHandler(Msg);
end;