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;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.