...Hide the internet connection status from system tray?

Author: Vadim Winebrand

Category: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base