Снять иконку соединения с интернет из Tray

Советы » Интернет » Снять иконку соединения с интернет из 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com