入力 TForm1 = クラス（TFormは） プライベート 手順 WMSysCommand（VARメッセージ：TWMSysCommand）; メッセージWM_SYSCOMMAND; エンド; ...... 手順 TForm1.WMSysCommand（VAR メッセージ：TWMSysCommand）; 始める 継承されます; IF Msg.CmdType = SC_MINIMIZEを、次に / / ウィンドウにメッセージが最小化受信 開始 ; Application.Minimizeを// 最小化プログラム のShowWindow（Application.Handle、SW_HIDE）; // アイコンタスクバー隠す 終了; 終了 ;
ウィンドウを復元覚えて、イベントのTrayIconをクリックするか、ダブルクリックし、そうでない場合は、プログラムを見ることができない、だけで使用することができますタスクマネージャを終了。
アプリケーションニュースイベントへの応答、およびメッセージが最小化されたアイコンを表示されている場合は、メインウィンドウとアプリケーションを非表示にします。