[iptyt]

Доброго Времени суток.


-----------------------------------------------------------------
const
WMTRAY_TOGGLEQL = WM_USER + 237;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('Shell_TrayWnd', nil), WMTRAY_TOGGLEQL, 0, 1); // Включить
(*
SendMessage(FindWindow('Shell_TrayWnd', nil), WMTRAY_TOGGLEQL, 0, 0); // Отключить
*)
end;
-----------------------------------------------------------------