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

- Между моей девочкой и Интернетом есть много общего.
- Ага, пользователей много.


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
Вы можете выкупить этот проект.