首页  编辑  

关闭Internet连接状态在SysTray中的图标

Tags: /超级猛料/OS.操作系统/任务栏/   Date Created:

Hide the internet connection status from system 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;