Taskbar, кнопка Пуск, Системное меню

Как добавить файл в меню Пуск/Документы

2017-10-17T16:15:17+07:00

Эта программа добавляет файл "File.txt" в "Пуск/Документы".

Code:

uses ShlOBJ;

procedure TForm1.Button1Click(Sender: TObject);

begin

SHAddToRecentDocs(SHARD_PATH, PChar('File.txt'));

end;

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su

Как очистить пункт меню Документы кнопки Пуск?

2017-10-17T16:13:04+07:00

Вызовите Windows API функцию SHAddToRecentDocs() передав nil вместо имени файла в качестве параметра.

Подробнее...

Как сделать Multi Screen Emulator?

2017-10-17T16:24:10+07:00

Я хочу представить простой мульти-экран эмулятор, написанный на Delphi.

Он состоит в небольшой форме размещения в правом нижнем углу экрана, прямо над треем, которая состоит из 5 кнопок.

В начале первая кнопка вниз; затем, когда я нажимаю другую кнопку, открывается новый рабочий стол. В этом новом рабочем столе я могу открыть другие программы

и так далее с другими кнопками. Когда я вернусь к одной из кнопок, Я буду видеть только программы, открытые в этом контексте, без других.

Фокус состоит в том, чтобы сделать следующие шаги непосредственно перед нажатием другой кнопки:

Подробнее...

Работа с System Menu

2017-10-17T16:14:26+07:00

Добавить новый пункт меню в системное меню диалога:

Code:

AppendMenu(GetSystemMenu(Self.Handle,FALSE),MF_ENABLED,1001,'&Help');

Автор ответа: Sheff

Подробнее...

Скрыть Tray, часы, кнопку ПУСК, панель задач

2017-10-17T16:15:55+07:00

Code:

program proga2;

uses

Windows;

var

Wnd: THandle; { объявляем переменные }

int: integer;

begin

Randomize; { холостой прогон генератора случайных чисел }

int := Random(3); { выбор одного варианта из четырёх }

case int of

0: { если первый вариант то }

begin

Wnd := FindWindow('Progman', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);

{ прячем трей }

ShowWindow(Wnd, sw_hide);

end;

1: { если второй вариант то }

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);

{ прячем часы }

ShowWindow(Wnd, sw_hide);

end;

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);

{прячем кнопку "Пуск"}

ShowWindow(Wnd, sw_hide);

end;

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);

{ прячем "Панель задач" }

ShowWindow(Wnd, sw_hide);

end;

end.

Без иконки в панели задач

2017-10-17T15:32:39+07:00

Если вы не хотите, чтобы ваше приложение имело иконку в панели задач, добавьте следующие строки в исходный код проекта:

Code:

Application.CreateHandle;

ShowWindow(Application.Handle, SW_HIDE);

Application.ShowMainForm := FALSE;

Подробнее...

Как заставить форму не разворачиваться из иконки

2017-10-17T15:37:33+07:00

Code:

procedure WMQueryOpen(var Msg: TWMQueryOpen);

message WM_QUERYOPEN;

// ... и ее реализация

procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);

begin

Msg.Result := 0;

end;

Как заставить формы минимизироваться на панель задач с анимацией

2017-10-17T15:39:25+07:00

Дело-то вот в чем: Главным окном программы дельфийской является не главная форма, а окно TApplication, которое имеет нулевые размеры, поэтому его не видно. Именно для него показывается иконка на панели задач. Когда пользователь нажимает кнопку минимизации на главной форме, команда минимизации передается этому окну, и сворачивается именно оно, а для остальных просто делается hide. А так как окно TApplication имеет нулевые размеры, то и анимации никакой не видно.

Подробнее...

Как отобразить не главные окна своей программы в панели задач Windows

2017-10-17T15:42:01+07:00

Code:

procedure TMyForm.CreateParams(var Params :TCreateParams); {override;}

begin

inherited CreateParams(Params); {CreateWindowEx}

Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;

end;

Подробнее...

Как получить список кнопок в таскбаре?

2017-10-17T15:31:03+07:00

Code:

uses CommCtrl;

{©Drkb v.3}

function GetModuleFileNameExW(hProcess:THandle; hModule:HMODULE; lpFilename:PWideChar; nSize:DWORD):DWORD; stdcall; external 'PSAPI.DLL';

const

ICON_SMALL2 = 2;

function WindowGetEXE(wnd:HWND):string;

var

wt:array[0..MAX_PATH-1] of WChar;

r:integer;

prc:THandle;

prcID:cardinal;

begin

result:='';

if GetWindowThreadProcessID(wnd,prcID)<>0 then

begin

prc:=OpenProcess(PROCESS_ALL_ACCESS,false,prcID);

if prc<>0 then

try

r:=GetModuleFileNameExW(prc,0,wt,MAX_PATH*2);

if r<>0 then result:=wt;

finally

CloseHandle(prc)

end

end;

function WindowGetIcon(wnd:HWND; fSmall:boolean):Cardinal;

var

defIcon:HICON;

r,iType1,iType2: integer;

begin

defIcon:=LoadIcon(0,IDI_APPLICATION);

if fSmall then

begin iType1:=ICON_SMALL2; iType2:= GCL_HICONSM; end else

begin iType1:=ICON_BIG; iType2:= GCL_HICON; end;

r:=SendMessageTimeOut(wnd,WM_GETICON,iType1,0,SMTO_ABORTIFHUNG or SMTO_NOTIMEOUTIFNOTHUNG, 100, result);

if (r=0) then result:=defIcon else

begin

if (result=0) then result:=GetClassLong(wnd,iType2);

if (result=0) then result:=defIcon

end;

function EnumWindowsProc(wnd:HWND; lParam: LPARAM):BOOL; stdcall;

var

wn:array[0..MAX_PATH-1] of char;

begin

result:=true;

if IsWindowVisible(wnd) and (GetParent(wnd)=0) and (GetWindow(wnd,GW_OWNER)=0) and

((GetWindowLong(wnd,GWL_EXSTYLE) and WS_EX_TOOLWINDOW)=0) then

begin

GetWindowText(wnd,wn,MAX_PATH);

with Form1.ListView1.Items.Add do

begin

Caption :=wn; // заголовок

SubItems.Add(IntToStr(wnd)); // дескриптор

SubItems.Add(WindowGetEXE(wnd)); // exe

SubItems.Add(' '); // колонка для большой иконки

ImageIndex:=ImageList_AddIcon(Form1.ImageList1.Handle,WindowGetIcon(wnd,true)); // маленькая иконка

SubItemImages[2] := ImageList_AddIcon(Form1.ImageList2.Handle,WindowGetIcon(wnd,false)); // большая иконка

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListView1.Clear;

ImageList1.Clear;

ImageList2.Clear;

EnumWindows(@EnumWindowsProc,0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

// ImageList1 - 16x16; ImageList2 - 32x32;

ListView1.SmallImages:=ImageList1;

ListView1.LargeImages:=ImageList2;

end;

Как сделать, чтобы неглавная форма минимизировалась не на TaskBar, а выше него

2017-10-17T15:42:40+07:00

Code:

void __fastcall CreateParams(TCreateParams &Params);

...

void __fastcall TForm1::CreateParams(TCreateParams &Params)

{

TForm::CreateParams(Params);

Params.ExStyle |= WS_EX_APPWINDOW;

Params.WndParent = GetDesktopWindow();

}

Кнопки в панели задач

2017-10-17T15:43:29+07:00

Code:

// Это необходимо объявить в секции public в верхней части вашего pas-файла

procedure TForm1.IconCallBackMessage( var Mess : TMessage ); message WM_USER + 100;

procedure TForm1.FormCreate(Sender: TObject);

var

nid: TNotifyIconData;

begin

with nid do

begin

cbSize := SizeOf(TNotifyIconData);

Wnd := Form1.Handle;

uID := 1;

uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

uCallbackMessage := WM_USER + 100;

hIcon := Application.Icon.Handle;

szTip := 'Текст всплывающей подсказки';

end;

Shell_NotifyIcon(NIM_ADD, @nid);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

nid: TNotifyIconData;

begin

with nid do

begin

cbSize := SizeOf(TNotifyIconData);

Wnd := Form1.Handle;

uID := 1;

uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

uCallbackMessage := WM_USER + 100;

hIcon := Application.Icon.Handle;

szTip := 'Текст всплывающей подсказки';

// Все, что указано выше, не является обязательным

end;

Shell_NotifyIcon(NIM_DELETE, @nid);

end;

procedure TForm1.IconCallBackMessage(var Mess: TMessage);

var

sEventLog: string;

begin

case Mess.lParam of

// Сделайте здесь все что вы хотите. Например,

// вызов контекстного меню при нажатии правой кнопки мыши.

WM_LBUTTONDBLCLK: sEventLog := 'Двойной щелчок левой кнопкой';

WM_LBUTTONDOWN: sEventLog := 'Нажатие левой кнопки мыши';

WM_LBUTTONUP: sEventLog := 'Отжатие левой кнопки мыши';

WM_MBUTTONDBLCLK: sEventLog := 'Двойной щелчок мышью';

WM_MBUTTONDOWN: sEventLog := 'Нажатие кнопки мыши';

WM_MBUTTONUP: sEventLog := 'Отжатие кнопки мыши';

WM_MOUSEMOVE: sEventLog := 'перемещение мыши';

WM_MOUSEWHEEL: sEventLog := 'Вращение колесика мыши';

WM_RBUTTONDBLCLK: sEventLog := 'Двойной щелчок правой кнопкой';

WM_RBUTTONDOWN: sEventLog := 'Нажатие правой кнопки мыши';

WM_RBUTTONUP: sEventLog := 'Отжатие правой кнопки мыши';

end;

Мигание кнопки приложения

2017-10-17T15:35:09+07:00

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

FlashWindow(Application.Handle, True);

end;

Подробнее...

Показать контекстное меню на панели задач

2017-10-17T15:44:28+07:00

Code:

unit TNA;

interface

uses

Windows, Messages, SysUtils, Classes, Controls, Forms, ExtCtrls,

ShellApi, Menus;

const

k_WM_TASKMSG = WM_APP + 100; //die "100" ist ein frei wahlbarer Wert

type

TForm1 = class(TForm)

TPopupMenu1: TPopupMenu;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormDblClick(Sender: TObject);

procedure PopupMenuClick(Sender: TObject);

private

{ Private-Deklarationen }

tTNA: TNotifyIconData;

procedure WMTaskMsg(var Msg: TMessage); message k_WM_TASKMSG;

procedure AppActive;

procedure AppDeactivate;

procedure ShowIcon;

procedure ChangeIcon;

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

{$R TNA.RES} //eine Resource mit 2 Icons oder Bitmaps

procedure TForm1.FormCreate(Sender: TObject);

begin

{la?t die Form schon bei Programmstart verschwinden}

Application.ShowMainForm := False;

{Symbol im TNA anzeigen}

Self.ShowIcon;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

{Symbol aus dem TNA entfernen}

Shell_NotifyIcon(NIM_DELETE, @tTNA);

end;

procedure TForm1.FormDblClick(Sender: TObject);

begin

{lassen wir doch die Form wieder verschwinden ...}

Self.AppDeactivate;

{... und andern das Symbol in dem TNA}

Self.ChangeIcon;

end;

procedure TForm1.PopupMenuClick(Sender: TObject);

begin

case TPopupMenu(Sender).Tag of

{hier steht dann die Auswahl was getan werden soll}

{wenn auf das erschienene Popupmenu geklickt wurde}

end;

procedure TForm1.WMTaskMsg(var Msg: TMessage);

var

rCursor: TPoint;

begin

{wenn die Nachricht aus unserem definierten Bereich kommt dann ...}

if Msg.wParam = tTNA.uID then

begin

{... tu was wenn das Ereignis ein ...}

case Msg.lParam of

{... rechter Mausklick ist oder ...}

WM_RBUTTONDOWN:

begin

{aktuelle Cursoposition holen}

GetCursorPos(rCursor);

{ACHTUNG!!!!! Der folgende Aufruf ist an dieser Stelle ganz wichtig!!!!}

{Erst durch diese API-Funktion wird das Popupmenu dazu bewegt zu verschwinden

wenn ein Klick au?erhalb des Popupmenus erfolgt}

SetForegroundWindow(Self.Handle);

{Also, nicht vergessen!!!}

{Das Popupmenu erscheint an der gewunschten Position in dem TNA}

TPopupMenu1.Popup(rCursor.x, rCursor.y);

end;

{... ein linker doppelter Mausklick ist}

WM_LBUTTONDBLCLK: Self.AppActive;

end;

procedure TForm1.AppActive;

var

hOwner: THandle;

begin

{Form einblenden}

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);

ShowWindow(Self.Handle, SW_SHOW);

SetForegroundWindow(Self.Handle);

{Symbol in der Taskbar einblenden}

hOwner := GetWindow(Self.Handle, GW_OWNER);

SendMessage(hOwner, WM_SYSCOMMAND, SC_RESTORE, 0);

ShowWindow(hOwner, SW_SHOW);

end;

procedure TForm1.AppDeactivate;

begin

{Form ausblenden}

ShowWindow(Self.Handle, SW_HIDE);

{Symbol in der Taskbar ausblenden}

ShowWindow(GetWindow(Self.Handle, GW_OWNER), SW_HIDE);

end;

procedure TForm1.ShowIcon;

begin

tTNA.cbSize := SizeOf(tTNA);

tTNA.Wnd := Self.Handle;

tTNA.uID := 24112000; //frei wahlbarer Wert zur Identifizierung

tTNA.uCallbackMessage := k_WM_TASKMSG;

tTNA.hIcon := LoadIcon(hInstance, 'xxx');

//xxx ist die Bezeichnung eines Icons aus "TNA.res"

StrCopy(tTNA.szTip, 'Hallo'); //Hint

tTNA.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

{CB Symbol in dem TNA einrichten CE}

Shell_NotifyIcon(NIM_ADD, @tTNA);

end;

procedure TForm1.ChangeIcon;

begin

tTNA.cbSize := SizeOf(tTNA);

tTNA.hIcon := LoadIcon(hInstance, 'yyy');

//yyy ist die Bezeichnung eines weiteren Icons aus "TNA.res"

StrCopy(tTNA.szTip, 'Welt'); //Hint

{CB Symbol im TNA andern CE}

Shell_NotifyIcon(NIM_MODIFY, @tTNA);

end;

end.

Получить дескриптор окна, которое владеет кнопками запущенных программ на панели задач

2017-10-17T15:49:21+07:00

В этой статье я хотел бы описать полезную недокументированную функцию GetTaskmanWindow. Функция GetTaskmanWindow возвращает дескриптор

окна, которое владеет кнопками панели задач. Вот цитата о панели задач из Microsoft MSDN: "Программа Microsoft® для Windows® интерфейс, включающий приложение

панель называется панелью задач. Панель задач может использоваться для выполнения таких задач, как переключение между открытыми Windows и запуск новых приложений..." и "панель задач содержит меню Пуск, кнопки панели задач, контекстное меню и панель состояния...". К сожалению, Win32 API не содержит документированных функций, которые могут быть использованы для доступа к задач, поэтому мы должны снова использовать недокументированный способ.

Подробнее...

Рисование на минимизированной иконке

2017-10-17T15:50:19+07:00

Есть ли у кого пример рисования на иконке минимизированного приложения с помощью Delphi?

Когда Delphi-приложение минимизировано, иконка, которая вы видите - реальное главное окно, объект TApplication, поэтому вам необходимо использовать переменную Application. Таким образом, чтобы удостовериться что приложение минимизировано, вызовите IsIconic(Application.Handle). Если функция возвратит True, значит так оно и есть. Для рисования на иконке создайте обработчик события Application.OnMessage. Здесь вы можете проверять наличие сообщения WM_Paint и при его нахождении отрисовывать иконку. Это должно выглядеть приблизительно так:

Подробнее...

Анимированная кнопка Пуск?

2017-10-17T16:06:43+07:00

Итак, если Вам надоело привычное статическое изображение кнопки "Пуск", то предлагаю немного оживить её :) Надеюсь, что это доставит Вам удовольствие.

Подробнее...

Изменить размер кнопки ПУСК

2017-10-17T16:07:58+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),

300, 0, 80, 22, true);

end;

Как изменить заголовок кнопки ПУСК

2017-10-17T16:10:47+07:00

Для начала создайте какой-нибудь Bitmap, который вы будете натягивать на кнопку [т.к. такого понятия как "заголовок кнопки ПУСК" в действительности не существует], а та надпись, что находится на стартовой кнопке, является рисунком. Создавая рисунок, учитывайте размеры и то, что левая сторона должна быть "плоской", как у нас на рисунке слева, это связано с особенностями наложения.

Подробнее...

Как изменить изображение кнопки Пуск?

2017-10-17T16:05:16+07:00

Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).

Подробнее...

Как открыть меню кнопки Пуск?

2017-10-17T15:53:20+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

end;

Как спрятать и отключить кнопку "Пуск"?

2017-10-17T16:07:26+07:00

Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.

Подробнее...

Как определить, включено ли автоскрытие у панели задач?

2017-10-16T21:18:45+07:00

Code:

uses ShellAPI;

...

function IsTaskbarAutoHideOn : boolean;

var ABData : TAppBarData;

begin

ABData.cbSize := sizeof(ABData);

Result :=(SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;

end;

Как скрыть TaskBar?

2017-10-16T21:20:11+07:00

Code:

//Спрятать

procedure TForm1.Button1Click(Sender: TObject);

var

hTaskBar : THandle;

begin

hTaskbar := FindWindow('Shell_TrayWnd', Nil);

ShowWindow(hTaskBar, SW_HIDE);

end;

//Показать

procedure TForm1.Button2Click(Sender: TObject);

var

hTaskBar : THandle;

begin

hTaskbar := FindWindow('Shell_TrayWnd', Nil);

ShowWindow(hTaskBar, SW_SHOWNORMAL);

end;

Подробнее...

Кто владелец taskbar buttons?

2017-10-16T21:26:23+07:00

В этой статье я хотел бы описать полезную функцию не документированную GetTaskmanWindow. Функция GetTaskmanWindow возвращает дескриптор

окно, которое владеет кнопками панели задач. Вот цитата о панели задач из Microsoft MSDN: "Программа Microsoft® для Windows® интерфейс, включающий приложение

панель называется панелью задач. Панель задач может использоваться для выполнения таких задач, как переключение между открытыми

Windows и запуск новых приложений..." и "панель задач содержит меню Пуск, кнопки панели задач, контекстное меню и панель состояния...". К сожалению, Win32 API не содержит документированных

функция, которая может быть использована для доступа к задач, поэтому мы должны снова использовать недокументированный способ.

Подробнее...

Определение координат расположения TaskBar

2017-10-16T21:21:42+07:00

Code:

uses.., ShellApi;

var

AppBarData: TAppBarData;

bAlwaysOnTop: Boolean; {Поверх окон}

bAutoHide: boolean; {Авт. убирать с экрана}

ClRect: TRect; {Клиентские области}

Rect: TRect;

Edge: UInt; {Местоположение TaskBar}

procedure DetectTaskBar;

begin

AppBarData.hWnd := FindWindow('Shell_TrayWnd', nil);

AppBarData.cbSize := sizeof(AppBarData);

bAlwaysOnTop := (SHAppBarMessage(ABM_GETSTATE, AppBardata) and ABS_ALWAYSONTOP) < > 0;

bAutoHide := (SHAppBarMessage(ABM_GETSTATE, AppBardata) and ABS_AUTOHIDE) < > 0;

GetClientRect(AppBarData.hWnd, ClRect.rc);

GetWindowRect(AppBarData.hwnd, rect);

if (Rect.top > 0) then

Edge := ABE_BOTTOM

else if (Rect.Bottom < Screen.Height) then

Edge := ABE_TOP

else if Rect.Right < Screen.Width then

Edge := ABE_LEFT

else

Edge := ABE_RIGHT;

end;

Подробнее...

Получение информации о TaskBar

2017-10-16T21:27:23+07:00

Для вывода информации мы будет использовать компонент TStringGrid с закладки Additional.

Сначала вам нужно будет после

Code:

var

Form1: TForm1;

Подробнее...

Получить дескриптор панели задач

2017-10-16T21:28:05+07:00

Используем функцию нахождения окна FindWindow, указывая ей в качестве параметров сначала название класса окна, затем его заголовок. Если окно будет найдено, функция выдаст его дескриптор.

Подробнее...

Работа с TaskBar

2017-10-16T21:22:24+07:00

Code:

unit TaskBar;

interface

uses Windows, ShellAPI;

const

// Дублируем описания из ShellAPI, чтобы не писать его в Uses

// везде, где мы используем этот модуль

NIF_TIP = ShellAPI.NIF_TIP;

NIF_ICON = ShellAPI.NIF_ICON;

function TaskBarAddIcon(

hWindow: THandle; // окно, создавшее значок

ID: Cardinal; // идентификатор значка

ICON: hIcon; // иконка

CallbackMessage: Cardinal; // сообщение, которое будет посылаться окну

Tip: PChar // ToolTip

): Boolean;

function TaskBarModifyIcon(

hWindow: THandle;

ID: Cardinal;

Flags: Cardinal;

ICON: hIcon;

Tip: PChar): Boolean;

function TaskBarDeleteIcon(

hWindow: THandle;

ID: Integer): Boolean;

implementation

function TaskBarAddIcon(

hWindow: THandle;

ID: Cardinal;

ICON: hIcon;

CallbackMessage: Cardinal;

Tip: PChar): Boolean;

var

NID: TNotifyIconData;

begin

FillChar(NID, SizeOf(TNotifyIconData), 0);

with NID do

begin

cbSize := SizeOf(TNotifyIconData);

Wnd := hWindow;

uID := ID;

uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

uCallbackMessage := CallbackMessage;

hIcon := Icon;

lstrcpyn(szTip, Tip, SizeOf(szTip));

end;

Result := Shell_NotifyIcon(NIM_ADD, @NID);

end;

function TaskBarModifyIcon(

hWindow: THandle;

ID: Cardinal;

Flags: Cardinal;

ICON: hIcon;

Tip: PChar): Boolean;

var

NID: TNotifyIconData;

begin

FillChar(NID, SizeOf(TNotifyIconData), 0);

with NID do

begin

cbSize := SizeOf(TNotifyIconData);

Wnd := hWindow;

uID := ID;

uFlags := Flags;

hIcon := Icon;

lstrcpyn(szTip, Tip, SizeOf(szTip));

end;

Result := Shell_NotifyIcon(NIM_MODIFY, @NID);

end;

function TaskBarDeleteIcon(

hWindow: THandle;

ID: Integer): Boolean;

var

NID: TNotifyIconData;

begin

FillChar(NID, SizeOf(TNotifyIconData), 0);

with NID do

begin

cbSize := SizeOf(TNotifyIconData);

Wnd := hWindow;

uID := ID;

end;

Result := Shell_NotifyIcon(NIM_DELETE, @NID);

end;

end.