TForm1 = class( TForm )
Private
procedure WMSysCommand( var Message : TWMSysCommand )
Message WM_SYSCOMMAND;
Public
end;
procedure TForm1.WMSysCommand( var Message : TWMSysCommand );
var
hd : THandle;
begin
inherited;
if ( Message.CmdType and $FFF0 = SC_MINIMIZE )
then
begin
hd := FindWindow( nil, pchar( 'winzip' ) );
If hd<>0 then
postmessage( hd, WM_SYSCOMMAND, SC_MINIMIZE, 0 );
end;
end;