Delphi World - Скрыть статус соединения с Интернетом с TrayBar

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Скрыть статус соединения с Интернетом с TrayBar

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   shellapi;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   nt: TNotifyIconData;
 begin
   with nt do
   begin
     cbSize := SizeOf(nt);
     Wnd    := FindWindow('#32770', nil);
     uid    := 0;
     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
     uCallbackMessage := WM_USER + 17;
     hIcon  := 0;
     szTip  := '';
   end;
   Shell_NotifyIcon(NIM_DELETE, @nt);
 end;